Macro copy và paste

[rollytan]

Hi các anh chị, lần trước nhờ các anh chị chỉ em mà công việc em được suôn sẻ, nay nhờ các anh chị giúp em 1 đoạn code nhỏ nữa em cảm ơn trước
Em có 1 đoạn công thức trong khoảng A5:AQ11 và em muốn tạo macro để paste đoạn công thức đó 5 lần liên tục xuống dưới, và về sau cứ chạy macro đó là nó tự động paste đoạn đó xuống 5 lần liên tục vậy liền kề theo 5 lần trước..Em kèm file cho mấy anh chị dễ hình dung ạ

 

[snow25]

Hi các anh chị, lần trước nhờ các anh chị chỉ em mà công việc em được suôn sẻ, nay nhờ các anh chị giúp em 1 đoạn code nhỏ nữa em cảm ơn trước
Em có 1 đoạn công thức trong khoảng A5:AQ11 và em muốn tạo macro để paste đoạn công thức đó 5 lần liên tục xuống dưới, và về sau cứ chạy macro đó là nó tự động paste đoạn đó xuống 5 lần liên tục vậy liền kề theo 5 lần trước..Em kèm file cho mấy anh chị dễ hình dung ạ

Bạn muốn giữ lại công thức hay là không có công thức vậy.

Sub copy()
Dim arr, i As Long, lr As Long
With Sheet2
   arr = .Range("a5:Aq11").Value
   For i = 1 To 5
       lr = .Range("F" & Rows.Count).End(xlUp).Row + 1
       If lr < 12 Then lr = 12
       .Range("A" & lr).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
   Next i
End With
End Sub

Đây bạn xem.

 

[rollytan]

Muốn giữ công thức luôn bạn ơi

 

[snow25]

Muốn giữ công thức luôn bạn ơi

Đây bạn xem

Sub copy()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
Dim i As Long, lr As Long
With Sheet2
   For i = 1 To 5
       lr = .Range("F" & Rows.Count).End(xlUp).Row + 1
       If lr < 12 Then lr = 12
      .Range("A5:aq11").copy .Range("A" & lr)
   Next i
End With
 Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
End Sub

 

[rollytan]

Cảm ơn nhiều để mình test xem sao

 

[rollytan]

Đây bạn xem

Sub copy()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
Dim i As Long, lr As Long
With Sheet2
   For i = 1 To 5
       lr = .Range("F" & Rows.Count).End(xlUp).Row + 1
       If lr < 12 Then lr = 12
      .Range("A5:aq11").copy .Range("A" & lr)
   Next i
End With
Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
End Sub

Báo lỗi chỗ Range("A" bạn ơi..mình có kèm file bạn xem trog file giúp mình nha

 

[snow25]

Báo lỗi chỗ Range("A" bạn ơi..mình có kèm file bạn xem trog file giúp mình nha

Bạn xem lại chỗ with sheet2 xem có đúng tên sheets không nhé.

 

[Ba Tê]

Báo lỗi chỗ Range("A" bạn ơi..mình có kèm file bạn xem trog file giúp mình nha

File chỉ có 1 sheet, vùng A5 đến AQ11 là "khung mẫu".

 

[rollytan]

File chỉ có 1 sheet, vùng A5 đến AQ11 là "khung mẫu".

Cám ơn anh rất nhiều, cho em hỏi nếu em có nhiều khung mẫu với định dạng khác nhau (em để ở sheet MẪU)
Sau đó tạo những nút riêng bên sheet cần nhập dữ liệu (để ở sheet CHI TIẾT) để mỗi lần cần nhập dữ liệu cho kiểu khung nào em bấm nút đó để copy khung mẫu đó qua liền ngay sau khung đã có ở liệu ở hàng trên, thì em phải viết code cho khung mẫu thứ 2 thế nào ạ, anh giúp em code cho khung thứ 2 thôi những khung sau em sẽ tự viết để thêm vào