iki değer arası listeleme

[timik]

Merhaba,

Benim sorunum excel Tablosunda belirtilen sayı aralığına göre buttona basıldığında listelenmesi.

Program: excel 2003 ing

 

[mesuttasar]

Sanırım istediğiniz ekteki gibi bir şey.

 

[timik]

Tesekkür ederim mesuttasar ellerine sağlık bu macro yu da istiyecektim. Çok isabet olmuş.
Birde aynı sayfa üzerinde bunu nasıl yapabiliriz.

 

[mesuttasar]

Tesekkür ederim mesuttasar ellerine sağlık bu macro yu da istiyecektim. Çok isabet olmuş.
Birde aynı sayfa üzerinde bunu nasıl yapabiliriz.

Aynı sayfada listenin en altında olabilirmi?
Eğer öyle olursa kodları ona göre revize edebilirim.

 

[timik]

Aslında aynı veriler üzerinde olması işimize yarar. Autofilter macrosu ile tarih arası sitede buldum ama sayı olarak bulamadım.

iki tarih arası bulduğum macro..
-------------
Sub süz()
Range("A4").AutoFilter
Range("a4").AutoFilter Field:=7, Criteria1:=">=" & CDbl(Range("q2").Value), Operator:=xlAnd _
, Criteria2:="<=" & CDbl(Range("r2").Value)

End Sub
-----------
Bunu ben iki sayı arası nasıl derleyebilirim.

 

[mesuttasar]

Aslında aynı veriler üzerinde olması işimize yarar. Autofilter macrosu ile tarih arası sitede buldum ama sayı olarak bulamadım.

iki tarih arası bulduğum macro..
-------------
Sub süz()
Range("A4").AutoFilter
Range("a4").AutoFilter Field:=7, Criteria1:=">=" & CDbl(Range("q2").Value), Operator:=xlAnd _
, Criteria2:="<=" & CDbl(Range("r2").Value)

End Sub
-----------
Bunu ben iki sayı arası nasıl derleyebilirim.

Kırmızı ile belirttiğim yerleri silerek q2 ve r2 yerine I4 ve I5 olarak denermisiniz?

 

[mesuttasar]

Sub süz()
Range("A3:f43").AutoFilter
Range("a3:f43").AutoFilter Field:=6, Criteria1:=">=" & Range("ı4").Value, Operator:=xlAnd _
, Criteria2:="<=" & Range("ı5").Value

End Sub

şeklinde deneyiniz.

 

[mesuttasar]

Bunları dosyanıza ekledim , incelermisiniz?

 

[timik]

Teşekkür ederim mesuttasar, Harikasın.

 

[mesuttasar]

Teşekkür ederim mesuttasar, Harikasın.

Rica ederim sayın timik , harika olan bu siteyi kuran ve bana neyi nasıl yapılacağını öğreten , bilgilerini esirgemeyen değerli uzmanlarımız