Soru değere göre sütunları gizleme

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G3]) Is Nothing Then Exit Sub
If [G3] = "Norm Kadro Eksik" Then
Sayfa1.Range("H:L").EntireColumn.Hidden = True
ElseIf [G3] <> "Norm Kadro Eksik" Then
Sayfa1.Range("H:L").EntireColumn.Hidden = False
End If
End Sub

G3 Hücresinde çalışan makroyu G3:G20 aralığında çalışır duruma nasıl getirebilirim?
Teşekkür ederim.

 

[YUSUF44]

Deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G3:G20]) Is Nothing Then Exit Sub
If Target = "Norm Kadro Eksik" Then
    Sayfa1.Range("H:L").EntireColumn.Hidden = True
Else
    Sayfa1.Range("H:L").EntireColumn.Hidden = False
End If
End Sub

Sizin kodda ilk IF şartında "Norm KADro Eksik" ise işlem yaptırıyorsunuz, değilse ikinci IF devreye giriyor. Ancak zaten kullandığınız ikinci IF satırı ilk IF şartı dışındaki durumları kapsadığı için tekrar şart belirtmenize gerek yok, bu nedenle ElseIf kısmını iptal ettim.

 

[sirkülasyon]

Teşekkür ederim Yusuf Abi