Dear Mr. Farud,

 

Semoga sesuai harapan.

 

Salam,

DD

 

From: [email protected] [mailto:[email protected]] 
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

 

 



Attachment: sembunyi kolom.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke