TexBox Sorunu..!

[sensizsoldum]

Merhaba,
F1 deki texbox A sütunda ki verileri süzmeye yarıyor.
veri varken aktif, veri yokken deaktif olarak özelliği var burda sıkıntım yok.
veriyi silerken örneğin veri 4 karekter ben 5 kere sildiğimde f3 hücresine seçili yer f3 oluyor. bunu texbox dışına çıksın istemiyorum.
2 olarak ise otomatik süzme geliyor, bunu sadece a2 satırına uygulansın istiyorum b ve sonrasında süzme olmasın istıyorum.
bu konuda yardımcı olabilirmısınız kodlarda ne gibi değişiklık yapmam lazım.

iyi akşamlar dilerim.

 

[Levent Menteşoğlu]

Textboxtaki kodu aşağıdaki ile değiştireren deneyin.

Private Sub TextBox1_Change()
On Error Resume Next
metin = TextBox1.Value
If metin = "" Then
Range("A2:A65536").AutoFilter
Exit Sub
End If
Set bul = Range("A3:A65000").Find(What:=metin)
Application.GoTo Reference:=Range(bul.Address), Scroll:=False
Range("A2:A65536").AutoFilter field:=1, Criteria1:=TextBox1.Value & "*"
End Sub

 

[sensizsoldum]

Levent bey çok tşk ederim. inanın altın bulmuş gibi sevindım. testlerim sonucunda herhangi bir sorun göremedim umarım olmazda çok sağolun.

 

[sensizsoldum]

Merhabalar,
Necdet hocam bu yazdığınız kodları bir başka çalışmada da kullanamak istiyorum.
Bu kodlar a sütunu için geçerli, ben B , C, D sütunlarında da arama yapmak istiyorum.
her sütunun üstünde texbox olacak şekilde, texbox ekledim. ve vrilen kodlarda ki sütun isimlerini de değiştirdim. sonuca gidemedim. sadece B sütunda rakamlardan arama olacak.
Buna göre de uyarlama yapabilirmiyiz, yardımcı olursanız çok memnun olurum.

 

[Mustafa MUTLU]

Private Sub TextBox1_Change()
On Error Resume Next
metin = TextBox1.Value
If metin = "" Then
Range("a2:a65536").AutoFilter
Exit Sub
End If
Set bul = Range("a2:a65000").Find(What:=metin)
Application.GoTo Reference:=Range(bul.Address), Scroll:=False
Range("a2:a65536").AutoFilter field:=1, Criteria1:=TextBox1.Value & "*"
End Sub
'::::::::::::::::::::::::::::::::::
Private Sub TextBox2_Change()
On Error Resume Next
metin = TextBox2.Value
If metin = "" Then
Range("b2:b65536").AutoFilter
Exit Sub
End If
Set bul = Range("b2:b65000").Find(What:=metin)
Application.GoTo Reference:=Range(bul.Address), Scroll:=False
Range("b2:b65536").AutoFilter field:=1, Criteria1:=TextBox2.Value & "*"
End Sub
'::::::::::::::::::::::::::::::::::
Private Sub TextBox3_Change()
On Error Resume Next
metin = TextBox3.Value
If metin = "" Then
Range("c2:c65536").AutoFilter
Exit Sub
End If
Set bul = Range("c3:c65000").Find(What:=metin)
Application.GoTo Reference:=Range(bul.Address), Scroll:=False
Range("c2:c65536").AutoFilter field:=1, Criteria1:=TextBox3.Value & "*"
End Sub

 

[sensizsoldum]

Merhaba Mustafa Bey, Teşekkür ederim, elinize sağlık..
İyi çalışmalar dilerim

 

[sensizsoldum]

Merhaba Mustafa Bey,
B sütundaki kodu rakama göre uyarlayabilirmiyiz.
rakamdan arama yapamıyorm.

 

[sensizsoldum]

Merhaba,
arkadaşlar aşağıda vermiş olduğum kod rakamdan arama yapmıyor. bu kodu rakama göre uyarlayabilmemiz mümkünmü, yada ne değiştirilmesi gerekiyor.
yardımcı olursanız memnun olurum.


Private Sub TextBox1_Change()
On Error Resume Next
metin = TextBox1.Value
If metin = "" Then
Range("A2:A65536").AutoFilter
Exit Sub
End If
Set bul = Range("A3:A65000").Find(What:=metin)
Application.GoTo Reference:=Range(bul.Address), Scroll:=False
Range("A2:A65536").AutoFilter field:=1, Criteria1:=TextBox1.Value & "*"
End Sub