Butonla Süzme İşlemi

[teonet]

Merhabalar,

Butonla süzme işlemi yapabilir miyiz? İlgili örnek ektedir.

Saygılarımla

 

[hamitcan]

Sadece bir buton için yaptım, diğerlerini siz, çoğaltın.

Private Sub CommandButton1_Click()
Sheet1.Range("B7:F1000").AutoFilter _
    field:=5, _
    Criteria1:="a", _
    VisibleDropDown:=False
End Sub

Private Sub CommandButton5_Click()
'***************BIRAK*************
ActiveSheet.ShowAllData
End Sub

 

[teonet]

Çok teşekkürler Sayın hamitcan süper olmuş.. ellerinize sağlık.