Private Sub CmdNhapDL_Click()
Dim W As Integer, Rws As Long
Dim ShName As String: Dim Sh As Worksheet
For W = 3 To 4
ShName = "VN" & CStr(W)
Set Sh = ThisWorkbook.Worksheets(ShName)
Rws = Sh.[B1].End(xlDown).Row + 1
Sh.Cells(Rws, "A").Value = Me!tbMaCV.Value
Sh.Cells(Rws, "B").Value = Me!tbNgayCV.Value
Sh.Cells(Rws, "C").Value = Me!tbHTen.Text
Sh.Cells(Rws, "D").Value = Me!tbTDVi.Text
Sh.Cells(Rws, "E").Value = Me!tbNDung.Text
Sh.Cells(Rws, "F").Value = Me!tbGiaTri.Value
Next W
End Sub
em cám ơn anh rất nhiều, em đã làm được ý 1 theo code của anh(1): Bạn tham khảo cái này & tự chuyển hóa đi nha:
PHP:Private Sub CmdNhapDL_Click() Dim W As Integer, Rws As Long Dim ShName As String: Dim Sh As Worksheet For W = 3 To 4 ShName = "VN" & CStr(W) Set Sh = ThisWorkbook.Worksheets(ShName) Rws = Sh.[B1].End(xlDown).Row + 1 Sh.Cells(Rws, "A").Value = Me!tbMaCV.Value Sh.Cells(Rws, "B").Value = Me!tbNgayCV.Value Sh.Cells(Rws, "C").Value = Me!tbHTen.Text Sh.Cells(Rws, "D").Value = Me!tbTDVi.Text Sh.Cells(Rws, "E").Value = Me!tbNDung.Text Sh.Cells(Rws, "F").Value = Me!tbGiaTri.Value Next W End Sub
e có thể lọc 1 lúc theo các cột luôn ạ, em có file ví dụ trước đây đã từng làm để a hiểuBạn đang cần lọc dữ liệu từ trang 'VN3'; Nhưng ta cần xác định lọc theo những trường/cột nào
Ví dụ nếu lọc theo tháng công văn (CV) đến, hay lọc theo 'Tên người làm' hoặc theo 'Mã CV'?
Cũng có thể lọc theo 2 trường 1 lúc, nhưng phải là những trường có tính đặt trưng nhất mới được;
Chờ thông tin từ bạn.
buồn của emThú thật với bạn là mình không kham nổi chuyện này rồi.
Bạn cần chờ những bạn khác giúp tiếp đi vậy!