Giúp code Ghi dữ liệu (1 người xem)

[qwertyuiopasdfghjkl]

Sub GHI()
Range("C2:C4").Copy
Range("E20000").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub


Đoạn code này dùng để copy dữ liệu từ C2:C4 dán vào địa chỉ ô đầu tiền từ E2 trở xuống ( copy dọc dán ngang và cứ mỗi lần xuống 1 hàng) . bây giờ làm sao thay đổi được địa chỉ dán là E13 chẳng hạn
Lưu ý là trong File excel tại vì từ E12:G12 có tiều đề cột nên ghi Click vào nút Ghi thì nó sao chép xuống E13, nếu xóa đi tiêu để cột E12:G12 thì ghi Click vào nút ghi thì nó dán vào ô Đầu tiên vẫn là E2 . ai rành giúp mình cái đang cần gấp

 

[vu_tuan_manh_linh]

Range("E13:E15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True. Hình như là thế bạn ạ!

 

[Quang_Hải]

Sub GHI()
Range("C2:C4").Copy
Range("E20000").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub


Đoạn code này dùng để copy dữ liệu từ C2:C4 dán vào địa chỉ từ E2 ( copy dọc dán ngang và cứ mỗi lần xuống 1 hàng) . bây giờ làm sao thay đổi được địa chỉ dán là E13 chẳng hạn

Thử dòng lệnh này

[E13].PasteSpecial 3, , , Transpose:=True

Hoặc là:

[E1000].End(3).Offset(1).PasteSpecial 3, , , Transpose:=True

 

[susu16b]

Sub GHI()
Range("C2:C4").Copy
Range("E20000").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub


Đoạn code này dùng để copy dữ liệu từ C2:C4 dán vào địa chỉ từ E2 ( copy dọc dán ngang và cứ mỗi lần xuống 1 hàng) . bây giờ làm sao thay đổi được địa chỉ dán là E13 chẳng hạn

Bạn mở file của bạn gửi ở trên, rồi bấm nút ghi thử xem!!!

 

[qwertyuiopasdfghjkl]

Bạn mở file của bạn gửi ở trên, rồi bấm nút ghi thử xem!!!

Mình biết rồi. tại file của mình có dữ liệu tại ô E13 nên khi bấm vào nút ghi nó sao chép xuống đó. Ví dụ như xóa các tiều để tại địa chỉ hàng E12 thì bấm nút ghi nó vẫn sao chép xuống ô E2

 

[qwertyuiopasdfghjkl]

Bạn ơn mình còn yếu VBA lắm . Mình ghép nhưng nó không chạy được. Bạn giúp mình cho mình xin Code hoàn chỉnh từ a tới z luôn. Xin cảm ơn

 

[qwertyuiopasdfghjkl]

Thử dòng lệnh này

[E13].PasteSpecial 3, , , Transpose:=True

Hoặc là:

[E1000].End(3).Offset(1).PasteSpecial 3, , , Transpose:=True

Bạn ơn mình còn yếu VBA lắm . Mình ghép nhưng nó không chạy được. Bạn giúp mình cho mình xin Code hoàn chỉnh từ a tới z luôn. Xin cảm ơn

 

[Ba Tê]

Bạn ơn mình còn yếu VBA lắm . Mình ghép nhưng nó không chạy được. Bạn giúp mình cho mình xin Code hoàn chỉnh từ a tới z luôn. Xin cảm ơn

Thêm vào code 1 chút xem sao:
[GPECODE=vb]Sub GHI()
Dim Rws As Long
Rws = Range("E60000").End(xlUp).Row
If Rws < 12 Then Rws = 12
Range("C2:C4").Copy
Range("E" & Rws).Offset(1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub[/GPECODE]