Ondalıklı Sayı Filtreleme Yardım

[volkan5454]

Öncelikle selamlar, ondalık sayılar yazan bir AE2 hücrem var aşağıdaki formülle ben bu hücreye otomatik filtre yapıyorum, benim istediğim Hücrede yazan değerin + - 1 olarak filtre yapması, örnek olarak AE2 hücresinde 0,5 yazıyor ben filtre yaptığımda 0,4/0,5/0,6 olarak karşıma çıkmasını istiyorum bu mümkün müdür acaba?

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

 

[ÖmerBey]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Range("AE2:AE" & Rows.Count).AutoFilter 31, ">=" & Range("AE2") - 0.1, xlAnd, "<=" & Range("AE2") + 0.1

 

[volkan5454]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Range("AE2:AE" & Rows.Count).AutoFilter 31, ">=" & Range("AE2") - 0.1, xlAnd, "<=" & Range("AE2") + 0.1

bu şekilde denediğimde bir sonuç çıkmıyor

 

[volkan5454]

ayrıca aynı şekilde yüzdelik değer yazan bir hücrede aşağıdaki şekilde sonuç alıyorum fakat bunu ondalık sayıya uyarlıyamadım

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

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

 

[ÖmerBey]

Örnek dosya paylaşır mısınız?

 

[volkan5454]

Örnek dosya paylaşır mısınız?

İndir Otomatik filtreleme

Dosyayı indir Otomatik filtreleme

dosya.co

Hocam B2 hücrem değişken orada yazan sayıya göre filtre yapıyorum,

 

[ÖmerBey]

Tekrar merhaba,
Örnek dosyanız için 0,1 farkla filtreleme makrosu aşağıdaki şekildedir.

Sub ONDALIK3()
'
' ONDALIK3 Makro
'

'
    Range("B2:B" & Rows.Count).AutoFilter 1
    Range("B2:B" & Rows.Count).AutoFilter 1, ">=" & Str(Range("B2") - 0.1), xlAnd, "<=" & Str(Range("B2") + 0.1)

End Sub

 

[volkan5454]

Tekrar merhaba,
Örnek dosyanız için 0,1 farkla filtreleme makrosu aşağıdaki şekildedir.

Sub ONDALIK3()
'
' ONDALIK3 Makro
'

'
    Range("B2:B" & Rows.Count).AutoFilter 1
    Range("B2:B" & Rows.Count).AutoFilter 1, ">=" & Str(Range("B2") - 0.1), xlAnd, "<=" & Str(Range("B2") + 0.1)

End Sub

Hocam Allah razı olsun çok güzel oldu teşekkür ederim, emeğine sağlık.

 

[ÖmerBey]

Allah hepimizden razı olsun.
Rica ederim, iyi çalışmalar...