Dear Feby
Coba gunakan script ini
Dim lRowsDB As String
Sheet2.Range("a2:d100").Copy
lRowsDB = Sheet17.Range("A1").CurrentRegion.Rows.Count
Sheet17.Range("a1").Offset(lRowsDB).PasteSpecial xlPasteValuesAndNumberFormats,
skipblanks:=True
Sheet3.Range("a2:d100").Copy
lRowsDB = Sheet17.Range("A1").CurrentRegion.Rows.Count
Sheet17.Range("a1").Offset(lRowsDB).PasteSpecial xlPasteValuesAndNumberFormats,
skipblanks:=True
Sheet4.Range("a2:d100").Copy
lRowsDB = Sheet17.Range("A1").CurrentRegion.Rows.Count
Sheet17.Range("a1").Offset(lRowsDB).PasteSpecial xlPasteValuesAndNumberFormats,
skipblanks:=True
Sheet2.Range("z1").Clear
Wassalam
Regard,
Opik PDS
________________________________
From: feby oktafiadin <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Thursday, August 22, 2013 10:48 AM
Subject: ]] XL-mania [[ Pengabungan data dari beberapa sheet kedalam satu sheet
Dear Master Excel
Mohon pencerahannya bagaimana caranya untuk menggabungkan data dari beberapa
sheet ke dalam satu sheet, apakah menggunakan macro atau hanya rumus saja?
file terlampir.
Terimakasih.
