Xin nhờ giúp đỡ điền dữ liệu vào 1 hàng bằng vba. (1 người xem)

[Quoctruong031]

Xin nhờ các anh/chị giúp e. E có 1 file excel, trong sheet1 e muốn khi kích chuột phải vào 1 ô và chọn commandbutton thì dữ liệu dc chỉ định trong bảng "Hình dáng" được điền vào DÒNG chứa ô đó. E đính kèm file excel bên dưới.

Private Sub CommandButton1_Click() Sheets("HinhDang").Select Rows("2:2").Select Selection.Copy Sheets("Sheet1").Select Rows("8:8").Select // Phần này phải làm sao để điền vào DÒNG chứa Ô mà mình đã click chuột phải ActiveSheet.Paste UserForm1.Hide End Sub

Xin cảm ơn!

 

[bebo021999]

Thử:

Private Sub CommandButton1_Click()
Sheets("HinhDang").Rows("2:2").Copy Activecell.entirerow
UserForm1.Hide
End Sub

 

[Quoctruong031]

Thử:

Private Sub CommandButton1_Click()
Sheets("HinhDang").Rows("2:2").Copy Activecell.entirerow
UserForm1.Hide
End Sub

E copy nguyên code mà không dc a ạ.