Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 17 de outubro de 2011

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

 


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 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
 
 
 
 


__._,_.___
Recent Activity:
+-:: 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.

.

__,_._,___

Nenhum comentário:

Arquivo do blog