Tekrarlanan mailleri silme

[Akinero]

Aynı hücrede alt alta yazılmış birden fazla AYNI mailleri nasıl silebilirim?

 

[Akinero]

Amaç aynı hücrede birden fazla aynı mailin yazılı olmasını engellemek, her mailin 1 kere yazılı olmasını sağlamak.

 

[Necdet]

Merhaba,

Örnek dosya eklerken örneklerin basit ve anlaşılır olmasına dikkat etmek gerek.
birbirine benzeyen mail adresleri olunca gözle bunları kontrol ederken aynı mail adresi sanıyor, yazdığı kodlardan şüphe duyuyor.

Oysa örneğinizi ahmet,mehmet,ahmet vs gibi tekrarlayın 3-4 veride verseniz olay daha açıklayıcı olacaktır.

Aşağıdaki kodları bir modüle ekleyip deneyiniz. Sonucu B sütununa yazar, siz kendineze göre uyarlayıp doğrudan A sütununa yazdırabilirsiniz, doğru çalıştığından emin olduktan sonra.

Public Sub TekTekBasaraktan()

Dim t   As String
Dim d   As Variant

Dim i   As Long
Dim j   As Integer
Dim sd  As Variant


For i = 2 To Cells(Rows.Count, "A").End(3).Row
    Set sd = CreateObject("Scripting.Dictionary")
    d = Split(Cells(i, "A"), Chr(10))
    For j = 0 To UBound(d)
        If Not sd.exists(Trim(d(j))) Then sd.Add d(j), ""
    Next j
    Cells(i, "B") = Join(sd.keys, Chr(10))
    Set sd = Nothing
Next i

End Sub

 

[Akinero]

Teşekkürler Necdet bey

 

[Necdet]

güle güle kullanınız.