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 <[email protected]>
> **
>
>
> 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
>
>
>
