mükerrer kayıt

[olmaz]

herkese merhaba
aşağıda siteden aldığım mükerrerin olduğu satırı silen kod mevcut.fakat bu silmeyi yapmadan önce uyarı vermesini sağlamak istiyorum. bunun için ilave yazılacak kod ne olmalı ? yardımlarınız için 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("c1:c" & c), Cells(c, "c")) > 1 Then
Rows(c).Delete
Next
End Sub

 

[Mahmut Kök]

rows(c).delete nin hemen üstüne


uyar = MsgBox("VERİ SİLİNSİN Mİ?", vbYesNo, "DİKKAT")
If uyar = vbNo Then Exit Sub

yapıştırıp deneyin.

 

[olmaz]

maalesef makro çalışmadı, next yazısında problem gösteriyor

 

[alpi]

Sayın Mesleki size doğru yanıtı vermiş fakat kodunuzda End If ibaresi bulunmadığından hata alıyorsunuz.

aşağıdaki gibi yazın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For c = [c65536].End(3).Row To 1 Step -1
        If WorksheetFunction.CountIf(Range("c1:c" & c), Cells(c, "c")) > 1 Then
            uyar = MsgBox("VERİ SİLİNSİN Mİ?", vbYesNo, "DİKKAT")
            If uyar = vbNo Then Exit Sub
            Rows(c).Delete
            Exit For
        End If
    Next
End Sub

 

[olmaz]

teşekkürler kolay gelsin