on error go to

[ebu]

hola a todos!
he leido q si tengo un error en tiempo de ejecucion lo puedo evitar poniendo un on error goto (especificar una linea del mismo procedimiento).
yo tengo lo siguiente:

inicio:
vChildComp = swComp.GetChildren
For i = 0 To UBound(vChildComp) ' en esta linea es donde me da el error 13
On Error GoTo inicio
Set swChildComp = vChildComp(i)

pero poniendo el on error goto en esa linea me lo salta y sigue dandome el error. sabe alguien donde lo debo poner?
gracias x adelantado!

p.d. yo no soy muy partidaria de usar el goto, pero no me queda mas remedio, a no ser q alguien conozca algun comando parecido para trasladarse de linea.

[Avellaneda]

Iniciado por ebu

hola a todos!
he leido q si tengo un error en tiempo de ejecucion lo puedo evitar poniendo un on error goto (especificar una linea del mismo procedimiento).
yo tengo lo siguiente:

inicio:
For i = 0 To UBound(vChildComp) ' en esta linea es donde me da el error 13
On Error GoTo inicio
Set swChildComp = vChildComp(i)

pero poniendo el on error goto en esa linea me lo salta y sigue dandome el error. sabe alguien donde lo debo poner?
gracias x adelantado!

p.d. yo no soy muy partidaria de usar el goto, pero no me queda mas remedio, a no ser q alguien conozca algun comando parecido para trasladarse de linea.

Hola, antes de la etiqueta inicio:

[ebu]

Iniciado por Avellaneda

Hola, antes de la etiqueta inicio:

hola, he probado a ponerlo donde tu me dijistes y en la primera vez hace caso al goto y se va a inicio, pero la segunda vez va al bucle for y me da el error.
sabes si el on error goto solo funciona una unica vez?

gracias x tu ayuda!

[Avellaneda]

Iniciado por ebu

hola, he probado a ponerlo donde tu me dijistes y en la primera vez hace caso al goto y se va a inicio, pero la segunda vez va al bucle for y me da el error.
sabes si el on error goto solo funciona una unica vez?

gracias x tu ayuda!

Hola, prueba así

sub()
On Error GoTo inicio
For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
Next i
Exit Sub

inicio:
' si quieres que continúe el bucle:
Resume Next
' si quieres detener el proceso:
MsgBox Err.Number & " - " & Err.Description
Exit Sub
End Sub

[ebu]

gracias avellaneda, muy amable!
queria hacer algo asi pero no conocia el resume next. ahora ya si!
mil gracias!

[David]

También si lo que quieres es continuar a partir de la siguiente línea inmediata a la que se produjo el error puedes usar On Error Resume Next