+/-1 Şeklinde Otomatik filtre sorunu hk.

[volkan5454]

Selamlar üstatlarım değişken bir hücren var burada yazan rakamları filtrelerken +/- 1 şeklinde getirmek istiyorum örnek dosya ekte.

Örnek olarak hücrede 5 yazıyor ben makroya basında 4,5,6 yı bulsun istiyorum.

İndir Artı eksi makrolu

Dosyayı indir Artı eksi makrolu

dosya.co

 

[ÖmerFaruk]

Dosyanız bomboş

 

[volkan5454]

Dosyanız bomboş

hocam yanlış soyayı yüklemişim orjinali burada

İndir Artı eksi makrolu

Dosyayı indir Artı eksi makrolu

dosya.co

 

[Orion1]

Buyurun.
Makro kaydet ile yaptım.

ActiveSheet.Range("$H$2:$H$38").AutoFilter Field:=1, Criteria1:=">=" & Range("H2").Value - 1, _
        Operator:=xlAnd, Criteria2:="<=" & Range("H2").Value + 1

 

[volkan5454]

Buyurun.
Makro kaydet ile yaptım.

ActiveSheet.Range("$H$2:$H$38").AutoFilter Field:=1, Criteria1:=">=" & Range("H2").Value - 1, _
        Operator:=xlAnd, Criteria2:="<=" & Range("H2").Value + 1

Hocam eline sağlık, aklına sağlık güzel oldu