Otomatik filtreleme hk.

[volkan5454]

Merhaba üstadlarım AF2 hücresinde değişken 0,3 gibi virgüllü sayılarım var ben bu hücreye makro ile filtre yapıyorum, fakat hücredeki sayı değişinde örneğin 1,2 veya başka bir sayı makro birşey bulamıyor kullandığım formül yanlış galiba nereyi düzenlemem gerekir. Şimdiden teşekkür ederim.

Range("AF2").Select
ActiveSheet.Range("$A$1:$BK$13043").AutoFilter Field:=32, Criteria1:=Range("AF2")

 

[Korhan Ayhan]

Kendinize uyarlayınız.

Option Explicit

Sub Test()
    Range("A1:A" & Rows.Count).AutoFilter 1
    Range("A1:A" & Rows.Count).AutoFilter 1, "=" & Range("D1")
End Sub

 

[volkan5454]

Kendinize uyarlayınız.

Option Explicit

Sub Test()
    Range("A1:A" & Rows.Count).AutoFilter 1
    Range("A1:A" & Rows.Count).AutoFilter 1, "=" & Range("D1")
End Sub

Hocam çok teşekkür ederim yardımınız için, harika oldu sorunsuz çalışıyor.

Range("AE2:AE" & Rows.Count).AutoFilter 31
Range("AE2:AE" & Rows.Count).AutoFilter 31, "=" & Range("AE2")
End Sub