Texbox sorguları

[kykbt]

Arkadaşlar merhaba

Aşağıdaki kodda

---Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value & "*" ---

yazıldığında texbox içinde ne var ise onunla başlayanları süzdürüyor.

Bu sorguda neleri değiştirerek içerir, içermez, büyükse, küçükse, gi diğer kodların listesi gibi bir şey varmı gerektiğinde kullanabilmek maksadı ile

Private Sub TextBox1_Change() 'ile başlayan

METİN1 = TextBox1.Value

Set FC2 = Range("a3:a65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address),
Scroll:=False

Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value & "*"

End Sub

 

[dEdE]

.... sorguda neleri değiştirerek içerir, içermez, büyükse, küçükse, gi diğer kodların listesi gibi bir şey varmı ......

Merhaba,

Elbette var.
Bir excel sayfasına otomatik filitre uyguladıktan sonra; Araçlar/Makro/Yeni Makro Kaydet yoluyla sorduklarınızı uygulayınız.
VBA editörünü açtığınızda Modülün içinde sorularınızın yanıtını bulacaksınız..

Hoşça kalın.

 

[kykbt]

Arkadaş Merhaba

İlgin için Teşekkür ediyorum.

Bu dediğini yapmış idim ancak orada Field:= kısmının nasıl calıştığını cıkaramamıştım.
Bunu cözdüm Field:= kodu SUTUN nosunu olmalı imiş.