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 <[email protected]>
To: "[email protected]" <[email protected]>
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
