Hazır kodda bir düzeltme

[adigeturklim]

Merhabalar,

Daha önce bu konuda sayın Veyselemre ve sayın Orion1 tarafından yardımcı olunmuştu sağolsunlar. Ben aşağıdaki hazır koda bir ekelem yapılabilir mi ricaında bulunmak isterim. Aşağıdaki kodda "If Cells(9, i).Value = [c1].Value Then" olarak yazılan kısıma aynı sorguyu yapacak şekilde "If Cells(10, i).Value = [c1].Value Then" şeklinde bir ekleme yapabilir miyiz. Yani 9 ve 10 satırları beraber kontrol etmesi gerekiyor.

Sub sutunGizle()
    Application.ScreenUpdating = False
    For i = 3 To 74
        If Cells(9, i).Value = [c1].Value Then
            Columns(i).Hidden = False
        Else
            Columns(i).Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub sutunGizle()
    Application.ScreenUpdating = False
    For i = 3 To 74
        If Cells(9, i).Value = [c1].Value And Cells(10, i).Value = [c1].Value Then
            Columns(i).Hidden = False
        Else
            Columns(i).Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[adigeturklim]

Merhaba Korhan Bey, kodu aşağıdaki gibi kullandım fakat malesef gizlememesi gereken tüm alanları gizledi

Sub sutunGizle()
Application.ScreenUpdating = False
For i = 4 To 207
If Cells(9, i).Value = [b7].Value And Cells(10, i).Value = [b7].Value Then
Columns(i).Hidden = True
Else
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b7]) Is Nothing Then Exit Sub
Call sutunGizle
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Korhan Ayhan]

Aşağıdaki ifadenizi koda uyguladım.

Ben ifadenize istinaden AND bağlacını kullandım. Dosyanızdaki duruma göre OR bağlacı işinize yarayabilir.

Eğer sonuç alamazsanız örnek dosyanızı ekleyin.

Merhabalar,
.... Yani 9 ve 10 satırları beraber kontrol etmesi gerekiyor.

 

[adigeturklim]

Merhaba Korhan Bey, bahsettiğiniz gibi "Or" bağlacı kodu doğru şekilde çalıştırdı. Yardımlarınız için teşekkür ederim. İyi Günler Dilerim