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 

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

 

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