Hot Fox: Re: ]] XL-mania [[ Penulisan Macro - Copy dan Paste secara perulang

domingo, 16 de outubro de 2011

Re: ]] XL-mania [[ Penulisan Macro - Copy dan Paste secara perulang

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: XL-mania@yahoogroups.com

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: XL-mania@yahoogroups.com

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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (5)

Recent Activity:

New Members 66

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance.        |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.