Mükerrer verileri silmek

[bmutlu966]

Belli bir kolondaki veriler eğer birbirinin aynısı ise o satırı silsin istiyorum. Ancak hangi kolona bakması gerektiğini ben belirlemek istiyorum. Aşağıdaki kodlarda aşağıdaki satırda nasıl bir değişiklik yapmalıyım.

If WorksheetFunction.CountIf(Range("A1:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete




Sub mukererleri_sil()
Dim X As Integer
On Error Resume Next

With Application
.ReferenceStyle = xlR1C1
End With

X = InputBox(" Silinecek olan Mükerrer(Aynı olan) kayıtlarınız kaçıncı kolonda ?")


With Application
.ReferenceStyle = xlA1
End With

For sil = Cells(65536, X).End(xlUp).Row To 1 Step -1

If WorksheetFunction.CountIf(Range("A1:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete

Next


End Sub

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub MÜKERRER_KAYITLARI_SİL()
    Dim X As Integer, SATIR As Long
 
    With Application
        .ReferenceStyle = xlR1C1
    End With
 
    X = InputBox("Silinecek gereken ve mükerrer olan kayıtlarınız kaçıncı kolonda?")
 
    With Application
        .ReferenceStyle = xlA1
    End With
 
    For SATIR = Cells(65536, X).End(xlUp).Row To 1 Step -1
        If WorksheetFunction.CountIf(Range(Cells(1, X), Cells(SATIR, X)), Cells(SATIR, X)) > 1 Then Rows(SATIR).Delete
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bmutlu966]

If WorksheetFunction.CountIf(Range(Cells(1, X), Cells(SATIR, X)), Cells(SATIR, "A")) > 1 Then Rows(SATIR).Delete

satırında küçük bir hata kalmış Cells(SATIR, "A") bölümü Cells(SATIR, X) olacak.

Böyle olunca çalışıyor. Yardımların için çok teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Uyarınız için teşekkür ederim. Gözümden kaçmış. Gerekli düzeltme mesajımda yapılmıştır.