Để họ tên tự động hiện lên textbox (Tb-tenNV) khi mình nhập mã NV vào textbox mã NV (Tb_maNV). Tôi đã viết như thế này không hiểu sai chổ nào mà VBA không chạy - nhờ thầy hướng dẫn giúp.
Private Sub Tb_maNV_Change()
Dim i As Integer, dongcuoi As Long
dongcuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To dongcuoi
If Tb_maNV.Value = Sheet1.Range("A" & i).Value Then
Me.Tb_tenNV.Value = Sheet1.Range("B" & i).Value
End If
Next i
End Sub
Dữ liệu ở Sheet1 như sau:
Cột A | Cột B |
Mã NV | Họ và tên |
0120 | Trần văn ổi |
0111 | Nguyễn văn Đại |
0113 | Lê Văn Bảy |
0561 | Huỳnh Tony |
Chào bạn bạn vui lòng gửi file lên nhé, mình căn cứ vào file sửa cho bạn nhé.
Được rồi - cám ơn thầy.
Chúc bạn học tốt cùng gitiho