Hot Fox: Re: ]] XL-mania [[ Short Dat dan Delete Baris Hasil Short

sábado, 27 de abril de 2013

Re: ]] XL-mania [[ Short Dat dan Delete Baris Hasil Short

koreksi dikit :

"Dim counter As Integer " nya tidak dipakai dalam script. tadi bikin dim nya, ganti nama jadi deletedR, tapi lalu lupa hapus :)

harap maklum, newbie soalnya :)

2013/4/27 WIRAnata Kemala Deng <kwiranata@gmail.com>

newbie coba bantu ya, sekalian saya belajar VBA juga :)

Sub cleanupsubOne()

Dim ws As Worksheet
Dim cell As Long

Dim wsNum As Integer

Dim counter As Integer

deletedR = 0 'dipakai untuk di msgbox
wsNum = ThisWorkbook.Sheets.Count 'dipakai untuk di msgbox

For Each ws In ThisWorkbook.Worksheets

    For cell = ws.Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
        If ws.Range("C" & cell).Value < 1 Then
            ws.Rows(cell).EntireRow.Delete
            deletedR = deletedR + 1
        End If
    Next cell
Next ws

MsgBox "number of rows deleted : " & deletedR & " from " & wsNum & " worksheets "

End Sub

2013/4/25 Samsul Arifin <syemy88@yahoo.co.id>

Para master-master excel semua

Bagaimana Script Macro

Untuk Short Qty yang kurang dari 1 ( < 1 )

Dan mendelete baris data yang Qty'nya < 1 secara otomatis

Karena Saya hanya membutuhkan Data dengan Qty 1 ke atas

Data Saya dalam 1 excel ada 31 Sheet, setiap sheet minimal 75ribu baris.

Saya ngerjain manual 3 bulan saja sudah lelah

Mohon di bantu.

Terima Kasih

Hormat Saya
Samsul Aripin

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (2)

Recent Activity:

New Members 36

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Merry Christmas. May God bless you and your family...             |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE