TextBox üzerinden arama yapmak

[Mikdad]

S.a dostlarım, ekte verdiğim dosyaya TextBox ekledim ama sorgulama yapmasını sağlayamadım.

Private Sub TextBox1_Change()
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
End Sub

bu kod ile sadece kart noyu sorgulayabiliyorum. ama diğerleri için bu çalışmadı.
ve yaptığım sorguda mesela 103 yazdığımda sorguluyor ama 103 ü sildiğim zaman tüm veriler geri gelmiyor. yardımcı olurmusunzu lütfen.

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Private Sub TextBox_KartNo_Change()
Range("A3").AutoFilter field:=1
If IsNumeric(TextBox_KartNo.Value) Then
    Range("A3").AutoFilter field:=1, Criteria1:=TextBox_KartNo.Value
End If
End Sub

 

[Mikdad]

s.a hocam , ben bir türlü entegre edemedim.
mesela kart no kısmında yazmaya başladığımda aşağıdaki listedekiler tamamen siliniyor. kart noyu tam olarak yazmadan bilgi gelmiyor. yani ben 1 yazdığımda 1 ile başlayan 10 yazdığımda 10 ile başlayan 103 yazdığımda 103 ile başlayanları sıralanacak. aynı kodu da adi için kullandığımda hata veriyor. eğer sorun olmayacaksa kodu size verdiğim ek dosyaya işleyebilir misiniz? Allah Razı Olsun

 

[Orion1]

s.a hocam , ben bir türlü entegre edemedim.
mesela kart no kısmında yazmaya başladığımda aşağıdaki listedekiler tamamen siliniyor. kart noyu tam olarak yazmadan bilgi gelmiyor. yani ben 1 yazdığımda 1 ile başlayan 10 yazdığımda 10 ile başlayan 103 yazdığımda 103 ile başlayanları sıralanacak. aynı kodu da adi için kullandığımda hata veriyor. eğer sorun olmayacaksa kodu size verdiğim ek dosyaya işleyebilir misiniz? Allah Razı Olsun

Evet gelmez.
Daha öncede söylediğim gibi sayısal alanda içerir ve ile başlar şeklinde süzme yapamazsınız.Sayısal alanları mutlaka değeri tam yazmalısınız.String alanlarda ile başlar ve içerir süzme yapabilirsiniz.

 

[Mikdad]

Evet gelmez.
Daha öncede söylediğim gibi sayısal alanda içerir ve ile başlar şeklinde süzme yapamazsınız.Sayısal alanları mutlaka değeri tam yazmalısınız.String alanlarda ile başlar ve içerir süzme yapabilirsiniz.

S.A Hocam
ben bu komutu kullanıyorum normalde g sutunundan sorgulama yapması gerekirken h sutununda sorgulama yapıyor sebebini de çözemedim. yardımcı olurmusunuz.

Private Sub TextBox8_Change()
On Error Resume Next
SAYI = TextBox8 = Format(CCur(TextBox8.Value), "#,##0.00")
Set FC2 = Range("G7:J65000").Find(What:=SAYI)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=8, Criteria1:=TextBox8.Value
If SAYI = "" Then
Selection.AutoFilter Field:=8
End If
End Sub

 

[algerian]

Private Sub TextBox8_Change()
On Error Resume Next
SAYI = TextBox8 = Format(CCur(TextBox8.Value), "#,##0.00")
Set FC2 = Range("G7:J65000").Find(What:=SAYI)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=7, Criteria1:=TextBox8.Value
If SAYI = "" Then
Selection.AutoFilter Field:=7
End If
End Sub

yukarıdaki değişikliği deneyiniz