Malzeme grupları şeçimi

[mbattal]

Arkadaşlar Merhabalar,
Ekte ki dosyamda belirttiğim bir nevi filtreleme makrosunu inceleyip yardım ederseniz çok sevinirim.

Teşekkürler

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1, Criteria1:="AHŞAP"
End Sub

Private Sub CommandButton2_Click()
Selection.AutoFilter Field:=1, Criteria1:="PLASTİK"
End Sub

Private Sub CommandButton4_Click()
Selection.AutoFilter Field:=1, Criteria1:="KAĞIT"
End Sub

Private Sub CommandButton3_Click()
Selection.AutoFilter Field:=1, Criteria1:="ÇELİK"
End Sub

Private Sub CommandButton5_Click()
UserForm1.Hide
End Sub

 

[mbattal]

Sayın Orion 2
Çok teşekkür ederim
listenin tümünü göstermesi için userforma bir buton eklesek nasıl bir kod yazmalıyız.
Saygılarımla

 

[Orion1]

Sayın Orion 2
Çok teşekkür ederim
listenin tümünü göstermesi için userforma bir buton eklesek nasıl bir kod yazmalıyız.
Saygılarımla

Merhaba.
Aşağıdaki kodu kullanabilirsiniz.

Selection.AutoFilter Field:=1