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

cara makro

kalau HARUS pakai makro, salah satu tricknya mungkin begini...

Sub SupermanMengulangCopas()

' siti Vi / 16 Okt 2011

' XL-mania case # 19396

Dim Tabel As Range, First As Range, n As Long

Set Tabel = Range("A2:F2")

n = 1

If n Mod 3 = 1 Then

Set First = Tabel.Offset(n - 1, 0)

If Tabel(n, 1) = vbNullString Then Exit Do

Else

First.Copy

Tabel(n, 1).PasteSpecial xlPasteValuesAndNumberFormats

End If

n = n + 1

Loop

Application.CutCopyMode = False

End Sub

'-----------------------------------------------
statement: Set Tabel = Range("A2:F2")

dapat anda ganti menjadi Set Tabel = Selection

jika sebelumnya anda sudah memBlok range A2:F2; atau A5:F5 atau

range sebaris lain sesuai keperluan anda, dimana pada baris itulah

makro akan mulai hingga ketemu syarat yg menghentikannya

yaitu ketika n Mod 3 = 0 dan Tabel(n,1) = Kosong

cara lain tanpa makro

1. pilih range yg akan diproses,

jika merujuk ke contoh data, range yg akan diproses adalah A2:F7

2. Tekan tombol F5 (Go To)

3. Tekan tombol [ Special) > Pilih Blank

pada cell aktif (yaitu A3) ketikkan rumus =A2

4. Tekan tolbol Ctrl + Enter (semua selected cells) berisi data yg anda kehendaki

hanya saja masih dlm bentuk formula

Tahap 1 = Selesai

Tahap 2 mengubah Formula hasil tahap 1 menjadi konstanta:

Copy-lah range tsb dan lakukan Paste Special > Value ke diri range sendiri

(kalo ndak salah, kemarin sudah ada yg menjelaskan caranya)

Selesai

2011/10/14 Supirman <supirman1508@yahoo.co.id>

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 (3)

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.