buenas... hola como estan... como siempre uno obsecionado con eso de la programacion estuve intentando realizar una funcion que deberia funcionar pero... no funciona ahi les va:
esta funcion es llamada desde otra funcion
private sub otra_funcion()
on error goto error
if t=0 then
shell"c:windowsdx.exe",vbnormalfocus
else
end if
exit sub
ERror:
call checarerror ''''aqui hablo a mi otra funcion
end sub
private sub checarerror()
on error goto error
dim conta as string
conta="1"
DEnuevo:
select case conta
case 1: ''''aqui ya esta ecte cte ctc funcion y se va a
conta=conta+1
goto DEnuevo
case 2: hace lo mismo en
case 3:todos
case 4:los casos
case 5:lo mismo manda a goto de nuevo
case 6:salvo el ultimo caso que termina la funcion exit sub
end select
goto Denuevo
exit sub
error:
goto Denuevo
end sub
'''''''''''' el caso es que cuando lo hace solo hasta el caso 2 y luego regresa a la funcion que lo llamo.... y no acaba de correr todos los casos osea el 3,4,5,6 etc y pues no se por que ayudemne si?
gracias