Texbox hk,

[sensizsoldum]

Merhaba,
Örnek çalışmada C3:C aralığında ki verileri istediğim gibi süzüyorum, bir değişikliğe ihtiyaç vardır.
Örneğin texbox a E1 yazıyorum, E1, E10,E11,E12,E13,E14 bunları da getiriyor. Ben texbox a ne yazılmışsa onu getirsin istiyorum. Texbox un diğer özellikleri değişmeden sadece bu düzenlemeyi yapabilir miyiz?

 

[Korhan Ayhan]

Merhaba,

Anladığım kadarıyla süzme işlemi "ile başlar" ya da "içerir" yöntemiyle yapılmış. Uyguladığınız kodu verirseniz nerede düzeltme yapacağınızı belirtebiliriz.

 

[sensizsoldum]

Günaydın Korhan Bey,
Hayırlı sabahlar dilerim, örnek çalışma ve kod ekledim sanıyordum çok üzgünüm özür dilerim. Yoğunluktan unuttum herhâlde. Hemen ekliyorum. İlgi ve alakanıza tekrar, tekrar teşekkür ederim.
İyi günler dilerim.









Private Sub TextBox2_Change()
On Error Resume Next
metin = TextBox2.Value
If metin = "" Then
Range("C2:C65536").AutoFilter
Exit Sub
End If
Set BUL = Range("C3:C65536").Find(What:=metin)
Application.GoTo Reference:=Range(BUL.Address), Scroll:=False
Range("C2:C65536").AutoFilter Field:=1, Criteria1:=TextBox2.Value & "*"
End Sub

 

[sensizsoldum]

Günaydın Korhan Bey,
Hayırlı sabahlar, hayırlı cumalar dilerim.
Texbox için örnek çalışma ve kodu ekledim. Vaktiniz olduğunda bakabilirseniz sevinirim.
iyi çalışmalar dilerim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satırdaki kırmızı bölümü silip deneyin.

Range("C2:C65536").AutoFilter Field:=1, Criteria1:=TextBox2.Value & "*"

 

[sensizsoldum]

Teşekkür ederim Korhan Bey,
Bu kadar kolay olacağını hiç mi hiç düşünmemiştim yeniden kod yazarsınız diye düşünüyordum.
Çok çok teşekkür ederim. Hayırlı cumalar iyi çalışmalar dilerim.