Özel Otomatik Filtre örneği

[banakodla]

Merhabalar arkadaşlar,

Belki basit belki zor bir sorum olacaktı excel uzmanlarına.

Örnek olarak veriyorum şayet elimde 70 bin satırlık bir dosya var, yardımlarınız ile ayıklama yapacağım.

Oluşturduğum sayfada A sütununda (A:1 de Telefonlar) telefon numaraları yazmaktadır.

Yazılan bu numaralar cep telefonu ve ev telefonu şeklindedir.

Kullanmak istediğim filtre ile sadece cep telefonlarını listeletmek istiyorum.

Ve son olarakta örneğin aynı telefon numarasından 2 veya daha fazla mevcut ise de aynı verilerin gözükmemesi istiyorum.

Bunun için nasıl bir filtreleme yapmam gerek yardımcı olabilecek kimse var mı ?

Çalışma sayfası örneği;

http://prntscr.com/2246ux

Telefonlar temsilidir, gerçeği yansıtmamaktadır.

Saygılarımla.

 

[Emir Hüseyin Çoban]

. . .

1.Adım

2.Adım

3.Adım
A sütununu seçip, Yinelenenleri Kaldırı tıkla.
Ancak tekrar eden tüm numaralarıda silecektir.

. . .

 

[Emir Hüseyin Çoban]

. . .

Kodlar ile çözüm.
Dosya ekte.

Sub KOD()
Application.ScreenUpdating = False
Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
sat = 2
S2.Range("A2:A" & S2.Range("A" & Rows.Count).End(3).Row).ClearContents
    
    For i = 2 To S1.Range("A" & Rows.Count).End(3).Row
        If S1.Cells(i, "A") Like "5" & "*" Then
            S2.Cells(sat, "A") = S1.Cells(i, "A")
            sat = sat + 1
        End If
    Next i
    
    For i = S2.Range("A" & Rows.Count).End(3).Row To 2 Step -1
        If WorksheetFunction.CountIf(S2.Range("A:A"), S2.Cells(i, "A")) <> 1 Then
            S2.Rows(i).Delete
        End If
    Next i
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .