Lấy giá trị trong 1 ô gán vào Label trong 1 Useform

[manhhung12]

Các bạn giai thích dùm vì lý do gì mà hàm tìm 1 giá trị trong 1 sheet rồi gán cho 1 Label trong Useform không có tìm được giá trị mặc dù trong sheet có giá trị này
Toi gửi kèm file có:
1 Modull
1 UseForm (trong form tôi đang dùng thử 1 label ứng với tên của người có chứng minh thư nhập trong textbox1)
Cảm ơn các bạn.

 

[nguyennb]

Bạn xem lại cái hàm MyFind xem, tôi thử

Private Sub UserForm_Initialize()
LbHovaTen1.Caption = MyFind("022449097")
End Sub

nhưng không được.

 

[voda]

-Lý do không tìm thấy dữ liệu là ở câu lệnh: Sheets("DSCD").active. Phải viết là: Sheets("DSCD").Activate.
-Giá trị cần tìm là họ tên, nên trong hàm chỉnh lại một chút: MyFind = cllFind.Offset(0, -1).Value.
-Cần cài font trong label phù hợp với font trong sheet để hiển thị đúng tiếng Việt.

 

[PhanTuHuong]

Những thiếu sót như bác Voda kể ra là đúng đó. Nhìn chung tôi thấy nội dung code hơi rối rắm vì sử dụng phương pháp tìm kiếm.
Chỉ cần sử dụng vùng khai tên số CMT rồi sử dụng phương thức offset để lấy các giá trị đó là ổn.
Hay hơn là sử dụng ComboBox để lấy danh sách CMT thay vì gõ mấy con số dài lê thê như cầu Thăng Long ...