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

quinta-feira, 25 de abril de 2013

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

Coba gunakan script prosedur Hapus berikut ini :
Public Sub Hapus()
    Dim sht As Worksheet    'var object sheet yang dikerjakan

    For Each sht In ThisWorkbook.Worksheets     'di setiap sheet
        With sht    'pada sht kerja
            .AutoFilterMode = False     'turnoff autofilter
            With .Range("a1")           'pada range a1 nya
                'sort kolom C (offset 2 kolom dari kolom A) : descending
                .CurrentRegion.Sort .Offset(0, 2), xlDescending, Header:=xlYes, Orientation:=xlSortColumns

                'autofilter kolom C (kolom ke-3) : <1
                .CurrentRegion.AutoFilter 3, "<1"

                'hapus baris hasil filter berdasar data yang tampak di kolom C
                .CurrentRegion.Resize(, 1).Offset(1, 2).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            End With
            .AutoFilterMode = False     'turnoff autofilter
        End With
    Next sht        'ke sheet berikutnya
End Sub

Wassalam,

Kid.

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 (3)

Recent Activity:

New Members 40

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error           |
+-------------------------------------------------------------------+
| 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