Cách viết code tìm kiếm (1 người xem)

[ST-Lu!]

Chào các anh

Em đang loay hoay nhưng mãi chưa ra đoạn code sau

Sheet1: Dữ liệu gồm
- Mã số thuế
- Tên khách hàng
- Địa chỉ
-----------
Tại Sheet2: em chỉ cần nhập mã số thuế tại ô A1 thì

Ổ B1 tìm được tên khách hàng tương ưng
Ô B2 Tìm được địa chỉ tương ứng

------------------
Trong trường hợp nhập mã số thuế vào A1(nhưng trong Dữ liệu Sheet1 không có --> Khách hàng mới)
====> thì ta sẽ gõ tay vào ô B1 và B2

và khi ta nhấn lệnh in thì dữ liệu tại A1, B1, B2 sẽ được lưu lại trong dữ liệu sheet 1

Cám ơn các Huynh

 

[SA_DQ]

Bạn hãy tự đưa file giả lập lên chứ!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([a1], Target) Is Nothing Then
      Dim Rng As Range, sRng As Range
     With Sheets("CSDL").Range(Sheets("CSDL").[a2], Sheets("CSDL").[A65500].End(xlUp))
               Set sRng = .Find(what:=Target, LookIn:=xlFormulas, lookat:=xlWhole)
               If Not sRng Is Nothing Then
                      Target.Offset(, 1).Resize(, 2) = sRng.Offset(, 1).Resize(, 2).Value
               Else
                      Target.Offset(, 1).Resize(, 2) = "HAY NHAP DU LIEU MOI!"
                End If
       End With
 End If
End Sub

Macro để chép dòng dữ liệu mới, như sau

Sub CopyTo()
 Sheets("CSDL").[A65500].End(xlUp).Offset(1).Resize(, 3) = [a1].Resize(, 3).Value
End Sub

Bạn thử tự làm nút lệnh để cập nhật dòng dữ liệu mới xem sao?!