Giúp em code VBA copy và Paste (2 người xem)

[hoang0569]

Tôi có 1 bảng dữ liệu A1:G20, giúp tôi tạo 1 button, mà mỗi lần nhập dữ liệu mới vào Play button đó sẽ copy dữ liệu sang 1 sheet mới, cam ơn mọi người trước.

 

[giangleloi]

Tôi có 1 bảng dữ liệu A1:G20, giúp tôi tạo 1 button, mà mỗi lần nhập dữ liệu mới vào Play button đó sẽ copy dữ liệu sang 1 sheet mới, cam ơn mọi người trước.

Bạn đính kèm thêm cái file đi tôi viết cho.

 

[hoang0569]

Tôi gửi File, bạn xem giúp. (Mỗi lần có số liệu mới là copy sang 1 Sheet mới bạn nhé)

 

[Ba Tê]

Tôi gửi File, bạn xem giúp. (Mỗi lần có số liệu mới là copy sang 1 Sheet mới bạn nhé)

Bạn Record Macro sẽ có được 1 cái Macro, rồi chỉnh lại 1 chút thì nó sẽ như thế này, tuỳ nghi sử dụng.

Sub Macro1()
Dim Num As Long
Num = Sheets.Count
    Sheets("Sheet1").Copy After:=Sheets(Num)
    ActiveSheet.Shapes.Range(Array("Play")).Delete
End Sub

 

[hoang0569]

Cảm ơn bạn Ba tê nhiều, mình xin hỏi thêm 1 vấn đề nữa, cũng vẫn File trên nhưng bây giờ là copy bảng đó ở sheet1 lần lượt sang sheet 2 rồi lần sau sang sheet3 có sẵn được không bạn?

 

[giaiphap]

Cảm ơn bạn Ba tê nhiều, mình xin hỏi thêm 1 vấn đề nữa, cũng vẫn File trên nhưng bây giờ là copy bảng đó ở sheet1 lần lượt sang sheet 2 rồi lần sau sang sheet3 có sẵn được không bạn?

Bạn dùng lệnh này nhé.

Private Sub Play_Click()
   Sheets("Sheet1").Range("A1:i21").Copy Destination:=Sheets("Sheet2").Range("a1")
   Sheets("Sheet1").Range("A1:i21").Copy Destination:=Sheets("Sheet3").Range("a1")
   Application.CutCopyMode = False
End Sub