Mükerrer kayıt satırı silmek

[hyilmaz076]

Arkadaşlar bir database dosyasını *.dbf'i excel de açarak varolan mükerrer kayıtları silmek istiyorum tek çalışma sayfasında 5000 satırıbulan bir durum bu nasıl yapabilirim...
örnek
kod tarih açıklama tutar miktar carikod
1 11.01.05 devir işlem 118,70 0,00 10001
1 14.01.05 devir işlem 179,60 0,00 10002
1 14.01.05 devir işlem 79,60 0,00 10005
1 14.01.05 devir işlem 179,60 0,00 10002

görüldüğü gibi 2 ve 4 satır birbirinin aynı bunları nasıl buldurup satırı sildirebilirim...

Yardımcı olurmusunuz, şimdiden teşekkür ederim...

 

[Olcay]

Bilmiyorum işinize yarar mı ama forumda mükerrer kayıt silme, kayıt engelleme gibi bir kaç başlık var. Aşağıdaki linkleri bir inceleyin isterseniz.

http://www.excel.web.tr/viewtopic.php?t=2713&highlight=m%FCkerrer

http://www.excel.web.tr/viewtopic.php?t=161&highlight=m%FCkerrer

http://www.excel.web.tr/viewtopic.php?t=1428&highlight=m%FCkerrer

http://www.excel.web.tr/viewtopic.php?t=1149&highlight=m%FCkerrer

 

[hyilmaz076]

ilgine teşekkür ederim

verdiğin kısayollar için teşekkür ederim...
ama sorunu tam çözemedim ben yinede excel dosyasını ekliyorum bunu nasıl çözebiliriz bilen olursa ve cevaplarsa sevinirim.

bu dosyada mükerrer kayıtları göreceksiniz,
A-B-C-D-E sütünlarının birebir aynı olanlarını bulmak ve satırı silmek istiyorum, dosyayı küçülterek ekte gönderdim

 

[Levent Menteşoğlu]

Hesap no lardaki mükerrer kayıtlara göre silinmesi yeterlimi?

 

[hyilmaz076]

leventm ilgine teşekkür ederim

sana özel msj da yazmıştımbu konuyla ilgili şimdiden sağol, amaç tüm sütünlardaki değerleri eşit olanları buldurup sildirmek aslında çünkü hesap no aynı olup tarih ve işlemi farklı olabilir bu yüzden çok sıkıntı yaşıyorum sanırım, sence çözümü varmıdır...

KODANAHTAR TARIH HESAP_NO ACIKLAMA B_A FISTUTARI MIKTAR

bunların tamamı eşitse bir satırı silmem gerekiyor..

 

[Levent Menteşoğlu]

Ekte bir örnek dosya hazırladım. Ben tam olarak test edemedim. Doğru çalışıp çalışmadığını tam olarak inceledikten sonra kendi dosyanızda kullanın. Her ihtimale karşıda dosyanızın bir yedeğini almayı unutmayın.

 

[hyilmaz076]

Teşekkür

Dostum herşey için teşekkür ederim...
Süper olmuş elinize sağlık...
:hey:

 

[Nadir46]

Hocam aynı sorun benim de başımda.. bir dosyadan bahsediyorsunuz fakat ben göremedim.. bu konuda bana da yardımcı olursanız sevinirim.. abcd sütünlarında mükerrer olabilecek kayıtlarla ilgili yüzbinden fazla kayıt karşılaştırmam gerekiyor..saygılar

 

[Skorpiyon]

Sayın Nadir46,

Bahsedilen dosya 2005'ten bu yana sitenin düzenlemeleri esnasıda silinmiş olmalı. Siz nasıl bir karşılaştırma yapacağınızı örnek bir dosya ile anlatırsanız birşeyler yapabilir miyiz bir bakalım.

Yani 4 sütun karşılaştırılacak, aynı olanlar 4 sütünda da işaretlenecek mi, renklenecek mi, silinecek mi, taşınacak mı gibi ?

 

[tahsinanarat]

kodları kendi dosyanıza uyarlayın

Sub MÜKERRER_KAYITLARI_SİL()
[IV:IV].ClearContents
[IV1] = "=A1 & B1 & C1 & D1 & E1 & F1 & G1"
[IV1].AutoFill Destination:=Range("IV1:IV" & [A65536].End(3).Row), Type:=xlFillDefault
[IV:IV].Value = [IV:IV].Value
For X = [IV65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("IV1:IV" & X), Cells(X, "IV")) > 1 Then Rows(X).Delete
Next
[IV:IV].ClearContents
MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub