süz

[tokerx22]

H sutununda 2 adet TextBox kutucugu var H sutununda sadece sayılardan olusan bir liste vardır .sagdaki TextBox ve soldakiTextBox a hangi sayılar yazarsam o iki sayı arasını süzme işlememi yapmasını istiyorum mumkünmü ...not: normalade süz gelişimsüzden istedigim degerleri süzüyorum ama bu sekilde bir uygulamanın olup olmayacanı merak etim..hayırlı günler

 

[uzmanamele]

merhaba

merakınızı gidermek için bu kodu deneyebilirsiniz.

Sub süz()
be = Sheets("sayfa1").TextBox1.Value
ke = Sheets("sayfa1").TextBox2.Value

    ActiveSheet.Range("$H$2:$H$43").AutoFilter Field:=1, _
    Criteria1:=">=" & be, Operator:=xlAnd, Criteria2:="<=" & ke
End Sub

 

[tokerx22]

teşekürler .. iyi çalısmalar

 

[tokerx22]

sayın hocam verdiginiz kodu kendi sayfamda uyarladım yalınız iki kutucukta bos oldugunda markoyu çalıstırdıgımda suzulmesı gereken sayfaları gizliyor ve birdaha bu satırlara ulaşamıyorum.iyi çalışmalar

 

[tokerx22]

hocam markoyu bos bir excel sayfasında denedigimizde sorunsuz çalışıyor yalınız kendi sayfama uyarlamaya çalıstım ama bir türlü H sutunundaki degerleri süzdürmeyi başaramadım

Sub süz()
be = Sheets("index").TextBox2.Value
ke = Sheets("index").TextBox3.Value

ActiveSheet.Range("$H$3:$H$1000").AutoFilter Field:=1, _
Criteria1:=">=" & be, Operator:=xlAnd, Criteria2:="<=" & ke
End Sub

kodu bu şekilde kendi sayfama uyarladım koddamı bir hata yaptım bilmiyorum uyarladıgım doysayı eke ekliyorum hayırı günler cümleten.

 

[uzmanamele]

merhaba

bunu deneyiniz

Sub süz()
If Sheets("index").TextBox2.Value = "" Or Sheets("index").TextBox3.Value = "" Then
MsgBox "süz kriterilerini giriniz"
Exit Sub
End If
be = Sheets("index").TextBox2.Value
ke = Sheets("index").TextBox3.Value

    ActiveSheet.Range("$H$3:$H$1000").AutoFilter Field:=8, _
    Criteria1:=">=" & be, Operator:=xlAnd, Criteria2:="<=" & ke
End Sub

not:
bir adım daha ileri gitmek gerekebilir.
TextBox2 değeri TextBox3 den büyükse,
her hangi birine sayısal olmayan bişey yazılmışsa uyarı mesajı vermek gerekir.

 

[Merhum İdris SERDAR]

.

Sub süz()
be = Sheets("index").TextBox2.Value
ke = Sheets("index").TextBox3.Value

ActiveSheet.Range("$H$3:$H$1000").AutoFilter Field:=[B][COLOR="Red"]8[/COLOR][/B], _
Criteria1:=">=" & be, Operator:=xlAnd, Criteria2:="<=" & ke
End Sub

yapın.

.

 

[tokerx22]

teşekkürler hayırlı günler iyi çalışmalar.