Textbox ile sayfa içerisinde süzme

[SELIMT]

Değerli forum üyeleri merhaba;

Aşağıda belirtmiş olduğum kod ile tarih süzmesi yapmak istiyorum. Fakat excel de yeni olduğum için bir türlü işin içerisinden çıkamıyorum. Değerli yardımlarınızı rica eder, herkese esenlikler dilerim.

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("B8:V10000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

 

[Muzaffer Ali]

Private Sub TextBox1_Change()
    ActiveSheet.Range("B:V").AutoFilter Field:=1, Criteria1:=TextBox1.Text
End Sub

B sutünundan V sutünuna kadar 1. kolonda arama yaparak filitre yapar siz kaçıncı kolonda arama yapılmasını istiyosanız (Field:=1) ona göre değiştirin

 

[SELIMT]

Sn. Dalgalıkur Merhaba;

İlgi ve cevabınızdan dolayı çok teşekkür ederim. Ama maalesef vermiş olduğunuz kod tarih olarak süzme yapmıyor. Vermiş olduğum kod üzerinde nereleri değiştirmem gerekiyor, veya textbox 1 change olayında tarih süzmesini nasıl yapabilirim?

 

[Muzaffer Ali]

örnek dosyanızı ekleyin üzerinde yapalım.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Sayın Korhan Ayhan'nın
Bir Örneği Var
Belki İşinizi Görür
http://www.excel.web.tr/f14/excel-sayfasyndaki-verilerin-textbox-ile-suzme-t65884.html

 

[SELIMT]

Çalışma dosyam ekte bilgilerinize sunulmuştur. Textbox1 C sütunundaki tarihleri süzmesini istiyorum.

Saygılarımla;

 

[ZorBey_]

İyi Çalışmalar
Denermisiniz
Private Sub TextBox1_Change()
On Error Resume Next
TARİH = TextBox1.Value = CDate(TextBox1.Value)
Set FC2 = Range("B8:V10000").Find(What:=TARİH)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:=CDate(TextBox1.Value)
If TARİH = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

 

[SELIMT]

Sayın Asr35;

İlgi ve alakanızdan dolayı çok teşekkür ediyorum. Ellerinize sağlık, tam istediğim gibi oldu.

Saygılarımla;

 

[ZorBey_]

Kolay Gelsin
İyi Çalışmalar