Làm thế nào để link số tài khoản tự động trong bảng lương ạ?

[Jemice]

Em đã gửi một topic bên phần "Hàm và công thức excel" về vấn đề này, nhưng chắc do tiêu đề chung chung, hoặc vi phạm nội quy nên....
Em xin chân thành cảm ơn bác Hoile đã trả lời bài viết của em. Nhưng có lẽ do em vẫn chưa nói rõ được hết những mong muốn của em đối với phần này. Em đã cố thử với vlook up nhưng không được ạ.

Trong sheet master file của em là sheet tổng hợp thông tin của các nhân viên. Còn sheet bảng lương là ví dụ đơn giản cho bảng lương hàng tháng của em. Vì công nhân bên chỗ em họ làm không ổn định, cứ ra vào liên tục, cho nên trong bảng lương không phải lúc nào cũng có ngần ấy người và theo đúng thứ tự như vậy. Nên em muốn có thể làm một hàm nào đó mà quy chiếu, có tên ai và số CMND của ai trong bảng lương (đối chiếu trùng với thôgn tin bên sheet master file) thì số TK tương ứng (từ sheet master file) của họ sẽ xuất hiện, còn nếu xoá tên người đó đi thì số Tài khoản cũng ko còn nữa.

Còn với câu trả lời của bác Hoile, nếu e chỉ quy chiếu đối số CMND (dù đây là trường mang tính duy nhất), thì khi e xoá tên của ai trong cột tên đi, thì vì cột số CMND vẫn còn đó, nên số TK cũng vẫn còn, ngoài ra cũng có nhiều tên trùng nữa. Thực ra cột số CMND em thường không để trong bảng lương, em chỉ cho vào trong ví dụ này để mọi người có thể hiểu rõ hơn. Em muốn hỏi cả nhà xem có cách nào để làm được như cách em mong muốn không ạ? Vì hiện tại, hàng tháng, sau khi tính lương xong xuôi đâu vào đấy hết rồi, em lại phải ngồi check lại số TK của mọi người, rất nhiều và mất công ạ. Nếu có thể có hàm nào chạy tự động như vậy thì em sẽ có thể bỏ qua được phần việc này để chú tâm check những phần khác ạ.

Em mong cả nhà có thể hướng dẫn e giải quyết vấn đề này ạ. Em xin chân thành cảm ơn cả nhà.

T.V

 

[SA_DQ]

Tạm như thế này đã, nhưng . . . .

Option Explicit
Sub CopyDS()
 Dim Sh As Worksheet, Clls As Range
 
 [B2].CurrentRegion.Offset(1, 1).Clear
 Set Sh = Sheets("Master file")
 For Each Clls In Sh.Range(Sh.[A2], Sh.[A65500].End(xlUp))
   If Clls.Value <> "" And Clls.Offset(, 2).Value <> "" Then
      With [B65500].End(xlUp).Offset(1)
         .Resize(, 3).Value = Clls.Resize(, 3).Value
         .Offset(, 5).Value = Clls.Offset(, 4).Value

      End With
   End If
 Next Clls
End Sub

(Xem thêm trong file kèm)

Nhưng với lượng CNV nhảy như cóc bỏ dĩa như vậy thì nên có mã nhân viên bạn à; (Đúng là số CMND có khi bạn không có đủ nữa, fải không?). Bạn fải đề fòng trường hợp trùng họ tên NV chứ!

 

[Jemice]

Em xin cảm ơn HYen17 đã nhiệt tình chỉ bảo cho em.