Nhờ anh chị tạo code VBA save dữ liệu từ sheet1 sang sheet2 (1 người xem)

[goal1234]

[TABLE="width: 792"]
[TR]
[TD="colspan: 3"]Tạo dùm em code VBA gắn trong nút[/TD]
[TD="align: left"]

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]Khi em nhập nhóm 1 và nhóm 2 xong em bấm SAVE thì sheet1 được SAVE ở sheet2 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 11"]Tiếp tục em điều chỉnh nhóm 1 thành nhóm3 và nhóm 2 thành nhom 4 .Em nhấn nút SAVE thi tiếp tuc SAVE tai sheet2.[/TD]
[/TR]
[TR]
[TD="colspan: 3"]Mời anh chị nhìn xem sheet 2 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 10"]Tương tự như vậy em điều chỉnh nhóm 3 thành 5, nhóm 4 thành nhóm 6 . Nhấ n nút SAVE thì tiếp tục SAVE lại[/TD]
[TD][/TD]
[/TR]
[/TABLE]

 

[HyperLink]

[TABLE="width: 792"]
[TR]
[TD="colspan: 3"]Tạo dùm em code VBA gắn trong nút[/TD]
[TD="align: left"]

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]Khi em nhập nhóm 1 và nhóm 2 xong em bấm SAVE thì sheet1 được SAVE ở sheet2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 11"]Tiếp tục em điều chỉnh nhóm 1 thành nhóm3 và nhóm 2 thành nhom 4 .Em nhấn nút SAVE thi tiếp tuc SAVE tai sheet2.[/TD]
[/TR]
[TR]
[TD="colspan: 3"]Mời anh chị nhìn xem sheet 2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 10"]Tương tự như vậy em điều chỉnh nhóm 3 thành 5, nhóm 4 thành nhóm 6 . Nhấ n nút SAVE thì tiếp tục SAVE lại[/TD]
[TD][/TD]
[/TR]
[/TABLE]

trong file đó hiện tại có bao nhiêu nhóm? Sao ko lập mỗi nhóm 1 sheet rồi nhập trực tiếp cho khỏe nhỉ

 

[Ba Tê]

[TABLE="width: 792"]
[TR]
[TD="colspan: 3"]Tạo dùm em code VBA gắn trong nút[/TD]
[TD="align: left"]

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]Khi em nhập nhóm 1 và nhóm 2 xong em bấm SAVE thì sheet1 được SAVE ở sheet2 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 11"]Tiếp tục em điều chỉnh nhóm 1 thành nhóm3 và nhóm 2 thành nhom 4 .Em nhấn nút SAVE thi tiếp tuc SAVE tai sheet2.[/TD]
[/TR]
[TR]
[TD="colspan: 3"]Mời anh chị nhìn xem sheet 2 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 10"]Tương tự như vậy em điều chỉnh nhóm 3 thành 5, nhóm 4 thành nhóm 6 . Nhấ n nút SAVE thì tiếp tục SAVE lại[/TD]
[TD][/TD]
[/TR]
[/TABLE]

Chưa chuẩn bị hết tình huống thì "ráng chịu" nhé, vì chỉ làm theo yêu cầu.
Xoá hết dữ liệu ở sheet2 rồi gán code này vào cái nút.
Bấm rồi bấm nữa thì "tùm lum".

Public Sub GPE()
Dim Rng As Range, Rws As Long
Set Rng = Sheet1.Range(Sheet1.Range("A2"), Sheet1.Range("A65536").End(xlUp)).Resize(, 6)
Rws = Sheet2.Range("A65536").End(xlUp).Row
If Rws = 1 Then Rws = 0
Rng.Copy Sheet2.Range("A" & Rws + 2)
Set Rng = Nothing
End Sub