Buenas a todos los que pertenecemos a este gran foro.

Desde hace unos 4 o 5 días me arroja el error 13, porque hasta la fecha la macro corría bien, por mas que he leído en el foro no doy con la solución.

en rojo es la linea  que me arroja el error.

Private Sub Matricula_AfterUpdate()
If WorksheetFunction.CountIf(Hoja12.Range("C:C"), Me.matricula.Value) = 0 Then
MsgBox "Matricula Incorrecta"
Me.matricula.Value = ""
Exit Sub

End If
With Me
nombre = Application.WorksheetFunction.VLookup(CLng(Me.matricula), Sheets("AGENTES").Range("C3:D3000"), 2, 0)

End With

End Sub

 

Es un error de datos, sin el archivo es imposible decirte nada más.

encontre el error, por si ha alguien le sirve, al eliminar la siguiente linea del comando GRABAR

Matricula.SetFocus

el error desapareció, gracias Antoni, me has dado la pista.

 

Tema cerrado..