lọc dữ liệu ra sheet mới sau đó bổ sung dữ liệu trên sheet kếthì lưu vào sheet gốc. (3 người xem)

[netuser36]

nhờ các bạn hướng dẫn để làm 2 việc sau:
[TABLE="width: 896"]
[TR]
[TD="colspan: 10"]1/ lọc những học sinh chưa nhập địa chỉ sang sheet chua co dia chỉ, advanve fillter với điều kiện gì[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 11"]2/ sau khi lọc ra danh sách chưa có địa chỉ thì nhập đia chỉ vào sheet chưa có địa chỉ thi cũng lưu vào sheet data[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 14"]ví dụ: hs3, hs7 chưa có địa chỉ. Sau khi lọc sang sheet chua có đia chi, bổ sung địa chỉ thì lưu vào sheet data( chứa toàn bộ thông tin học sinh)[/TD]
[/TR]
[/TABLE]

1/mình dùng advace fillter với đk là trường mã học viên <>"" (khác rổng)và địa chỉ ="" (=rổng) nhưng không ra.
2/ bổ sung sheet mới ko lưu được trên sheet gốc (xin code vba). xin cảm ơn.

 

[ngoctinh87]

nhờ các bạn hướng dẫn để làm 2 việc sau:
[TABLE="width: 896"]
[TR]
[TD="colspan: 10"]1/ lọc những học sinh chưa nhập địa chỉ sang sheet chua co dia chỉ, advanve fillter với điều kiện gì[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 11"]2/ sau khi lọc ra danh sách chưa có địa chỉ thì nhập đia chỉ vào sheet chưa có địa chỉ thi cũng lưu vào sheet data[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 14"]ví dụ: hs3, hs7 chưa có địa chỉ. Sau khi lọc sang sheet chua có đia chi, bổ sung địa chỉ thì lưu vào sheet data( chứa toàn bộ thông tin học sinh)[/TD]
[/TR]
[/TABLE]

1/mình dùng advace fillter với đk là trường mã học viên <>"" (khác rổng)và địa chỉ ="" (=rổng) nhưng không ra.
2/ bổ sung sheet mới ko lưu được trên sheet gốc (xin code vba). xin cảm ơn.

Bạn xem file đính kèm nhé, tôi dùng công thức và thêm cột phụ.

 

[be_09]

nhờ các bạn hướng dẫn để làm 2 việc sau:
[TABLE="width: 896"]
[TR]
[TD="colspan: 10"]1/ lọc những học sinh chưa nhập địa chỉ sang sheet chua co dia chỉ, advanve fillter với điều kiện gì[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 11"]2/ sau khi lọc ra danh sách chưa có địa chỉ thì nhập đia chỉ vào sheet chưa có địa chỉ thi cũng lưu vào sheet data[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 14"]ví dụ: hs3, hs7 chưa có địa chỉ. Sau khi lọc sang sheet chua có đia chi, bổ sung địa chỉ thì lưu vào sheet data( chứa toàn bộ thông tin học sinh)[/TD]
[/TR]
[/TABLE]

1/mình dùng advace fillter với đk là trường mã học viên <>"" (khác rổng)và địa chỉ ="" (=rổng) nhưng không ra.
2/ bổ sung sheet mới ko lưu được trên sheet gốc (xin code vba). xin cảm ơn.

File bạn thiết kế File với tiêu đề chưa phù hợp, bạn tải File và tham khảo cách dùng UserForm để thêm, sửa, xóa ở Topic sau:

http://www.giaiphapexcel.com/forum/showthread.php?10068-Quản-Lý-Công-Văn-đi-Và-đến

 

[netuser36]

cảm ơn bạn, làm theo bạn đã lưu được vào sheet gốc, còn câu 1, lọc ra những hs chưa có địa chỉ, bạn hướng dẫn cho mình với. vba càng tốt.

 

[be_09]

cảm ơn bạn, làm theo bạn đã lưu được vào sheet gốc, còn câu 1, lọc ra những hs chưa có địa chỉ, bạn hướng dẫn cho mình với. vba càng tốt.

Bạn click nút trả lời với trích dẫn để biết được bạn đang muốn trao đổi với thành viên nào?????

 

[netuser36]

câu 1, mình viết macro lọc theo điều kiện =LEN(mã học sinh)<>0 =LEN(địa chi)<=1 đã được.
câu 2, theo cách bạn dữ liệu cột phụ lấy đâu hay phải nhập.

 

[netuser36]

File bạn thiết kế File với tiêu đề chưa phù hợp, bạn tải File và tham khảo cách dùng UserForm để thêm, sửa, xóa ở Topic sau:

http://www.giaiphapexcel.com/forum/showthread.php?10068-Quản-Lý-Công-Văn-đi-Và-đến

trong link này đã khóa code nên không xem được bạn à.

 

[Ba Tê]

nhờ các bạn hướng dẫn để làm 2 việc sau:
[TABLE="width: 896"]
[TR]
[TD="colspan: 10"]1/ lọc những học sinh chưa nhập địa chỉ sang sheet chua co dia chỉ, advanve fillter với điều kiện gì[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 11"]2/ sau khi lọc ra danh sách chưa có địa chỉ thì nhập đia chỉ vào sheet chưa có địa chỉ thi cũng lưu vào sheet data[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 14"]ví dụ: hs3, hs7 chưa có địa chỉ. Sau khi lọc sang sheet chua có đia chi, bổ sung địa chỉ thì lưu vào sheet data( chứa toàn bộ thông tin học sinh)[/TD]
[/TR]
[/TABLE]

1/mình dùng advace fillter với đk là trường mã học viên <>"" (khác rổng)và địa chỉ ="" (=rổng) nhưng không ra.
2/ bổ sung sheet mới ko lưu được trên sheet gốc (xin code vba). xin cảm ơn.

Bạn xem file nhé. Nếu dữ liệu không thật thì bạn tùy chỉnh code.

 

[netuser36]

Bạn xem file nhé. Nếu dữ liệu không thật thì bạn tùy chỉnh code.

code của bạn quá hay, nhưng đọc không hiểu, cho mình hỏi ví dụ dữ liệu mình có 200 bản ghi thì thay số 200 vào chổ nào trong code ạ để chạy vòng lặp. và không muốn sắp xep theo cột stt và mã học sinh có được không ạ. nếu bạn rảnh nhờ bạn chú thích lệnh được ko ạ. xin cảm ơn.

 

[Ba Tê]

code của bạn quá hay, nhưng đọc không hiểu, cho mình hỏi ví dụ dữ liệu mình có 200 bản ghi thì thay số 200 vào chổ nào trong code ạ để chạy vòng lặp. và không muốn sắp xep theo cột stt và mã học sinh có được không ạ. nếu bạn rảnh nhờ bạn chú thích lệnh được ko ạ. xin cảm ơn.

Trong code lấy dữ liệu data từ dòng 6 (Cột C) xuống liên tục, không hạn chế số dòng.
Mã HS bắt buộc phải có và duy nhất (không trùng), sắp xếp tùy ý.

 

[be_09]

trong link này đã khóa code nên không xem được bạn à.

Bạn nên nêu là tải File bài số mấy, còn File của tôi tại bài 55 không có cài Password.

 

[netuser36]

Trong code lấy dữ liệu data từ dòng 6 (Cột C) xuống liên tục, không hạn chế số dòng.
Mã HS bắt buộc phải có và duy nhất (không trùng), sắp xếp tùy ý.

mình sửa code của bạn áp dụng vào file nhưng chưa được, nhờ bạn code vào file này cho mình với. list data cột d(cbql) trên sheet timcpc thì lưu vào sheet danhsachnnt. cảm ơn bạn nhiều.

 

[netuser36]

File bạn thiết kế File với tiêu đề chưa phù hợp, bạn tải File và tham khảo cách dùng UserForm để thêm, sửa, xóa ở Topic sau:

http://www.giaiphapexcel.com/forum/showthread.php?10068-Quản-Lý-Công-Văn-đi-Và-đến

nhờ bạn mail cho mình với. netuser36@yahoo.com xin cảm ơn.

vào tại bị chặn, không bắt link.
Access to this web site was blocked by an IT URL Access Control policy.


[TABLE="width: 100%"]
[TR]
[TD="colspan: 2"][/TD]
[/TR]
[TR]
[TD="class: style4, colspan: 2"]Event Details:
[/TD]
[/TR]
[TR]
[TD="colspan: 2"]
[/TD]
[/TR]
[TR]
[TD="width: 77"]URL:
[/TD]
[TD="width: 499"]http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=139357&d=1429248648[/TD]
[/TR]
[TR]
[TD="colspan: 2"]
[/TD]
[/TR]
[TR]
[TD]Reason:
[/TD]
[TD]Virus infected temporary block[/TD]
[/TR]
[TR]
[TD="colspan: 2"]
[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]If you believe this URL was blocked in error, please contact your IT staff to resolve this issue.
[/TD]
[/TR]
[TR]
[TD="colspan: 2"]
[/TD]
[/TR]
[/TABLE]

 

[be_09]

Bài 55 tôi tải vẫn bình thường.

Cái File của bạn (bài 12), nên sử dung 1 sheet tìm (bạn chơi đến 4 sheet), chưa biết mục đích tìm để làm gì.

Theo tôi thì nên thiết kế lại cho gọn hơn, gộp sheet DanhSachNNT và tháng 1 vào 1 chỉ thêm cột tháng và ngày nộp.

 

[netuser36]

tách nhiều sheet, vì mình dùng macro, (advance filter copy to another location) cho mỗi lần tìm theo nhu cầu, MST or tên người theo dõi.

 

[be_09]

tách nhiều sheet, vì mình dùng macro, (advance filter copy to another location) cho mỗi lần tìm theo nhu cầu, MST or tên người theo dõi.

Advanced Filter có thể dùng lọc nhiều tiêu chí, kể cả trong 1 cột (vì vậy tôi mới nêu dùng 1 sheet).

Có 1 cái thắc mắc là theo dõi mà không có cột địa chỉ, phường (xã ), huyện hoặc số điện thoại, vậy khi cần liên hệ hoặc tìm đơn vị đó nằm trên địa bàn nào thì làm sao biết mà tìm.

Bạn cho ý kiến ngay để tôi biết mà sửa Form cho bạn.

 

[be_09]

Thiết kế lại sheet theo dõi để bạn thống nhất về nơi chứa dữ liệu mới tính đến việc khác được (Form, lọc, tổng hợp.....), nếu không thì coi như phá sản.

 

[Ba Tê]

mình sửa code của bạn áp dụng vào file nhưng chưa được, nhờ bạn code vào file này cho mình với. list data cột d(cbql) trên sheet timcpc thì lưu vào sheet danhsachnnt. cảm ơn bạn nhiều.

Đây là code cập nhật lại dữ liệu từ sheet "TimCPC" trở lại sheet "DanhSachNNT".
Bạn gán nó vào đâu để chạy là tùy bạn.

Public Sub GPE()
Dim Dic As Object, dArr(), tArr(), I As Long, J As Long, R As Long
If Sheets("TimCPC").Range("A65536").End(xlUp).Row > 5 Then
    Set Dic = CreateObject("Scripting.Dictionary")
    With Sheets("TimCPC")
        tArr = .Range("A5", .Range("A5").End(xlDown)).Resize(, 5).Value
        .Range("A6:E100").ClearContents
    End With
    For I = 2 To UBound(tArr)
        Dic.Item(tArr(I, 1)) = I
    Next I
    With Sheets("DanhSachNNT")
        dArr = .Range("A7", .Range("A7").End(xlDown)).Resize(, 5).Value
        For I = 1 To UBound(dArr)
            If Dic.Exists(dArr(I, 1)) Then
                R = Dic.Item(dArr(I, 1))
                For J = 1 To 5
                    dArr(I, J) = tArr(R, J)
                Next J
            End If
        Next I
        .Range("A7:D7").Resize(I - 1) = dArr
        MsgBox "Da Cap nhat xong.", , "GPE"
    End With
    Set Dic = Nothing
End If
End Sub

 

[netuser36]

Đây là code cập nhật lại dữ liệu từ sheet "TimCPC" trở lại sheet "DanhSachNNT".
Bạn gán nó vào đâu để chạy là tùy bạn.

Public Sub GPE()
Dim Dic As Object, dArr(), tArr(), I As Long, J As Long, R As Long
If Sheets("TimCPC").Range("A65536").End(xlUp).Row > 5 Then
    Set Dic = CreateObject("Scripting.Dictionary")
    With Sheets("TimCPC")
        tArr = .Range("A5", .Range("A5").End(xlDown)).Resize(, 5).Value
        .Range("A6:E100").ClearContents
    End With
    For I = 2 To UBound(tArr)
        Dic.Item(tArr(I, 1)) = I
    Next I
    With Sheets("DanhSachNNT")
        dArr = .Range("A7", .Range("A7").End(xlDown)).Resize(, 5).Value
        For I = 1 To UBound(dArr)
            If Dic.Exists(dArr(I, 1)) Then
                R = Dic.Item(dArr(I, 1))
                For J = 1 To 5
                    dArr(I, J) = tArr(R, J)
                Next J
            End If
        Next I
        .Range("A7:D7").Resize(I - 1) = dArr
        MsgBox "Da Cap nhat xong.", , "GPE"
    End With
    Set Dic = Nothing
End If
End Sub

được rồi bạn ơi cảm ơn bạn nhiều. có tìm qua các lệnh trong code nhưng chưa hiểu bản chat của đoạn code.