• DİKKAT

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

Excel 2007 kullanıyorum 2 farklı sütundaki mükerre numalaraı işaretleyemedim.

Katılım
31 Temmuz 2008
Mesajlar
48
Excel Vers. ve Dili
2007
Merhabalar,
Forumda bir çok konu açılmış lakin ben çözümü bulamadım. Sorunum şu ki; iki sütundaki mükerrer numaraları renklendirmek ya da mükerrer numaraları iki sütundan da tamamen silmek.

Demek istediğim mesela sütun 1 de 555666 , sütun 2 de 555666 diye karşılıklı iki rakam dizisi var bunları tamamen silmek yada bunları belirgin bir şekilde renklendirmek. Herkes koşullu biçimlendime yolunu göstermiş fakat ben birtürlü çözemedim .
örnek dosyayı aşağıdaki linke ekledim yardımcı olursanız sevinirim.
http://www.dosya.tc/server20/Ra5tTz/_rnek.xlsx.html
 

ilginize teşekkür ederim lakin burakileri ben de denemiştim ve hiç biri sorunuma çözüm olmadı. Özellikle istediğim şey mükerrer numaraların hepsinin farklı renkle işaratlenmesi bu sayede mükerrer olanlardan tamamen kurtulup benzersiz olanları yakalamak. rakamlara ordaki formülleri uyguladığımda 25.000 rakamdan geriye 500 kalıyorki en fazla 5000 tekrar eden veri bulunmakta yani 20.000 civarında benzersiz veri ortaya çıkması gerekmekte bunu uyguamada yardımcı olabilirseniz sevirinirim.
 
Son düzenleme:
Elenecek numaraları a sütunun altına ekleyin ve b sütununu silin. A sütununu komple seçin ve daha sonra "Veri - Yineleneneleri Kaldır" yapın. Sorununuz çözülecektir.
 
Elenecek numaraları a sütunun altına ekleyin ve b sütununu silin. A sütununu komple seçin ve daha sonra "Veri - Yineleneneleri Kaldır" yapın. Sorununuz çözülecektir.

Anlattığınız yöntem sanırım excel 2010 da yapılıyor 2007 de veri sekmesinde söylediğiniz "yinelenen verileri kaldır" seçeneğini göremedim. tam olarak istediğim şeyi açıklamışsını fakat ben bu seçeneği bulamadım.
 
Merhaba, alttaki kodları deneyin ancak kodları çalıştırmadan önce mutlaka yedeğini alın. Kodlar benzersiz kayıtları e-f sütunlarına atıyor mükerrer kayıtları renklendiriyor.

Kod:
Sub prmts()
Cells(1, 5).Value = " a sütunundaki benzersizler"
For i = 2 To Range("a65536").End(3).Row
sayi = WorksheetFunction.CountIf(Range("b:b"), Cells(i, 1))
If sayi = 0 Then
Cells(Range("e65536").End(3).Row + 1, 5).Value = Cells(i, 1).Value
Else
Range("a" & i).Interior.ColorIndex = 8
End If
Next i

Cells(1, 6).Value = " b sütunundaki benzersizler"
For i = 2 To Range("b65536").End(3).Row
sayi = WorksheetFunction.CountIf(Range("a:a"), Cells(i, 2))
If sayi = 0 Then
Cells(Range("f65536").End(3).Row + 1, 6).Value = Cells(i, 2).Value
Else
Range("b" & i).Interior.ColorIndex = 8
End If
Next i
 
Geri
Üst