Sudah bisa mas dede..terimakasih atas bantuannya juga pada mas hendrik dan mr.kid saya sampaikan terimakasih juga
Pada tanggal 14 Feb 2017 2.04 PM, "'Dede Sulaeman' [email protected] [belajar-excel]" < [email protected]> menulis: > > > Dear Mr. Farud, > > > > Semoga sesuai harapan. > > > > Salam, > > DD > > > > *From:* [email protected] [mailto:belajar-excel@ > yahoogroups.com] > *Sent:* 14 Februari 2017 13:05 > *To:* [email protected] > *Subject:* Re: [belajar-excel] Menyembunyikan kolom berdasarkan angka > tertentu [1 Attachment] > > > > > > terimakasih pada bang hendrik.. > > sudah saya coba script macronya tapi terdapat debug di ( Target = > Range("C3").Value )seperti yg tampak dalam gambar,mohon solusinya bang HK > > > > 2017-02-14 10:32 GMT+07:00 hendrik karnadi [email protected] > [belajar-excel] <[email protected]>: > > > > Hai Farud, > > Coba copas ini di VBE Sheet (Sheet1) > > > > Private Sub Worksheet_Change(ByVal Target As Range) > > Target = Range("C3").Value > > If Target = 1 Then > > Columns("D:O").EntireColumn.Hidden = True > > Columns("D:F").EntireColumn.Hidden = False > > End If > > If Target = 2 Then > > Columns("D:O").EntireColumn.Hidden = True > > Columns("G:I").EntireColumn.Hidden = False > > End If > > If Target = 3 Then > > Columns("D:O").EntireColumn.Hidden = True > > Columns("J:L").EntireColumn.Hidden = False > > End If > > If Target = 4 Then > > Columns("D:O").EntireColumn.Hidden = True > > Columns("M:O").EntireColumn.Hidden = False > > End If > > End Sub > > > > Salam, > > HK > > > ------------------------------ > > *From:* "farud oke [email protected] [belajar-excel]" < > [email protected]> > *To:* [email protected] > *Sent:* Monday, 13 February 2017, 6:36 > *Subject:* [belajar-excel] Menyembunyikan kolom berdasarkan angka > tertentu [1 Attachment] > > > > > > Assalamualaikum master excel... > > Mohon bantuannya... > > Bagaimana caranya menyembunyikan kolom berdasarkan kriteria/angka > tertentu,untuk lebih jelasnya bisa dilihat di filenya > > Atas bantuannya saya sampaikan terimakasih > > > > > > >
