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 <supirman1508@yahoo.co.id>
Dear MasterSaya ingin menanyakan penulisan MacroMisalnya saya punya data seperti terlampirMasalahSaya harus mengcopy data A2:F2 dan selanjutnya di paste di A3:F4Demikian selanjutnya saya harus mencopy data di A5:F5 selanjutnya di copy di A6:F7Pekerjaaan ini harus dilakukan berulang karena data sebayak 11.000 buahPertanyaannyaBagaimana penulisan nya dalam macro sehingga menghasilkan hasil seperti tersebut diatas dimana alamat cell sesuai dengan yang saya pilihDemikian mohon pencerahannya, terimakasih
__._,_.___
+-:: 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 |
+-------------------------------------------------------------------+
| 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
.
__,_._,___
Nenhum comentário:
Postar um comentário