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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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