Tự động điền vào cột khác sheet

[nguyenanhkietgo]

Em có 1 File gồm 2 Sheet
yêu cầu: sheet 1 BAO Cao con trỏ chuột đi chuyển đến đâu tại sheet thì tự động coppy dữ liệu đó vào cột B2 của sheet 2 Truy vấn để các ô ở dưới hoạt động ạ

 

[cantl]

Hàm thì tớ chưa nghĩ ra món trỏ chuột. Cái này dán vào Sheet "BAO CAO", nếu chưa biết dán thì thôi bỏ qua chờ phương án khác nhé.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:E4")) Is Nothing Then
    Sheet2.Range("B2:B6").Value = Application.Transpose(Range(Cells(Target.Row, 1).Address, Cells(Target.Row, 5).Address))
End If
End Sub

 

[nguyenanhkietgo]

Hàm thì tớ chưa nghĩ ra món trỏ chuột. Cái này dán vào Sheet "BAO CAO", nếu chưa biết dán thì thôi bỏ qua chờ phương án khác nhé.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:E4")) Is Nothing Then
    Sheet2.Range("B2:B6").Value = Application.Transpose(Range(Cells(Target.Row, 1).Address, Cells(Target.Row, 5).Address))
End If
End Sub

Code ko chạy anh ạ