Sub Proses3StepYgDiUlangUlang_haps() '--hapsari / smg, 16 Okt 2011 '--milis XL-mania message No 19396 '--versi jiplak makro siti tapi pakai For-Next '---------------------------------- Dim TopROW As Range, NexROW As Range Dim n As Long, NumRows As Long
Set TopROW = Application.InputBox( _
"Tentukan Baris Pertama Data Anda", _
"Makro ingin tahu TopRow & Jumlah Kolom", _
Selection.Address, , , , , 8)
NumRows = Cells(Rows.Count, TopROW(1, 1).Column). _
End(xlUp).Row + 3 - TopROW(1).Row
For n = 1 To NumRows
If n Mod 3 = 1 Then
Set NexROW = TopROW.Offset(n - 1, 0)
Else
NexROW.Copy
TopROW(n, 1).PasteSpecial xlPasteValuesAndNumberFormats
End If
Next n
Application.CutCopyMode = False
End Sub
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
>
>
>
>
>
>
>
Tanya Makro Mengulang Kerjaan per per 3 step (haps).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
