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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Mükerrer Kayıtın Satırını Sil
- Konbuyu başlatan baydeniro
- Başlangıç tarihi
veyselemre
Özel Üye
- Katılım
- 9 Mart 2005
- Mesajlar
- 3,652
- Excel Vers. ve Dili
- Pro Plus 2021
Kod:
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 SubSn 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.
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.