RE: ]] XL-mania [[ Nanya fungsi loop

 

Terima kasih sebelumnya master2, mohon maaf mungkin kurang jelas pertanyaan saya..... untuk loop sudah setengah benar yaitu jika ditemukan lebih besar dari nol (>0) maka dieksekusi dan kolom berpindah ke kolom B untuk mengcopy-nya sebagai lookup_value untuk mengisi kolom coordinat yaitu kolom x,y,z. yang saya inginkan jika dikolom c ditemukan lebih besar dari nol tetapi kolom b=0 maka end. berhenti sampai disini, sehingga tidak dieksekusi sampai kolom berakhir. --- Pada Sel, 7/8/12, Anggana, Agung <agung.anggana@sc.com> menulis: Dari: Anggana, Agung <agung.anggana@sc.com> Judul: RE: ]] XL-mania [[ Nanya fungsi loop Kepada: XL-mania@yahoogroups.com Tanggal: Selasa, 7 Agustus, 2012, 9:00 AM   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.

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 37

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___