Aynı Veri İçeren Satırları Silmek

[serinci]

Selamlar,

Başka bir programdan aktardığım dosyalarda bazen aynı bilgiler farklı satırlarda yazılmakta aynı olan satırlardan sadece 1 inin kalmasını ve diğerlerinin silinmesini istiyorum

bunun için aşağıdaki makroyu kullanıyorum ama olumlu sonuç elde edemiyorum uygulamada hatayı acabe nerede yapıyorum

Sub aynisil()
Dim RowNdx As Long
For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1
If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then
If Cells(RowNdx, "B").Value <= Cells(RowNdx - 1, "B").Value Then
Rows(RowNdx).Delete
Else
Rows(RowNdx - 1).Delete
End If
End If
Next RowNdx
End Sub
şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki inceleyip cevaptaki kodu kendinize uyarlamaya çalışın. Eğer başarılı olamazsanız dosyanızın bir örneğini ekleyin yardımcı olmaya çalışalım.

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

 

[serinci]

ilginiz için teşekkürler verdiğiniz örnekte sadece a sütunundaki kayıtlar silinmekte oysa benim dosyamda a sütundaki veri eğer birden çoksa x sütunundakide aynı oranda çoktur benim istediğim tüm satırı silmesi verdiğiniz örnekte sadece a sütunu silinmekte

ben başka bir yöntem ile yaptın filtreleme ile ancak bu satırların silinmesini istiyorum .

uygulama kodum
Cells.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

saygılar,

 

[mehmett]

&#214;rnek bir dosya ekleyebilir misiniz?

 

[serinci]

dosya ile ilgili örnek ektedir mizan aktarımını seçerek aktarım dosyası.prn den okutabilirsiniz diğer opsiyonlarda problem olmamasına rağmen sadece mizan aktarımında problem mevcut.

 

[Korhan Ayhan]

Selamlar,

Vermiş olduğum linkteki kodu aşağıdaki gibi değiştirip deneyiniz. A sütununa göre mükerrer kayıtları teke indirir.

For X = [A65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & X), Cells(X, "A")) > 1 Then Rows(X).Delete
Next

 

[serinci]

İlginiz için çok teşekkür ederim hayırlı günler.