Textbox ile süzme

[hakpin]

Arkadaşlar Merhaba;
Ekteki hazırladığım proğramda text box ile süzme işlemi kullandım, yalnız en son "O" Sütununu süzmesi için yapmış olduğum text box6 ile süzdürmeyi başaramadım. Bir yerde yanlış var ama anlayamadım.Yardımcı olursanız sevinirim. Şimdiden tüm forum arkadaşlarıma teşekkür ederim.

 

[conari]

Selection.AutoFilter Field:=14, Criteria1:=TextBox6.Value & "*"
If METİN3 = "" Then
Selection.AutoFilter Field:=14
End If

Şeklinde değiştirmelisin
field numarası hatalı
Birde süzülecek alanlara bu alanı eklemelisiniz.

 

[hakpin]

Sayın conari;
İlginizden dolayı teşekkür ederim. Yazdığınız gibi kopyalayıp çalıştırdım.
İşleriniz kolay gelsin.