Soru Birden fazla koşula göre satır gizleme

[MESUT K]

Herkese Selamlar

Aşağıdaki kod düzeniyle ilgili sıkıntım var."A1" ve "O1" hücrelerindeki değerlere göre satır gizleme yapılmaktadır.

"A1" hücresi AA,BB,CC değerlerini alırken

"O1" hücresi X ve Z değerlerini almaktadır.Kodda eksiklik var çalışmıyor.Bilen arkadaşlardan yardım istiyorum.

Saygılarımla

If Intersect(Target, [O1],[A1]) Is Nothing Then Exit Sub
If [A1] = "AA" And [O1] = "X" Then

    Rows("4:38").EntireRow.Hidden = False
    Rows("39:120").EntireRow.Hidden = True
    Rows("121:148").EntireRow.Hidden = False
    Rows("149:170").EntireRow.Hidden = True
    Rows("171:173").EntireRow.Hidden = False
    Rows("174:176").EntireRow.Hidden = True
    Rows("177:185").EntireRow.Hidden = False
    
    ElseIf [A1] = "BB" And [O1] = "X" Then
    Rows("4:25").EntireRow.Hidden = False
    Rows("26:30").EntireRow.Hidden = True
    Rows("31").EntireRow.Hidden = False
    Rows("32:36").EntireRow.Hidden = True
    Rows("32:36").EntireRow.Hidden = True
    Rows("37:38").EntireRow.Hidden = False
    Rows("39:120").EntireRow.Hidden = False
    Rows("121:148").EntireRow.Hidden = False
    Rows("149:170").EntireRow.Hidden = True
    Rows("171:173").EntireRow.Hidden = False
    Rows("174:176").EntireRow.Hidden = True
    Rows("177:185").EntireRow.Hidden = False
    
    ElseIf [A1] = "CC" And [O1] = "X" Then
    Rows("4:17").EntireRow.Hidden = False
    Rows("18:36").EntireRow.Hidden = True
    Rows("37:38").EntireRow.Hidden = False
    Rows("39:120").EntireRow.Hidden = False
    Rows("121:148").EntireRow.Hidden = False
    Rows("149:170").EntireRow.Hidden = True
    Rows("171:173").EntireRow.Hidden = False
    Rows("174:176").EntireRow.Hidden = True
    Rows("177:185").EntireRow.Hidden = False
    
    ElseIf [A1] = "AA" And [O1] = "Z" Then
    Rows("4:185").EntireRow.Hidden = False
    
    ElseIf [A1] = "BB" And [O1] = "Z" Then
    Rows("4:185").EntireRow.Hidden = False
    
    ElseIf [A1] = "CC" And [O1] = "Z" Then
    Rows("4:185").EntireRow.Hidden = False
    
    End If


End Sub

 

[YUSUF44]

İkinci satırı yani Target belirleme satırını aşağıdaki gibi değiştirip deneyin:

If Intersect(Target, [O1, A1]) Is Nothing Then Exit Sub

 

[MESUT K]

Yusuf Bey denedim fakat olmadı

 

[YUSUF44]

Bende olmuştu. Dosyayı hatalı haliyle paylaşır mısınız?

 

[MESUT K]

Yusuf Bey dosyayı ekledim

İndir birden fazla koşul

Dosyayı indir birden fazla koşul

dosya.co