Hi Mas Fani,
Sama2 masih belajar semoga macronya berjalan dengan yg di inginkan
Sub test()
Dim A
Range("c1").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[5]C[-1]:R[49999]C[-1])"
A = Selection
Selection.ClearContents
Range("c5").Select
For i = 1 To A
Do While Range("C" & i) <> ""
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
ActiveCell.Offset(0, -1).Select
Selection.Copy
ActiveSheet.Paste
ActiveCell.Offset(1, 1).Select
Next i
End Sub
Thanks,
-----Original Message-----
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On
Behalf Of Fani Romdhoni
Sent: Monday, August 06, 2012 2:10 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Nanya fungsi loop
<http://geo.yahoo.com/serv?s=97359714/grpId=15197196/grpspId=1708298821/
msgId=20919/stime=1344214175/nc1=4507179/nc2=5898817/nc3=5758223>
Help.....
mohon bantuan para master
saya mencoba membuat macro sederhana terlampir.
macro saya tidak mau berhenti sampai habis baris.
mohon petunjuk menggunakan fungsi loop yg baik, agar jika sampai akhir
data berhenti.
This email and any attachments are confidential and may also be privileged. If you are not the addressee, do not disclose, copy, circulate or in any other way use or rely on the information contained in this email or any attachments. If received in error, notify the sender immediately and delete this email and any attachments from your system. Emails cannot be guaranteed to be secure or error free as the message and any attachments could be intercepted, corrupted, lost, delayed, incomplete or amended. Standard Chartered PLC and its subsidiaries do not accept liability for damage caused by this email or any attachments and may monitor email traffic.
Standard Chartered PLC is incorporated in England with limited liability under company number 966425 and has its registered office at 1 Aldermanbury Square, London, EC2V 7SB.
Standard Chartered Bank ("SCB") is incorporated in England with limited liability by Royal Charter 1853, under reference ZC18. The Principal Office of SCB is situated in England at 1 Aldermanbury Square, London EC2V 7SB. In the United Kingdom, SCB is authorised and regulated by the Financial Services Authority under FSA register number 114276.
If you are receiving this email from SCB outside the UK, please click http://www.standardchartered.com/global/email_disclaimer.html to refer to the information on other jurisdictions.
| Selamat beribadah puasa... |
+-------------------------------------------------------------------+
| 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.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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário