O ya pak hendrik, malah lupa tidak terbaca hhehehe
From: [email protected] [mailto:[email protected]] On Behalf Of hendrik karnadi Sent: 20 September 2012 13:47 To: [email protected] Subject: Re: [belajar-excel] FW: filter baris Coba lihat pesan warna merahnya Pak. Sdh disorot datanya Pak ? Salam, Hendrik Karnadi _____ From: Prazt Math <[email protected]> To: [email protected] Sent: Thursday, 20 September 2012, 13:31 Subject: RE: [belajar-excel] FW: filter baris Setelah saya jalankan macronya dari pk Hendrik masih ada kendala seperti berikut (yang diblok kuning): Public Sub FilterRow() 'Updated from SortperRow of Mr. Kid Dim r As Range, rng As Range, rngData As Range Dim lCols As Long Selection.Copy Sheets("Sheet2").Range("C8") 'Data (SELECTION) dicopy ke Sheet2 Range C8 Sheets("Sheet2").Select 'Pilih Sheet2 Set rngData = Sheets("Sheet2").Range("C8").CurrentRegion 'setting rngData pada Sheet2 lCols = rngData.Columns.Count 'setting jumlah kolom pada rngData 'sortir rngData dan ganti angka 0 dengan ""(kosong) For Each rng In rngData.Resize(, 1) rng.Resize(1, lCols).Sort rng, xlDescending, Header:=xlNo, Orientation:=xlSortRows rng.Resize(1, lCols).Select For Each r In Selection If r = 0 Then r = "" Next r Next rng End Sub From: [email protected] [mailto:[email protected]] On Behalf Of hendrik karnadi Sent: 20 September 2012 0:12 To: [email protected] Subject: Re: [belajar-excel] FW: filter baris VBA serupa (SortperRow) pernah ditulis oleh Mr. Kid dan dirilis pada tgl 17 Sep 2012. Contoh kasus yang anda lampirkan adalah bagaimana memfilter (menghilangkan) angka 0, bisa ditafsirkan sebagai : - menyortir - menghilangkan angka 0 Macronya adalah sbb: Public Sub FilterRow() 'Updated from SortperRow of Mr. Kid Dim r As Range, rng As Range, rngData As Range Dim lCols As Long Selection.Copy Sheets("Sheet2").Range("C8") 'Data (SELECTION) dicopy ke Sheet2 Range C8 Sheets("Sheet2").Select 'Pilih Sheet2 Set rngData = Sheets("Sheet2").Range("C8").CurrentRegion 'setting rngData pada Sheet2 lCols = rngData.Columns.Count 'setting jumlah kolom pada rngData 'sortir rngData dan ganti angka 0 dengan ""(kosong) For Each rng In rngData.Resize(, 1) rng.Resize(1, lCols).Sort rng, xlDescending, Header:=xlNo, Orientation:=xlSortRows rng.Resize(1, lCols).Select For Each r In Selection If r = 0 Then r = "" Next r Next rng End Sub Cara menjalankannya : Sorot data pada Sheet1 kemudian klik tombol pada Sheet1 Semoga "pas" dengan kebutuhan. Salam, Hendrik Karnadi _____ From: Prazt Math <[email protected]> To: [email protected] Sent: Wednesday, 19 September 2012, 12:44 Subject: [belajar-excel] FW: filter baris Mohon maaf pertanyaannya malah kebalik karena saking bingungya, pertanyaan saya ulang: Dear para suhu excell, ane mau minta bantuan pada para exceller tapi mohon maaf apabila sudah ada pertanyaan yang serupa dan agak sembrono. Bagaimana cara memfilter kolom, kalau selama ini yang saya tahu masih filter baris..?? From: Prazt Math [mailto:[email protected]] Sent: 19 September 2012 12:40 To: [email protected] Subject: filter baris Dear para suhu excell, ane mau minta bantuan pada para exceller tapi mohon maaf apabila sudah ada pertanyaan yang serupa dan agak sembrono. Bagaimana cara memfilter baris, kalau selama ini yang saya tahu masih filter kolom..??
