Mükerrer Kayıtın Satırını Sil

[baydeniro]

Merhaba arkadaşlar. Mükerrer kayı sil ile ilgili konuları inceledim. Oradan alıntı yaptığım bir kodu uygulamaya çalıştım ama başaramadım. Ekteki dosyada DATA sayfasında veriler bulunmaktadır. B kolonundaki verilerin tekrarlanma durumunda göre B kolonunda tekrarlayana verinin satırını komple silme nasıl mümkün olabilir. Dosya içinde olan kod buna uygun değilse dikkate almayınız.

 

[veyselemre]

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

 

[baydeniro]

Çok Teşekkürler

Sayın veyselemre gerçekten çok teşekkürler. Gerçekten çok hayran kaldım. Allah nazardan saklasın.

 

[mrttrn]

Sn serdar okan istediğin şekilde düzenledim.

Private Sub CommandButton1_Click()
Dim satır
satır = WorksheetFunction.CountA(Range("B:B"))
For i = satır To 1 Step -1 'Son elemandan 1 e kadar 1 er eksiltme.
'Sondan başlıyor başa doğru.ÇÜnkü sondan başa doğru silmek daha kolay.
'CountIf=DOLAYLISAY()
If WorksheetFunction.CountIf(Range("B1:B" & i), Cells(i, "B")) > 1 Then '1 den fazla varsa.
Rows(i).Delete '1 den fazla ise sil.
End If
Next
End Sub


düzeltme ilişikte.Dikkat et ilk kullanımda uyarısız temizliyor.