Fazla verileri silmek

[sellami2005]

Personelin istirahatleri ile ilgili bir liste tutuyorum. Yıllardan beri süregelen... Bunun için mükerrer girişler olmuş. Yani sicil-adısoyadı-tarih.sicil ve adısoyadının mükerrer olması normal, Çünkü bir şahıs birkaç defa hasta olabilir. Ama her üç sütunun da mükerrer olması sorun yaratıyor. teker teker ayıklamak ise çok zahmetli, yaklaşık 6 binin üzerinde satırı taramak gerekiyor. isim sütününü dışarı taşırsak sicil ve tarih sütunlarında mükerrerleri ayıklayabilmenin imkanı var mı? ekte biraz fikir verkesi amacıyla bir örnek...

 

[mehmett]

Dosyanızı bir çözüm önerisi ile birlikte ekte gönderiyorum.

 

[sellami2005]

Sn.mehmett Örnekte ilk 4 satır mükerrerdi. Sadece son ikisi boyanmış durumda. Acaba benim ofisimden mi kaynaklanıyor.

 

[mehmett]

Sn sellami2005,

Kusura bakmayın, koşullu biçimlendirme fonksiyonunda $ işaretlerini unuttuğum için D121 aralığı her satırda birer artarak gitmiş. Bu fonksiyonları $ işaretleri ile birlikte yeniden yazıp ekte gönderiyorum.

 

[Levent Menteşoğlu]

Bende makrolu bir çözüm öneriyorum. Aşağıdaki kodu eklediğiniz dosyada deneyin. Mürerrer kayıtları tek kalana kadar siler. Yalnız bu tür kodlar silme işlemi yaptığından mutlaka asıl dosyanızın bir kopyası üzerinde deneyin.

[vb:1:1180551dd2]Sub mukerrer()
For a = [a65536].End(3).Row To 1 Step -1
say = Evaluate("=SUMPRODUCT((A1:A" & a & "=A" & a & ")*(B1:B" & a & "=B" & a & ")*(C1:C" & a & "=C" & a & "))")
If say > 1 Then Rows(a).Delete
Next
End Sub
[/vb:1:1180551dd2]

 

[sellami2005]

Sn. mehmett, gene beceremedim.sizin verdiğiniz örnekte bu iş oluyor, ancak verdiğiniz aralığı (21) sayısını arttırdığım zaman çoğu kızarıyor. Ayrıca örneği asıl listeme uyguladıımda hiç boyama olmadı.size asıl uygulayacağım listenin bir parçasını gönderiyorum. Satır sayısının en az 7 bin olacağını düşünerek fonksiyonları yazarsanız sevinirim.ben değiştirdiğimde olmadı çünki.

 

[sellami2005]

Sn. leventm, verdiğiniz kod çalışıyor. problemimle ilgilenen, görüntüleyen tüm arkadaşlara teşekkür ederim.