Crear comprobación de datos

[Jorge23951]

Hola, necesito crear de alguna manera que los datos ingresados en una celda vuelvan a ser ingresados y si no es el mismo que se ingreso la primera ves genere error hasta que sea el mismo ingresado anteriormente 

[Antoni]

Pon en la macro en la hoja.

Ejemplo para la celda A1.

Dim Valor As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   If Valor = "" Then
      Application.StatusBar = "Repite el valor introducido"
      Target.Select
      Valor = Target
      Exit Sub
   End If
   If Valor = Target Then
      Application.StatusBar = False
   Else
      Application.StatusBar = "Valor erróneo. Repite introducción."
      Target = ""
      Target.Select
   End If
   Valor = ""
End If
End Sub

 

[Jorge23951]

hace 10 minutos , Antoni dijo:

Pon en la macro en la hoja.

Ejemplo para la celda A1.

Dim Valor As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   If Valor = "" Then
      Application.StatusBar = "Repite el valor introducido"
      Target.Select
      Valor = Target
      Exit Sub
   End If
   If Valor = Target Then
      Application.StatusBar = False
   Else
      Application.StatusBar = "Valor erróneo. Repite introducción."
      Target = ""
      Target.Select
   End If
   Valor = ""
End If
End Sub

 

lo ingrese pero al ingresar x valor en la celda a1 no me aparece un mensaje solicitando que lo repita solo que al volver a ingresarlo si no es igual se elimina, necesito que por obligación solicite ingresarlo nuevamente y si no es el mismo lo borre 

Libro1.xlsm