Dear BeExceller & Hendrik Karnadi, Terima kasih atas reply-nya. Rumus tersebut sesuai dengan yang saya inginkan tetapi jika kolom A1 posisinya dalam keadaan kosong (kata "ACEG" dihapus), kolom B, D, F H, I & J tidak kembali muncul. Dan jika kolom A1 saya ganti dengan kata ACFH, kolom B, D, E, G, I & J, tidak dalam keadaan di hiden (tersembunyi) dan seterusnya & seterusnya.
Mohon informasinya. Terima kasih, Harry ________________________________ Dari: hendrik karnadi <hendrikkarn...@yahoo.com> Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> Dikirim: Sabtu, 13 Oktober 2012 7:44 Judul: Re: [belajar-excel] Hiden kolom dengan kreteria Dear Harry, Coba ketik (copy paste) macro di bawah ini pada Sheet1 atau Module1, dengan catatan: Color dibuat pada Range A3:J3 (tidak perlu ditulis pada Range A1) dan Kriteria Color dibuat pada Range A23 Sub Sembunyikan() Dim KritColor Dim Rng As Range Range("A3:J3").EntireColumn.Hidden = False Set Rng = Range("A3:J3") KritColor = Range("A23").Interior.Color For Each r In Rng If r.Interior.Color <> KritColor Then r.EntireColumn.Hidden = True End If Next r End Sub Salam, Hendrik Karnadi ________________________________ From: Harry <hariansyah...@yahoo.com> To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> Sent: Friday, 12 October 2012, 23:41 Subject: [belajar-excel] Hiden kolom dengan kreteria Dear BeExceller, Saya ingin menampilkan kolom dan menyembunyikan (hiden) kolom yang yang saya inginkan sesuai dengan kreteria yang saya masukkan sebagaimana terlampir. Mohon penceraan dari rekan-rekan BeExceller akan hal tersebut. Terima kasih, Harry