Yüzdelik Filtreleme

[volkan5454]

Merhaba sayın hocalarım W2 hüzceremde değişken yüz delikli değerlerim var ( örn: %71) ben bunu otomatik filtreleme ile yapıyorum, bazı durumlarda +-%1 şeklinde filtrelemem gerekiyor yani otomatik filtre yaptığımda %70 , %71, %72 değerlerini filtrelemesini istiyorum, bunu yapmak mümkün müdür acaba, aşağıda kullandığım formülü yazdım, bu formül bana direk hücrede yazan değeri getiriyor.
Şimdiden çok teşekkür ederim değerli yorumlarınız için.


Range("W2").Select
ActiveSheet.Range("$A$1:$BH$14488").AutoFilter Field:=23, Criteria1:=Format(Range("W2"), "0%")

 

[Ömer]

Merhaba,

Sorunuz net olmadığı için +1 ve +2 olarak yazdım.
Deneyiniz.

d = Array(Format(Range("W2"), "0%"), Format(Range("W2") + 0.01, "0%"), Format(Range("W2") + 0.02, "0%"))

Range("W2").Select
ActiveSheet.Range("$A$1:$BH$14488").AutoFilter Field:=23, Criteria1:=d, Operator:=xlFilterValues

 

[volkan5454]

Hocam Allah razı olsun - 0,01 olarak değiştirdim çok güzel oldu.


d = Array(Format(Range("W2"), "0%"), Format(Range("W2") + 0.01, "0%"), Format(Range("W2") - 0.01, "0%"))

Range("W2").Select
ActiveSheet.Range("$A$1:$BH$14488").AutoFilter Field:=23, Criteria1:=d, Operator:=xlFilterValues