Code Coppy 1 vùng dữ liệu của sheet1 sang 1 cột shee2 từ ngay sau ô có dữ liệu cuối (1 người xem)

[ThuyNguyenHN]

Chào anh chị và các bạn GPE

em có file excel đính kèm cùng yêu cầu trong file. mong anh chị em và các bạn chỉ code giúp ạ.

(Mục đích khi nhấn nút COPPY thì dữ liệu từ 1 vùng của sheet1 sẽ được coppy sang cột H bắt đầu ngay sau ô có dữ liệu cuối cùng)

 

[toangiaphat]

Câu hỏi của bạn chưa rõ ràng.
Chính xác copy bao nhiêu côt từ sheet1.
Bạn tự chỉnh cho phù hợp lại.

 

[ThuyNguyenHN]

Câu hỏi của bạn chưa rõ ràng.
Chính xác copy bao nhiêu côt từ sheet1.
Bạn tự chỉnh cho phù hợp lại.

Trong file đính kèm mình gửi có chi tiết yêu cầu là: Khi nhấn nút COPPY sẽ: Coppy vùng E7:E11 của sheet1
sang sheet2, cột H, ngay sau ô có dữ liệu cuối cùng của cột này (ở đây là H7) (paste chỉ value)

File của bạn không có code đi kèm

 

[Ba Tê]

Trong file đính kèm mình gửi có chi tiết yêu cầu là: Khi nhấn nút COPPY sẽ: Coppy vùng E7:E11 của sheet1
sang sheet2, cột H, ngay sau ô có dữ liệu cuối cùng của cột này (ở đây là H7) (paste chỉ value)

File của bạn không có code đi kèm

Nếu bạn Record Macro công việc Copy - Paste Value của bạn thì sẽ có Code cho bạn.
Đại khái nó giống thế này:

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Sheet1").Select
    Range("E7:E11").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("H21").Select
    Selection.End(xlUp).Select
    Range("H7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

"Túm" gọn nó lại thì được như vầy:

Public Sub GPE()
Sheet1.Range("E7:E11").Copy
Sheet2.Range("H65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

 

[ThuyNguyenHN]

Nếu bạn Record Macro công việc Copy - Paste Value của bạn thì sẽ có Code cho bạn.
Đại khái nó giống thế này:

Sub Macro1()
'
' Macro1 Macro
'
'
    Sheets("Sheet1").Select
    Range("E7:E11").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("H21").Select
    Selection.End(xlUp).Select
    Range("H7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

"Túm" gọn nó lại thì được như vầy:

Public Sub GPE()
Sheet1.Range("E7:E11").Copy
Sheet2.Range("H65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

Anh Ba Tê rất tuyệt vời!
Cảm ơn anh thật nhiều ạ!

 

[toangiaphat]

Bạn save lại thành chế độ emable macro

 

[ThuyNguyenHN]

Bạn save lại thành chế độ emable macro

File bạn gửi vẫn k có code VBA nhé