İki sütundaki mükerrer verileri silmek

[YASINT]

Arkadaşlar merhaba. Aşağıdaki kod "C" sütunundaki mükerrer kayıtları buluyor ve satırı siliyor. Benim problemim ise bu "C" sütunun yanında "A" sütununu da eklemek. Yani A ve C sütundakiler aynı ise o satırı silmesini sağlamak. Bunu nasıl sağlayabilirim. Teşekkürler.

For C = [c65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("c1:c" & C), Cells(C, "c")) > 1 Then
Rows(C).Delete
End If
Next

 

[YASINT]

Herkez çok yoğun galiba

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For C = [c65536].End(3).Row To 1 Step -1
If Cells(C, "c")=cells(C,"a") Then Rows(C).Delete
Next

 

[YASINT]

Olmuyor ne yazık ki

 

[YASINT]

Yaaa arkadaşlar benim sorunuma çare bulacak yok mu

 

[Ali]

Levent Bey cevabı vermiş.

 

[alpi]

Şu şekilde yapabilirsiniz.

Sub sil()
    For C = [c65536].End(3).Row To 1 Step -1
        If WorksheetFunction.CountIf(Range("c1:c" & C), Cells(C, "c")) > 1 Or _
            WorksheetFunction.CountIf(Range("a1:a" & C), Cells(C, "a")) > 1 Then
            Rows(C).Delete
        End If
    Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla "A" ve "C" sütunlarının ikisi birden kontrol edilerek, bu iki sütuna göre mükerrer kayıtların silinmesini istiyorsunuz. Bu işlem için benim size önereceğim en kolay yöntem, yardımcı bir sütun kullanarak (örneğin "D" sütunu) "A" ve "C" sütunlarını birleştirmek ve bu birleştirilen sütuna göre mükerrer kayıtları sildirmek olacaktır. Ekte hazırladığım örnek dosyayı inceleyiniz. Umarım faydası olur.