Soru Koşulun İçine sütün gizleme dahil etmek

[stirra_ej]

Sub Subat_29()
If Range("ad5").Value = Range("ag5").Value Then
Range("ad10:ad24").ClearContents
''''''''Columns( "ad5" ).Hidden = True''''''''''
End If
End Sub

Arkadaşlar yukarıda bir şart oluşturdum ad10 ile ad24 arasını temizledikten sonra ad sütününu gizlemesini istiyorum yardımcı olabilirmisiniz lütfen..

 

[Seyit Tiken]

Bu şekilde deneyin. Tek butonda gizle-göster yaparsanız alttaki kodu aktif edin.

[ad5].EntireColumn.Hidden = 1
'[ad5].EntireColumn.Hidden = [ad5].EntireColumn.Hidden = 0

 

[stirra_ej]

Teşekkür ederim arkadaşlar. Şu şekilde yaptım gayette hoş oldu..

If Range("ad5").Value = Range("ag5").Value Then
Columns("ad").Select
Selection.EntireColumn.Hidden = True
Else
Columns("ad").Select
Selection.EntireColumn.Hidden = False
End If