Jump to content

Error en tiempo de ejecución (error 13)


jalomiva

Recommended Posts

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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy