Mükerrerleri tüm satırıyla silen makro

[izcik]

Merhabalar

Arşivimde mükerrerleri teke düşüren, mükerrerlerin adetlerini toplayan dosyalarım var. Fakat adres telefon dosyam için şuna ihtiyacım oldu.

Aynı isimdeki mükerrerleri, bütün satırıyla silmek.

Örnek dosyada aynı isimde rehberler var, fakat telefon numaraları farklı olabilir, değişmiş olabilir, silinmiş olabilir. Önemli değil.

Önemli olan, mükerrer isimlerden herhangi birini, kendi satırıyla bırakması ve diğerlerini silmesi.

Örnek dosyada; 11 tane Ali Yılmaz satırı var. Ve karşılarında düzenli olmayan telefon numaraları.
Eşit görünmüyorlar. Olabilir.

Mükerrrer isim satırlarından birini bırakması, benim için yeterlidir.

Yani 2. satırdaki Ali Yılmaz da kalabilir, 12. satırdaki Ali Yılmaz da.. İşimi görür.

Teşekkürler iyi akşamlar.

ornek.xlsm dosyasını indir - download

ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Korhan Ayhan]

Kullandığınız excel sürümü yeni sürümse "Veri-Yinelenenleri Kaldır" menüsünü deneyebilirsiniz.

 

[izcik]

Kullandığınız excel sürümü yeni sürümse "Veri-Yinelenenleri Kaldır" menüsünü deneyebilirsiniz.

Sayın uzmanım, yanıtınızı görür görmez hemen denedim, zira “yinelenenleri kaldır” sürekli kullandığım bir özellikti.

Fakat bu dosyada işe yaramadı. Çünkü sanıyorum yan sütunlardaki verilerin de aynı olup olmadığına bakıyor.

Bundan dolayı mükerrerlerin bir kısmını silip bir kısmını tuttu.

Yani bana faydası olmadı.

 

[Korhan Ayhan]

İlgili menüyü açınca size sütun seçmeniz için bir seçim ekranı gelecek. Siz hangi sütuna göre mükerrer kaydı silmek istiyorsanız o sütunu/sütunları seçerek işleme devam etmelisiniz.

 

[Haluk]

Şöyle olmuyor mu ?




.

 

[izcik]

İlgili menüyü açınca size sütun seçmeniz için bir seçim ekranı gelecek. Siz hangi sütuna göre mükerrer kaydı silmek istiyorsanız o sütunu/sütunları seçerek işleme devam etmelisiniz.

Uzmanım olmadı. Denedim, yandaki sütunlarında birbiriyle aynı olup olmadığına bakıyor.

 

[izcik]

Şöyle olmuyor mu ?




.

Haluk uznanım olmadı maalesef. Yandaki sütunlar birbirinin tamamen aynısı olsaydı olurdu. Ama aynı değil.
Örnek
Ali yılmaz telefonu 123
Ali yılmaz telefon 456

Benim istediğim ikisinden birini satırıyla beraber silmesi.

 

[izcik]

Sayın uzmanlarım denediğinizde olmadığı hemen görülecektir.

 

[Haluk]

Aşağıdaki kod işinizi görüyor mu?

Sub Test()
    Dim NoA As Integer, i As Integer
   
    NoA = Range("A" & Rows.Count).End(xlUp).Row
   
    For i = NoA To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
    Next
End Sub

.

 

[izcik]

Aşağıdaki kod işinizi görüyor mu?

Sub Test()
    Dim NoA As Integer, i As Integer
  
    NoA = Range("A" & Rows.Count).End(xlUp).Row
  
    For i = NoA To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
    Next
End Sub

.

Tam olarak görmüştür Haluk uzmanım. Teşekkür ederim, saygılar.

 

[Korhan Ayhan]

Örnek dosyanızı açtım.

A-F sütun aralığını mouse ile seçtim.
Veri menüsünden "Yinelenenleri Kaldır" seçeneğini seçtim.
Karşıma gelen ekranda "Tüm Seçimi Kaldır" seçeneğini seçtim.
Sonra "İSİMLER" seçeneğini işaretledim. TAMAM tuşuna basarak işlemi tamamladım.

Dilerseniz bu adımlardan önce makro kaydet tuşuna basarak işlemlerin koduna erişebilirsiniz.

Exceli etkin kullanmak için bol bol pratik yapmak gerekiyor. Gerekiyorsa nette yayınlanan kullanım videolarını izleyerek pratik kazanabilirsiniz.

 

[izcik]

Örnek dosyanızı açtım.

A-F sütun aralığını mouse ile seçtim.
Veri menüsünden "Yinelenenleri Kaldır" seçeneğini seçtim.
Karşıma gelen ekranda "Tüm Seçimi Kaldır" seçeneğini seçtim.
Sonra "İSİMLER" seöeneğini işaretledim. TAMAM tuşuna basarak işlemi tamamladım.

Dilerseniz bu adımlardan önce makro kaydet tuşuna basarak işlemlerin koduna erişebilirsiniz.

Exceli etkin kullanmak için bol bol pratik yapmak gerekiyor. Gerekiyorsa nette yayınlanan kullanım videolarını izleyerek pratik kazanabilirsiniz.

Korhan uzmanım evet aynen öyle yaptım, şimdi oldu. Oysa kaç kere yaptım olmamıştı. Ama ben satırları komple silsin diye sanırım hepsini seçmiştim.

Fakat Haluk uzmanımın kodları, dosya halinde muhafaza ettiğimden çok iyi oldu.

Size de, Haluk uzmanıma da tekrar teşekkür ederim, saygılar selamlar.

 

[Korhan Ayhan]

Bahsettiğim işlem adımlarının koda uyarlanmış hali;

Option Explicit

Sub Unique_List()
    Range("A1:F" & Rows.Count).RemoveDuplicates 1, xlYes
    MsgBox "Your transaction is complete."
End Sub