• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Aynı ad ve soyadına sahip olanların bulma

B

baron07

Katılım
7 Mart 2005
Mesajlar
91
Excel Vers. ve Dili
2003 / 2010
Elimde yaklaşık 40 .000 kişilik bir liste var ve bu listede farklı yerlerde kayıtlı olanlar ve bunları alt alta getirip alfabetik sıraya getirdiğim zaman aynı bilgilere (Ad.soyad.d yeri.d.tarihi Vs) sahip olanların kolay tespit edilebilmesi için renklendirilmesini istiyrum ancak böyle mükerrer kayıtlı olanları bulabilirim.
bu konuda yardımlarınız için şimdiden teşekkür ederim
 
bir sütunda eğersay ile saydırma yaparsanız 1'den fazla olan mükerrerleri görebilirsiniz
 
Merhaba,

Ekteki dosyada sizin için birşeyler yapmaya çalıştım.

Burada mükerrer verinin ilkini mavi, diğerlerini ise yeşil renk yapmaktadır.


Umarım işinize yarar.

Kolay Gelsin.
 
renklendirmek güzel şey ama sonuçta bunları silmeyi veya başka birşey yapmayı düşünüyorsanız yandaki bir sütuna bunları işaretlemek en mantıklısıdır bence
 
Bence dosyanızın küçük bir örneğini ekleyin. Birde şunu hatırlatayım bu soru elbette koşullu biçimlendirme ile çözülebilir ama veri sayısının 40.000 olduğunu düşünürsek, bu dosyanın kilitlenmesine ve hacminin çok artmasına neden olacaktır. Bence ideal çözüm makro yazmaktır.
 
leventm' Alıntı:
Bence dosyanızın küçük bir örneğini ekleyin. Birde şunu hatırlatayım bu soru elbette koşullu biçimlendirme ile çözülebilir ama veri sayısının 40.000 olduğunu düşünürsek, bu dosyanın kilitlenmesine ve hacminin çok artmasına neden olacaktır. Bence ideal çözüm makro yazmaktır.
Genişletmek için tıkla ...
size de bu yakışır usta. çünkü en iyisini sizler bilirsiniz. sonsuz saygılar...
 
Selamlar,

Gönderdiğiniz örnek dosyaya göre hazıraladığım ekteki dosyayı inceleyiniz.

Dosyanızda işlemi kolaylaştırmak için 2 sütun ekledim ve bu sütunlar yardımıyla 1 den fazla tekrar eden kayıtları koşullu biçimlendirme renklendirdim. Umarım işinize yarar.
 
Slm
Cost Control tarafından oluşturulan dosyadaki gibi ayrıca Pivot Table kullanıldıgında da sürekli güncel veriler ile çalışma imkanı verecek bir dosyaya sahip olabilirsiniz alternatif olarak.
 
Eklediğiniz dosyada aşağıdaki kodu deneyin. İlk kayıtı bırakıp mükerrer olanları renklendirir.

[vb:1:be16d690c1]Sub mukerrerbul()
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
For a = 2 To [b65536].End(3).Row
Cells(a, "h") = Cells(a, "b") & Cells(a, "c") & Cells(a, "d") & Cells(a, "e") & Cells(a, "f")
If WorksheetFunction.CountIf(Range("h2:h" & a), Cells(a, "h")) > 1 Then Range("a" & a & ":g" & a).Interior.ColorIndex = 6
Next
[h:h].ClearContents
End Sub
[/vb:1:be16d690c1]
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst