Como verificar se tem um nome já cadastrado na coluna ?
Ao digitar um nome duplicado, aparece a mensagem e limpa para não deixar duplicado
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim Ultl As String
Dim Nome As String
Dim i As Long
Dim MsgSim As String
Ultl = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Ultl
Nome = Range("A" & i).Value
If Nome = Range("A" & i).Value Then
MsgSim = MsgBox("Você já cadastrou esse " & Nome & " !", vbInformation, "Nome")
Range("A" & i).Value = ""
Exit For
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Obrigado !
Postado : 26/10/2019 3:40 pm