Code VBA tra cứu kết quả trả về mảng dữ liệu (1 người xem)

tiendu02 đã viết:

Em chào các anh/chị trong diễn đàn ạ.
Các anh/chị trong diễn đàn có ai biết code VBA tra cứu kết quả trả về mảng dữ liệu không ạ? Chỉ giúp em với.
Em có file excel gồm 2 Sheet: Sheet "Data" và Sheet "Bang do". Bài toán yêu cầu là khi em nhập bất kỳ một mã nào đó ở một hàng bất kỳ của cột Mã trong Sheet "Bang do" thì các thông số của mã đó sẽ được lấy ra từ Sheet "Data" và giữ nguyên định dạng ạ. (File excel phía dưới).
Em cảm ơn anh/chị trong diễn đàn ạ.

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Góp vui.
bạn thử gõ số (1,2,3,....) vào Cột A bảng dò và Gõ Enter xem điều gì đã diễn ra.
Xem file

Nhấp chuột vào đây để mở rộng...

tiendu02 đã viết:

Em cảm ơn anh/chị nhiều ạ

Bài đã được tự động gộp: Hôm nay lúc 08:43

Anh có thể thêm câu lệnh giúp em là khi em xóa mã trong cột Mã của Sheet "Bang do" thì các thông số của mã đó cũng sẽ tự động xóa đi với ạ.

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Tức là Khi cột A/ bảng dò đã có 1 mã nào đó ví dụ là số 3. và các cột B-G đã có số liệu. Giờ xóa số 3 ở cột A đi thì lập tức dữ liệu của mã sô 3 ấy (từ cột B-G của sheet bảng dò) cũng bị xóa

Nhấp chuột vào đây để mở rộng...

tiendu02 đã viết:

Dạ đúng rồi anh ạ.

Nhấp chuột vào đây để mở rộng...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3: A100000")) Is Nothing Then
    If Not IsEmpty(Target) Then
        Dim Rng As Range, R&, R2&
        Dim d&, Lr&
        Dim Sh As Worksheet
        Dim Ma
            Ma = Target
            Set Sh = Sheets("Data")
            Lr = Sh.Range("A1000000").End(xlUp).Row
            Set Rng = Sh.Range("A1:A" & Lr)
        If Not Rng.Find(Ma) Is Nothing Then
            R = Rng.Find(Ma).Row: d = Target.Row
            R2 = Sh.Range("A" & R).End(xlDown).Row - 1
            Sh.Range("B" & R, "G" & R2).Copy Range("B" & d)
        End If
    Else
    Dim Cell
   
 Dim Cell
        R = Target.Row
        R2 = Range("A" & R).End(xlDown).Row - 1
        If R2 >= 1048500 Then R2 = Range("B1048575").End(xlUp).Row
            Range("B" & R, "G" & R2).ClearContents
    End If
End If
End Sub