BUTON İLE FİLTRELEME

[BBBBuRaKKKK]

Merhaba arkadaşlar,

Ekte gönderdiğim tabloda, butona tıkladığımda ilgili "madde_no" ya göre filtrelemesini istiyorum.

Yardımlarınız için şimdiden teşekkürler.

 

[veyselemre]

Tüm verileri göstermesi için bir Dikdörtgen daha ekleyebilirsiniz. Hepsine filtrele makrosunu atayın.

Sub filtrele()
    With Sheets("Sayfa1")
        Select Case Application.Caller
            Case "Dikdörtgen 1": madde = 1
            Case "Dikdörtgen 4": madde = 2
            Case "Dikdörtgen 5": madde = 3
        End Select
        son = .Cells(Rows.Count, 1).End(3).Row
        If madde <> "" Then
            .Range("A1:C" & son).AutoFilter Field:=1, Criteria1:=madde
        Else
            .Range("A1:C" & son).AutoFilter
        End If
    End With
End Sub

 

[BBBBuRaKKKK]

Veysel bey teşekkür ederim. Ayrı ayrı module olmaktansa böylesi çok güzel olmuş. Emeğinize sağlık. İstediğimde buydu