Telefon numarası filitreleme

[kahramang1]

Merhabalar. Excel tablosunda B2 hücresine ya da TextBox a telefon numarasının içinde geçen bir kaç rakamı yazınca (Örn: 7789, 7833 gibi) filitreleme yapan bir vba kodu yazar mısınız.

 

[Muzaffer Ali]

Merhaba.
Telefon numaraları a sütununda varsayarsak B1'e yazdığınız rakamları filtre yapar.

Aşağıdaki kodu Telefon numaralarının olduğu sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B1"), Target) Is Nothing Then
        Range("A:A").AutoFilter Field:=1, Criteria1:="=*" & Range("B1").Text & "*"
    End If
End Sub

 

[kahramang1]

Merhaba.
Telefon numaraları a sütununda varsayarsak B1'e yazdığınız rakamları filtre yapar.

Aşağıdaki kodu Telefon numaralarının olduğu sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B1"), Target) Is Nothing Then
        Range("A:A").AutoFilter Field:=1, Criteria1:="=*" & Range("B1").Text & "*"
    End If
End Sub

Örneğin 7789 yazıyorum. alt satırları tamamen sıfırlıyor. 7789 içeren telefon numarasını göstermiyor.

 

[Korhan Ayhan]

Klasik filtre yönteminde SAYISAL veriler için İÇERİR şeklinde filtre uygulayamazsınız.

Bunun için TELEFON NUMARALARINI metin biçimine dönüştürmeniz gerekir. Ya da DİZİ yöntemiyle filtre uygulama yöntemini kullanmanız gerekir.

 

[kahramang1]

Klasik filtre yönteminde SAYISAL veriler için İÇERİR şeklinde filtre uygulayamazsınız.

Bunun için TELEFON NUMARALARINI metin biçimine dönüştürmeniz gerekir. Ya da DİZİ yöntemiyle filtre uygulama yöntemini kullanmanız gerekir.

En kısa zamanda deneyip dönüş yaparım inşallah. İlginiz için çok teşekkürler.