Saltar al contenido

Error en tiempo de ejecución (error 13)

publicado

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

error.png

 

Featured Replies

publicado

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

publicado
  • Autor

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..

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.