Dear Pak Supirman, Waduh, saya jadi malu, tidak baca benar case-nya. Berikut coding makro, berhubung newbie dan sangat jarang sekali pakai makro, jadi agak aneh koding-nya (but it works on excel 2010). Saya taruh makro di sheet yang ingin di copy-paste.
Sub kopi()
Dim baris As Integer
baris = 2
Do Until Cells(baris, 1).Value = ""
Range(Trim("a" & baris & ":f" & baris)).Copy
Range(Trim("a" & baris & ":a" & baris + 2)).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
baris = baris + 3
Loop
End Sub
blessings,
tomz
----- Original Message -----
From: Tommy
To: [email protected]
Sent: Monday, October 17, 2011 9:05 AM
Subject: Re: ]] XL-mania [[ Penulisan Macro - Copy dan Paste secara perulang
Dear Pak Supirman,
Kalau datanya seperti file yang Anda lampirkan, menurut saya bisa dikerjakan
tanpa makro.
1. blok cell A1:F1
2. klik kanan > insert > shift cells_down
Koq garisnya ikutan turun?
3. blok seluruh cell G (G:G)
4. klik kuas (format painter)
5. blok cell A sampai F (A:F)
6. double click di column untuk sesuaikan lebar tiap tiap kolom.
Selesai... (tidak sampai 1 menit)...
Blessings,
tomz
----- Original Message -----
From: Supirman
To: [email protected]
Sent: Friday, October 14, 2011 6:15 PM
Subject: ]] XL-mania [[ Penulisan Macro - Copy dan Paste secara perulang
Dear Master
Saya ingin menanyakan penulisan Macro
Misalnya saya punya data seperti terlampir
Masalah
Saya harus mengcopy data A2:F2 dan selanjutnya di paste di A3:F4
Demikian selanjutnya saya harus mencopy data di A5:F5 selanjutnya di copy
di A6:F7
Pekerjaaan ini harus dilakukan berulang karena data sebayak 11.000 buah
Pertanyaannya
Bagaimana penulisan nya dalam macro sehingga menghasilkan hasil seperti
tersebut diatas dimana alamat cell sesuai dengan yang saya pilih
Demikian mohon pencerahannya, terimakasih
<<kuas - format painter.GIF>>
