Hỏi code copy dữ liệu (1 người xem)

[pro8x]

Mình muốn viết 1 đoạn code để copy dữ liệu như sau: ở sheet 2 tại ô A1 khi nhập "a" vào thì sẽ copy dữ liệu từ sheet 1 và pase vào ô A1 ở sheet 2.
Mình viết đoạn code này rồi nhưng nó khoạt động bác nào chỉ với

Sheets("sheet2").Select
ActiveCell="a"
Sheets("sheet1").Select
Range("b3:b17").CurrentRegion.Copy
Sheets("sheet2").Select
ActiveCell.PasteSpecial
End Sub

 

[hungdiep85]

Phải vậy không bạn


"A" viết Hoa nhé bạn

 

[Hai Lúa Miền Tây]

Phải vậy không bạn


"A" viết Hoa nhé bạn

Nên chỉnh lại như sau cho gọn. Không cần sub Macro1 và không cần quan tâm a thường hay a hoa.

Private Sub Worksheet_Change(ByVal Target As Range)
      If UCase([A1]) = "A" Then Sheets("Sheet1").Range("B3:B17").Copy Sheets("Sheet2").Range("A1")
      
End Sub