Filtrenin, İçeriği Sayı Olan Sütunda Çalışmaması

[asuzen]

Merhabalar arkadaşlar.
Ekte bulunan dosyada forumda bulduğum filtreleme makrosunu kullanarak yaptığım bir liste bulunmakta.
Benim sorunum SAYI olan TC Kimlik no sütundaki filtrenin sayının tamamını girmeden aktif olmaması.
Örneğin İsim sütunundaki filtre kutusuna isimi girmeye başladığımda girdiğim harfleri içeren satırlar, Ünvan sütunundaki filtre kutusuna ünvanı girmeye başladığımda girdiğim harflerle başlayan satırlar filtreleniyor. Ancak TC Kimlik no sütunu SAYI olduğu için sayının tamamını girmeden filtreleme çalışmıyor.
Bu konuda nasıl bir çözüm bulunabilir? Makronun düzeltilmesi mümkün müdür yoksa yeni bir makro kullanımı mı gerekir?
Ustalarımız yardımcı olursa sevinirim.

 

[asuzen]

Arkadaşlar yardımcı olabilecek kimse yok mu?

 

[Korhan Ayhan]

Merhaba,

Sayısal alanlarda "içerir" ya da "ile başlar" gibi yöntemler kullanamazsınız. Matematiksel ifadelerle süzme yapabilirsiniz.

Aşağıdaki gibi...

=
>
<
>=
<=
<>

 

[asuzen]

Merhaba,

Sayısal alanlarda "içerir" ya da "ile başlar" gibi yöntemler kullanamazsınız. Matematiksel ifadelerle süzme yapabilirsiniz.

Aşağıdaki gibi...

=
>
<
>=
<=
<>

Cevabınız için teşekkürler hocam. Yapacak birşey yok yani o zaman.
Hücre biçimlendirmeden hücre içeriğini metin bile yapsam olmuyor maalesef. Hiç bir şekilde olmayacak sanırım.

 

[Korhan Ayhan]

Merhaba,

Hücre biçimini "METİN" olarak ayarlayıp hücrelere F2+ENTER yaparsanız sonuç alabilirsiniz.

Örnek dosya ektedir. İnceleyiniz.

 

[asuzen]

Hocam F2+ENTER yapınca oluyor. Metin olarak denemiştim ama F2+ENTER yapmamıştım. Tabi bunun için de bir makro bulmam gerekiyor. Herşey için teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub F2_ENTER()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    Range("D1").Select
    
    For X = 1 To Cells(Rows.Count, "D").End(3).Row
        DoEvents
        SendKeys "{F2}", True
        SendKeys "{Enter}", True
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[asuzen]

Teşekkür ederim hocam.

 

[asuzen]

Hocam F2_ENTER makrosu d sütunu 26. satırdan sonra d sütunundaki her hücreye d3 deki veriyi yapıştırıyor. Bu makronun son satırını nasıl belirleyebiliriz?

 

[asuzen]

Hocam, ekran güncellemesi yapan "Application.ScreenUpdating" satırını devredışı bırakıp (satırın başına tek tırnak (') koyunca ya da satırı silince) sorunsuz çalışıyor.
Son hali:

Sub F2_ENTER()
    Dim X As Long
    
'    Application.ScreenUpdating = False
    
    Range("D3").Select
    
    For X = 1 To Cells(Rows.Count, "D").End(3).Row
        DoEvents
        SendKeys "{F2}", True
        SendKeys "{Enter}", True
    Next
 
'    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

şeklinde

 

[asuzen]

Kullanmak isteyen arkadaşlar için -sütun değerlerini metine çevirme de dahil- son hali:

Sub F2_ENTER()
    Dim X As Long
    
    
    Columns("D:D").Select
    Selection.NumberFormat = "@"
'    Application.ScreenUpdating = False
    
    Range("D3").Select
    
    For X = 1 To Cells(Rows.Count, "D").End(3).Row
        DoEvents
        SendKeys "{F2}", True
        SendKeys "{Enter}", True
    Next
 
 '   Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

şeklindedir. Bu şekilde d sütunundaki değerleri metine çevirip dolu tüm hücrelere F2+ENTER uygulamaktadır. Hocama tekrar teşekkür ederim.