Terima kasih Pak Zainul, Salam, HK
________________________________ From: zainul_ulum[at]yahoo[dot]com <[email protected]> To: [email protected] 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: [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
