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