UYARI VERSİN

[polis-53]

Merhaba arkadaşlar aşağıda gönderdiğim kodda mükerrer kayıtları siliyor fakat ben uyarı vermesini istiyorum mükerrer kay var uyarısı

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For X = [B34].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("B5:B" & X), Cells(X, "B")) > 1 Then Rows(X).Delete
Next
End Sub

 

[metehan8001]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For X = [B34].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("B5:B" & X), Cells(X, "B")) > 1 Then MsgBox X & " Fazla bulunmaktadır."
Next
End Sub

 

[Ömer BARAN]

İlgili satır aşağıdakiyle değiştirin.

If WorksheetFunction.CountIf(Range("B5:B" & X), Cells(X, "B")) > 1 Then MsgBox "B" & X & " hücresindeki değer MÜKERRER kayıt!..",VbCritical