*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
Do
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 <[email protected]>
> **
> 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
>
>
ctv_Mengulang Perintah per 3 step.xlsm
Description: Binary data
