Optionbutonu ile süzme

[melphisto]

Merhaba arkadaşlar,
Ekte siparişleri takip etmek için bir dosyam var.
Burada kalan siparişleri görmek için, bir option buton koymak istiyorum. Kalan siparişlere tıkladığımda kalan kımında sadece sıfırdan büyükleri gösterecek şekilde listeyi süzmeli. Şimdiden teşekkürler

 

[hamitcan]

Aşağıdaki şekilde deneyin

Private Sub OptionButton1_Click()
Selection.AutoFilter Field:=9
End Sub

Private Sub OptionButton2_Click()
Selection.AutoFilter Field:=9, Criteria1:=">0", Operator:=xlAnd
End Sub

 

[Recep İpek]

Tümü için;

Private Sub OptionButton1_Click()
On Error Resume Next
[A6:J1000].AutoFilter
End Sub

0'dan büyükler için ise;

Private Sub OptionButton2_Click()
On Error Resume Next
[A6:J1000].AutoFilter Field:=10, Criteria1:=">0"
End Sub

kodlarını sayfanın VBE bölümüne yazmanız yeterlidir.

 

[melphisto]

Sayın Hamitcan ve Ripek,
ikinizinde ellerine sağlık, ikiside tam istediğim gibi çalışıyor,
çok teşekkürler