Tự động điền dữ liệu Truy vấn

Em có 1 File gồm 2 Sheet

Em có 1 File gồm 2 Sheet
yêu cầu: sheet 1 BAO Cao con trỏ chuột di chuyển đến đâu tại cột 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 ạ

7480

Không biết chuyện này để làm gì, nhưng mà code này sẽ copy ô tại cột A (A2:An, với n là ô cuối cùng có dữ liệu) khi con trỏ chỉ đến nó, và dán vào ô B2 sheet "TRUY VAN"
save file dạng .xlsm

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lr&
lr = Cells(Rows.Count, 1).End(xlUp).Row
If Intersect(Target, Range("A2:A" & lr)) Is Nothing Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
Sheets("TRUY VAN").Range("B2").Value = Target
End Sub

www.giaiphapexcel.com/diendan/threads/t%E1%BB%B1-%C4%91%E1%BB%99ng-%C4%91i%E1%BB%81n-d%E1%BB%AF-li%E1%BB%87u-truy-v%E1%BA%A5n.166202/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học