COPY PASTE ARRAY USING CASE - EXCEL VBA

Subcopy_case_Contoh1()

Select Case [a1]
  Case 1
  [A5:A10].Copy
 Case 2
  [B5:B10].Copy
 Case 3
  [C5:C10].Copy
Case 4
  [D5:D10].Copy
Case 5
  [E5:E10].Copy
End Select
Sheets("Sheet2").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(2, 0).PasteSpecial Paste:=xlPasteValues
Sheets("Sheet2").Select
End Sub




Subcopy_case_Contoh2()
Select Case [a1]
 Case 1
  [a5:c10].Copy Sheet1.[d5]
 Case 2
  [a5:c10].Copy Sheet1.[e5]
 Case 3
  [a5:c10].Copy Sheet1.[f5]
 Case 4
  [a5:c10].Copy Sheet1.[g5]
Case 5
  [a5:c10].Copy Sheet1.[h5]
End Select
End Sub

DEMIKIAN SEMOGA BERMANFAAT

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