iki textbox arası süzme işlemi

[alcen]

Arkadaşlar ekteki dosyada anlattığım konu hakkında yardımlarınızı bekliyorum. Forumda aradım ama bir şey göremedim bu konuda.herkese merhabalar ....iyi çalışmalar.....

 

[tahsinanarat]

İki sayı arasını sorgulama

Ekli dosyanızı inceleyiniz

Sub sorgu()
Dim ilk As Long, son As Long
Dim sat As Long, i As Long
Sheets("GIRIS").Select
Application.ScreenUpdating = False
Range("F5:J65536").ClearContents
ilk = (Range("G2").Value)
son = (Range("H2").Value)
sat = 5
For i = 2 To Cells(65536, "D").End(xlUp).Row
If (Cells(i, "D").Value) >= ilk And _
(Cells(i, "D").Value) <= son Then
Cells(sat, "F").Value = sat - 4
Cells(sat, "G").Value = Cells(i, "A").Value
Cells(sat, "H").Value = Cells(i, "B").Value
Cells(sat, "I").Value = Cells(i, "C").Value
Cells(sat, "J").Value = Cells(i, "D").Value
sat = sat + 1
End If
Next i
Application.ScreenUpdating = True
'MsgBox "İşlem Tamam"
End Sub

 

[alcen]

İlginiz için teşekkür ederim ama benim aradığım metinleri filtrelemesi gerekiyor.

 

[tahsinanarat]

Metin dediğiniz neresi oluyor

İlginiz için teşekkür ederim ama benim aradığım metinleri filtrelemesi gerekiyor.

Kart No dediğiniz sutun mu? eğer öyleyse yapılan bu sıralama mantığı yanlışmı?

 

[alcen]

yok yaptığınız sayıları filtreliyor yanlış anlamadıysam. ben metinleri filtreleyebilecek bir makro arıyorum. daha doğrusu çalışmadaki bütün sütunlarda ayrı ayrı iki textbox kullanacağım ve iki değer arası aynı tabloda filtreleme yapmasını isteyeceğim.

 

[alcen]

On Error Resume Next
ActiveSheet.ShowAllData
    Range("B5").AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(TextBox2.Text)), Operator:=xlAnd _
        , Criteria2:="<=" & CLng(CDate(TextBox6.Text))

bu kod iki tarih arası filtreleme yapıyor bunun metin için kullanabileceğim formatını arıyorum. Daha doğrusu böyle....

 

[tahsinanarat]

Bulursanız bende sonucu merakla bekliyorum, Ben hiç iki metin arası sıralama olayına hiç rastlamadım.

 

[alcen]

Ahmet Mehmet girilsin textboxlardan. Ahmet ile Mehmet arasında kim varsa ahmet ali hale ....mehmet gibi. bir filtreleme olsun istiyorum. mümkün müdür?

 

[alcen]

Kodumda şu değişikleri yapınca metin filtrelemesi de yapıyor...



Criteria1 kısmını Criteria1:=">=" & TextBox1.Value olarak, Criteria2 kısmını ise Criteria2:="<=" & TextBox2.Value şeklinde değiştirdim.

 

[halit3]

Ben bunun combobox nesneleryle daha iyi olacağını düşünüyorum.

kod

Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.Text = "" Then
Selection.AutoFilter Field:=4
Else
ActiveSheet.ShowAllData
Range("d2").AutoFilter Field:=4, Criteria1:=">=" & ComboBox1.Text, Operator:=xlAnd, Criteria2:="<=" & ComboBox2.Text
End If
Range("D1").Select
End Sub
Private Sub ComboBox2_Change()
On Error Resume Next
If ComboBox2.Text = "" Then
Selection.AutoFilter Field:=4
Else
ActiveSheet.ShowAllData
Range("d2").AutoFilter Field:=4, Criteria1:=">=" & ComboBox1.Text, Operator:=xlAnd, Criteria2:="<=" & ComboBox2.Text
End If
Range("D1").Select
End Sub
Private Sub CommandButton1_Click()
ComboBox1.Text = ""
ComboBox2.Text = ""
son = Cells(Rows.Count, "D").End(3).Row + 1
ComboBox1.ListFillRange = "d2:d" & son
ComboBox2.ListFillRange = "d2:d" & son
End Sub
Private Sub Worksheet_Activate()
ComboBox1.Text = ""
ComboBox2.Text = ""
son = Cells(Rows.Count, "D").End(3).Row + 1
ComboBox1.ListFillRange = "d2:d" & son
ComboBox2.ListFillRange = "d2:d" & son
End Sub

 

[alcen]

Herkese fikirleri ve çözümleri için çok teşekkür ederim...
İyi günler....

 

[Hacı Bayram ÖZKAN]

Merhaba Halit bey; D sütunundaki verilere tarih girilince, bu tarihleri süzdürmek istiyorum, ancak bu tarihler Comboxlara sayı olarak geliyor, bunun tarih olarak gelmesi için nasıl bir kod nereye yazılır. Teşekkürler.

 

[halit3]

Merhaba Halit bey; D sütunundaki verilere tarih girilince, bu tarihleri süzdürmek istiyorum, ancak bu tarihler Comboxlara sayı olarak geliyor, bunun tarih olarak gelmesi için nasıl bir kod nereye yazılır. Teşekkürler.

Sayın tarzanhaci

Ekli dosyaya combobox nesnelerinin üzerine textbox nesnesi ekliyerek çözüm yolu buldum.

 

[Hacı Bayram ÖZKAN]

Teşekkürler abi yani buradan şunu anladık; Combobox'lara tarih formatı uygulanmıyor.