Believing
Altın Üye
- Katılım
- 19 Mayıs 2013
- Mesajlar
- 700
- Excel Vers. ve Dili
-
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 23-08-2028
Sayın Uzman arkadaşlar,
Excel çalışma kitabının "VERİTABANI" isimli sayfasına eklediğim textbox'lar ile süzme işlemi yapıyorum. "B" sütunu tarih formatında oluştuğundan, textbox'a tarihe ait rakamları girerek filtreleme yapmak istiyorum. Bu neden ile aşağıdaki mevcut kodu ne şekilde revize etmeliyim.
Saygılarımla,
Ömer Ali ÜZÜMCÜ
Excel çalışma kitabının "VERİTABANI" isimli sayfasına eklediğim textbox'lar ile süzme işlemi yapıyorum. "B" sütunu tarih formatında oluştuğundan, textbox'a tarihe ait rakamları girerek filtreleme yapmak istiyorum. Bu neden ile aşağıdaki mevcut kodu ne şekilde revize etmeliyim.
Saygılarımla,
Ömer Ali ÜZÜMCÜ
Kod:
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("B3:T15000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & METİN1 & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub