ToggleButton yardımı ile çoklu makro çalıştırma.

[Bora K]

Merhabalar

Aşağıdaki kodlar ile K7:K3333 aralığındaki 2 tür veriye
süz işlemi yaptırtmaktayım. Lakin 3 farklı buton ile çalışmak
istemiyorum. Sizlerden istirhamım bu kodları toggle buton
altına toplamanız.
Saygılarımla.

Sub Onsekizi_Süz()
Range("K7:K3333").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="18%"
Range("A1").Select
End Sub

Sub Yirmibeşi_Süz()
Range("K7:K3333").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="25%"
Range("A1").Select
End Sub

Sub Karışık_Halde_Göster()
Range("K7:K3333").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1
Range("A1").Select
End Sub

 

[Muzaffer Ali]

Toogle butona gerek yok. Hem toogle butonun iki durumu var. aşağıdaki kodu bir butona yazarak kullanabilirsiniz

Private Sub CommandButton1_Click()
    Static Say As Integer
    Say = Say + 1
    
    Select Case Say
    Case 1
        Onsekizi_Süz
    Case 2
        Yirmibeşi_Süz
    Case 3
        Karışık_Halde_Göster
        Say = 0
    End Select
End Sub

 

[Bora K]

Çok çok teşekkür ediyorum.
Sayın dalgalıkur.
Sayenizde bilgim de artmış oldu.

İyi çalışmalar.