Terima kasih Pak Zainul,
Salam,
HK
________________________________
From: zainul_ulum[at]yahoo[dot]com <zainul_u...@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 12 April 2013, 13:47
Subject: RE: [belajar-excel] Fw: Menghapus nilai 0 sekaligus
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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Friday, April 12, 2013 12:24 PM
To: belajar-excel@yahoogroups.com
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 <hendrikkarn...@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
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
