nhờ các bác hướng dẫn em viết code cho nút tìm kiếm này với (1 người xem)

[lenamqb]

Khi em nhập MST ở sheet1 rồi bấm nút tìm Khách hàng thì thông tin khách hàng ở sheet data sẽ hiển thị ở sheet 1
tên, pass đăng nhập admin

 

[leonguyenz]

Khi em nhập MST ở sheet1 rồi bấm nút tìm Khách hàng thì thông tin khách hàng ở sheet data sẽ hiển thị ở sheet 1
tên, pass đăng nhập admin

Code nút Tìm kiếm:
[gpecode=vb]
Private Sub cmdtimkh_Click()
Dim Rng As Range, FindMST As Range
Set Rng = Sheet5.Range("F2:F" & Sheet5.Range("F65535").End(3).Row)
Set FindMST = Rng.Find(Sheet1.[C5], , xlValues, xlWhole)
If Not FindMST Is Nothing Then
Sheet1.[C2] = FindMST.Offset(, -3)
Sheet1.[C3] = FindMST.Offset(, -2)
Sheet1.[C4] = FindMST.Offset(, -1)
End If
End Sub
[/gpecode]