microsoft outlook yinelenen adresler

[turkanet]

merhaba arkadaşlar,

microsoft outlook adres defterimde 3500e yakın kontak var. yinelenen eposta adreslerini bulmak için ne yapılır?

teşekkürler

 

[Haluk]

MS Outlook' da File >> Import-Export menusu ile "Contacts" klasörünü Excel'e "export" edin.

Daha sonra, bu Excel dosyasını açın. Orada bir şekilde ayıklamanızı yaptıktan sonra Excel dosyasını kaydedip, kapatın.

Şimdi, Ms Outlook' da "contacts" klasörünün içindekilerini tamamen silin.

Daha sonra yine MS Outlook' da File >> Import-Export menusu ile, bu Excel dosyasından "ayıklanmış" şekilde "contacts" elemanlarını MS Outlook'a "import" edin.

Ben, bu söylediklerimi az önce yaptım, gayet başarılı oldu ...

Not: Uygulama sorumluluğu size aittir.

 

[turkanet]

Sn.Haluk,
çok değerli yardımınız için teşekkür ederim. ama 3500 kontaktan aynılarını aynı sütun içinde bulmak konusunda da yardımınıza ihtiyacım var.
=EĞER(EĞERSAY(email;BG25)>1;DOĞRU; YANLI&#350 koşullu biçimlendirme formülünü ilk hücreye girip sütunun tamamına biçimleri kopyala deyip kopyaladım. kırmızı renk vermiştim biçimlendirmeye ve aynı hücreler kırmızı oldu. ama o kadar çok kırmızı oldu ki, aynıları bulup temizlemek günlerimi alacak. aklımda 2 fikir var;

1-BG sütunundaki aynı hücrelerden sadece birini seçip diğerlerinin tüm satırını silecek bir makro (BG sütununda email bilgileri var. zaten sorun da bu mükerrer email girdileri)
2-her aynı grup hücreyi farklı renklendirecek makro yada koşullu biçimlendirme

değerli yardımlarınızı beklerim,

 

[Haluk]

BG sütunundaki mükerrer verilerden biri hariç diğerlerinin bulunduğu satırları silmek üzere aşağıdaki kodu kullanabilirsiniz;

Sub Test()
    Dim NoBG As Long
    Dim MyRng As Range
    Dim MyCell As Range
    NoBG = Range("BG65536").End(xlUp).Row
    Set MyRng = Range("BG1:BG" & NoBG)
    For Each MyCell In MyRng
        If WorksheetFunction.CountIf(MyRng, MyCell) > 1 Then
        Rows(MyCell.Row).Delete
    End If
    Next
End Sub

Daha sonra, MS Outlook'a "import" edersiniz.

 

[turkanet]

Minnettarım, ofisteki tüm arkadaşlarda aynı sorun vardı, yine ışık oldunuz.

saygılarımla...