Sub Notashoja1() Set h1 = Sheets("Periodo1m") 'Colocar el nombre de la hoja donde está el dato que se quiere evaluar. Set h2 = Sheets("Periodo1no1") 'Colocar el nombre de la hoja donde se encuentran los registros para ser comparado con el dato mencionado mas arriba. If h1.[N5] = "" Then 'Entre los corchetes colocar la celda donde esta el dato que se quiere evaluar. Exit Sub End If Set C = h2.Columns("C").Find(h1.[N5], lookat:=xlWhole) ' If Not C Is Nothing Then MsgBox "Ya se ha ingresado los datos anteriormente", vbCritical, "GUARDAR" 'Entre las primeras comillas mensaje que se muestra si el dato evaluado existe en los registros. Exit Sub End If ' 'A continuación colocar el nombre de su macro. ' Registrarhoja1 'Fin de tu macro MsgBox "Los datos se registraron satisfactoriamente", vbInformation, "GUARDAR" 'Entre las primeras comillas mensaje que se muestra si su macro se ejecutó satisfactoriamente. End Sub