Şartlı sütun gizleme

[iznik]

Arkadaşlar ekte sunulan dosyada cumartesi ve pazar yazan günlere ait sütunların gizlenmesini istiyorum. Şimdiden teşekkürler.

 

[bedersu]

Sayın iznik,
Aslında doğru başlamışsınız fakat ufak hatalar yüzünden sonuç yanlış olmuş.Aşağıdaki kodlar işinize yarar umarım:

Sub a()
For Each ALAN In Range("k2:bt2")
If ALAN.Value = "Cumartesi" Or ALAN.Value = "Pazar" Then ALAN.EntireColumn.Hidden = True
Next
End Sub

 

[iznik]

Teşekkür ederim.

 

[iznik]

Peki bütün sütunları göstermek için nasıl bir makro yazmam gerekiyor. Teşekkürler.

 

[spaderua]

Şartlı Sütun Gösterme

Sub b()
For Each ALAN In Range("k2:bt2")
If ALAN.Value = "Cumartesi" Or ALAN.Value = "Pazar" Then ALAN.EntireColumn.Hidden = False
Next
End Sub

 

[iznik]

Teşekkür ederim.