Safadan

[ASMET67]

Merhaba sayın üstadlar
Yapmak istediğim dosyanın J2 sayfadan seçtiğim seçeneği L2 de yazan değere göre A ve F sutunları arasında filtrelemesi yapması.

F sununda formül var ve bu yüzden Filtreleri text filtresi olarak görüyor ve Girdiğimiz değerler sayısal olduğu için büyüktür, büyük eşittir, vb fitreleri yapmıyor.
Nasıl bir yol izlemem gerekiyor.

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmındaki kodları silin, aşağıdakileri kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Kriter As String
    If Not Intersect(Target, Range("J2")) Is Nothing Then
        Select Case Range("J2")
            Case "Eşittir"
                Kriter = "="
            Case "Eşit Değil"
                Kriter = "<>"
            Case "Büyüktür"
                Kriter = ">"
            Case "Büyük Yada Eşit"
                Kriter = ">="
            Case "Küçüktür"
                Kriter = "<"
            Case "Küçükyada Eşit"
                Kriter = "<="
            Case "Hepsi"
                Kriter = "*"
        End Select
        If Kriter = "*" Then
            ActiveSheet.ShowAllData
        ElseIf Kriter = "=" Then
            Kriter = Range("L2").Text
            ActiveSheet.Range("A:F").AutoFilter Field:=5, Criteria1:=Kriter, Operator:=xlAnd
        Else
            Kriter = Replace(Kriter & Range("L2").Text, ",", ".")
            ActiveSheet.Range("A:F").AutoFilter Field:=5, Criteria1:=Kriter, Operator:=xlAnd
        End If
    End If
End Sub

 

[ASMET67]

Çok teşekkürler
Emeğinize sağlık

 

[Korhan Ayhan]

Merhaba,

Konu başlığınız bize neyi anlatıyor?