Sayısal ve Metinsel Filtreleme Konusunda Yardım

[Tarikkk_]

Merhabalar
çalışma kitabımda 2 sayfa var ALIŞ-SATIŞ ve EKSTRE Sayfaları her 2 sayfada FİŞ No sütunları var ve ActiveX ile Filtreleme Kullanmaktayım

ALIŞ-SATIŞ sayfasında FİŞ No Sütunundaki değerleri Metinsel yaptığım için Filtre sorunsuz çalışmakta Ekstrede ise Listeleme yaptığımda Fiş No sütunundaki filtre çalışmamakta filtrenin olduğu sütunu Metinsel olarak biçimlendirdim yine çalışmadı aşağıdaki kodu kullanmaktayım çalışması için düzeltmem gereken bir yer varsa yardımlarınızı bekliyorum. şimdiden teşekkür ederim.

Private Sub Fiş_Filtre_Extre_Change()
    If Fiş_Filtre_Extre = "" Then
        ActiveSheet.Range("$B$5:$T$50000").AutoFilter Field:=4
    Else
        aranan = "*" & SFiş_Filtre_Extre & "*"
        ActiveSheet.Range("$B$5:$T$50000").AutoFilter Field:=4, Criteria1:= _
        aranan, Operator:=xlAnd
    End If
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[Korhan Ayhan]

Hücreyi METİN olarak biçimlendirmeniz yeterli değildir. Hücre içine girip-çıkmanız gerekir. Yani bir nevi F2+ENTER işlemi ya da METNİ SÜTUNLARA DÖNÜŞTÜR işlemi yapılması gerekir.

Ondan sonra makronuzu kullanabilirsiniz.