Hot Fox: Re: ]] XL-mania [[ Maximum Loop

domingo, 18 de setembro de 2011

Re: ]] XL-mania [[ Maximum Loop

maafkan diriku, tidak diundang ikut ngomong

saya pernah "mengadakan" loop yg jumlah perulangannya lebih dari 50000

tetap bisa jalan

mendelete (bukan menghapus isi data) ROW bersyarat, dengan loop,

lebih aman dilakukan secara mundur (terbalik), dari index baris terbawah

menuju index baris teratas.

misal MyRange adalah Range A1:AD65000

makro ini sudah dicoba, tidak macet, dan tugasnya berhasil

Sub Loooooooop()

'ctv / 18 sep 2011 / BeExcel

Dim MyRange As Range, r As Long, JmlBaris As Long

Set MyRange = Range("A1:AD65000")

JmlBaris = MyRange.Rows.Count

Application.Calculation = xlCalculationManual

' Loop 65ribu step menDELETED ROW PENUH yg kolom X nya bertuliskan "delete"

For r = JmlBaris To 1 Step -1

If LCase(MyRange(r + 1, 24)) = "delete" Then

MyRange(r + 1, 1).EntireRow.Delete

End If

Application.Calculation = xlCalculationAutomatic

MsgBox "SELESAI"

End Sub

cmiiw.-

siti

The DO and The DONT's ......
http://www.box.net/shared/2mbjr3g654k1ubiomijq

2011/9/17 Hachi Rizki <hachiuz_ld27@yahoo.co.id>

Dear Mr. Kid,
untuk tabel sourcenya sudah sesuai dengan asumsi Mr :d
sebenarnya tujuan saya adalah mendelete rownya, karena data yang ada "delete" nya tidak akan dipakai pada proses pengolahan data selanjutnya..

Setelah mengutak-atik saya menemukan caranya, logikanya sama dengan cara yang mas sebutkan, tapi scripnya agak beda...

Namun saya masih bertanya2 tentang jumlah maksimum loop..

karena rekan kerja saya juga mengalami hal serupa, dimana loop nya error ketika datanya sekitar 50.000-an

Ada yang bisa memberi penjelasan, atau kah ada error lainnya yang saya tidak sadar..

terima kasih,
Hachi

__._,_.___

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

Messages in this topic (8)

Recent Activity:

New Members 53

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin...                 |
| www.linkedin.com/company/xl-mania                                 |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D          |
+-------------------------------------------------------------------+
| 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.