COPY BANYAK SHEET KE SATU SHEET ATAU SEBALIKNYA- EXCEL VBA

Copy banyak sheet ke satu sheet

Sub Copy_all_sheet_ to_ Rekap()

For k = 2 To Sheets.Count

Sheets(k).Range("A6:L500").Copy

Sheets("REKAP").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Next

End Sub

Copy satu sheet ke banyak sheet

Sub Copy_Rekap-to_all_sheet ()

Sheets(“REKAP”).Range("A6:L500").Copy

For K = 2 To Sheets.Count

Set simpan = Sheets(K).Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)

simpan.PasteSpecial Paste:=xlPasteValues

Next

End Sub