silahkan dicoba macro berikut:
Sub HapusNol()
Const strKey As String = "Sum of Saldo Akhir"
Dim rgData As Range, rgFilter As Range
Set rgFilter = Range("F1:F2")
Range("F1:F2") = Application.Transpose(Array(strKey, "0"))
Set rgData = Range("A1").CurrentRegion
'menfilter sesuai kriteria
rgData.AdvancedFilter xlFilterInPlace, rgFilter
'menghapus data yang terfilter
rgData.Offset(1, 0).EntireRow.Delete
'non actifkan filter
ActiveSheet.ShowAllData
End Sub
From: [email protected] [mailto:[email protected]]
On Behalf Of hendrik karnadi
Sent: Friday, April 12, 2013 12:24 PM
To: [email protected]
Subject: [belajar-excel] Fw: Menghapus nilai 0 sekaligus
Maaf, maksud saya menghapus baris yang nilainya 0.
Terima kasih.
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Friday, 12 April 2013, 12:18
Subject: Menghapus nilai 0 sekaligus
Rekan2 Be-Exceller,
Dalam data terlampir ada Sum of Saldo Akhir (Kolom C) yang nilainya 0.
Bagaimana perintah macronya untuk menghapus nilai 0 sekaligus (tanpa
looping)?
Terima kasih
Salam,
Hendrik
