Safadan

ASMET67

Altın Üye
Katılım
8 Haziran 2007
Mesajlar
410
Excel Vers. ve Dili
Excel 2016
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.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,802
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Sayfanın kod kısmındaki kodları silin, aşağıdakileri kopyalayın.
Kod:
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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

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