Sütun gizle-göster

[M.ACAR]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1]) Is Nothing Then Exit Sub
If Target = "GENEL" Then
Cells.EntireColumn.Hidden = False
ElseIf Target = "a" Then
Range("E:E,G:G,K:M,J:AC").EntireColumn.Hidden = True
ElseIf Target = "b" Then
Range("E:E,G:G,AA:AQ").EntireColumn.Hidden = True
End If
End Sub

İle seçtiğim aralıkdaki sütunları gizliyor,yada gösteriyorum,fakat a seçili olduğunda b'ye geçtiğimde sütunların hepsi gizleniyor,Benim istediğim a'dan b'ye geçiş yaptığımda b'deki aralığın gizlenmesi,b'den a'ya geçtiğimde a'daki aralığın gizlenmesi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1]) Is Nothing Then Exit Sub
[COLOR=red]Cells.EntireColumn.Hidden = False[/COLOR]
If Target = "GENEL" Then
Cells.EntireColumn.Hidden = False
ElseIf Target = "a" Then
Range("E:E,G:G,K:M,J:AC").EntireColumn.Hidden = True
ElseIf Target = "b" Then
Range("E:E,G:G,AA:AQ").EntireColumn.Hidden = True
End If
End Sub

 

[M.ACAR]

Korhan bey yardımınız için çok teşekkür ederim.