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 <[email protected]> menulis:
Dari: Anggana, Agung <[email protected]> Judul: RE: ]] XL-mania [[ Nanya fungsi loop Kepada: [email protected] 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: [email protected] [mailto:[email protected]] On Behalf Of Fani Romdhoni Sent: Monday, August 06, 2012 2:10 PM To: [email protected] 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.
