- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,727
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
Aşağıdaki kod ile C sütununa girilen mükerrer kayır siliniyor, ancak kayıt için açılan "ara satır" da birlikte siliniyor, silinmemesi için aşağıdaki kod nasıl olmalı ? Teşekkür ederim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For c = [c65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("c6:c" & c), Cells(c, "c")) > 1 Then Rows(c).Delete
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For c = [c65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("c6:c" & c), Cells(c, "c")) > 1 Then Rows(c).Delete
Next
End Sub
Son düzenleme: