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
