mcetinkaya65
Altın Üye
- Katılım
- 1 Mart 2011
- Mesajlar
- 490
- Excel Vers. ve Dili
- 2021 türkçe
Aşagıdaki makrolarla, bir excelde 3 başlıkta, arama motoru oluşumunu stenizden buldum.
1.Bu üç texs box un sadece birine veri girilebilsin.daha önce girilen ve silinmeyen veriler bir sonraki texs box a veri girilince silinmesi,
2.Yazmaya başlayınca aramayı ilk kelimenin solundan başlayıp devam etmesi mümkün mü?
Saygılarımla..
Option Explicit
Private Sub TextBox1_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=2, Criteria1 _
:="*" & TextBox1.Value & "*"
End Sub
Private Sub TextBox2_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=3, Criteria1 _
:="*" & TextBox2.Value & "*"
End Sub
Private Sub TextBox3_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=4, Criteria1 _
:="*" & TextBox3.Value & "*"
End Sub
1.Bu üç texs box un sadece birine veri girilebilsin.daha önce girilen ve silinmeyen veriler bir sonraki texs box a veri girilince silinmesi,
2.Yazmaya başlayınca aramayı ilk kelimenin solundan başlayıp devam etmesi mümkün mü?
Saygılarımla..
Option Explicit
Private Sub TextBox1_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=2, Criteria1 _
:="*" & TextBox1.Value & "*"
End Sub
Private Sub TextBox2_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=3, Criteria1 _
:="*" & TextBox2.Value & "*"
End Sub
Private Sub TextBox3_Change()
ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=4, Criteria1 _
:="*" & TextBox3.Value & "*"
End Sub
Son düzenleme:
