filtreleme

[karaelmas4467]

b2 hücresine veri girdiğimde b sütununda o verinin bulunduğu satırın haricindeki satırların gizlenmesini sildiğimde ise gizlenen satırların geri gelmesini, c2 hücresine veri girdiğimde c sütununda o verinin bulunduğu satırın haricindeki satırların gizlenmesini sildiğimde ise gizlenen satırların geri gelmesini sağlamak mümkün olabilir mi. ilgilenenler için şimdidenteşekürler.

 

[Orion1]

Kodlar çalışma sayfasının kod bölümünde.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim deg1 As String, deg As String
If Intersect(Target, [B2:C2]) Is Nothing Then Exit Sub
On Error Resume Next
If Range("B2").Value = "" And Range("C2").Value = "" Then
    Range("A3").AutoFilter
    Exit Sub
End If
If Range("B2").Value <> "" Then
    deg1 = Range("B2").Value
    Else
    deg1 = "*"
End If
If Range("C2").Value <> "" Then
    deg2 = Range("C2").Value
    Else
    deg2 = "*"
End If
Range("A3").AutoFilter
Range("A3").AutoFilter field:=2, Criteria1:=deg1
Range("A3").AutoFilter field:=3, Criteria1:=deg2
End Sub

 

[karaelmas4467]

Kodlar çalışma sayfasının kod bölümünde.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:C2]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 2 Then
    If Range("B2").Value <> "" Then
        Range("A3").AutoFilter
        Range("A3").AutoFilter field:=2, Criteria1:=Range("B2").Value
        Else
        Range("A3").AutoFilter
    End If
End If
If Target.Column = 3 Then
    If Range("C2").Value <> "" Then
        Range("A3").AutoFilter
        Range("A3").AutoFilter field:=3, Criteria1:=Range("C2").Value
        Else
        Range("A3").AutoFilter
    End If
End If
End Sub

teşekür ederim güzel olmuş. fakat b2 ye veri girdiğimde uygulanan filtre c2 ye veri girince iptal oluyor sadece c2 ye göre filtreleme yapıyor. bunu b2 ye göre filtreledikten sonra c2 ye veri girince b deki filtre bozulmadan üzerine c sütunu da filtrelensin. yani 2 kritere göre filtreleme gibi. umarım anlatabilmişimdir. tekrar teşekürler.

 

[Orion1]

teşekür ederim güzel olmuş. fakat b2 ye veri girdiğimde uygulanan filtre c2 ye veri girince iptal oluyor sadece c2 ye göre filtreleme yapıyor. bunu b2 ye göre filtreledikten sonra c2 ye veri girince b deki filtre bozulmadan üzerine c sütunu da filtrelensin. yani 2 kritere göre filtreleme gibi. umarım anlatabilmişimdir. tekrar teşekürler.

Bunu baştan söylemeliydiniz.

 

[Orion1]

Dosyayı düzenledim .2 numaralı mesajdan indirebilirsiniz.

 

[karaelmas4467]

teşekür ederim..