Poner fin a una macro

hola, Gus !

Estoy desarrollando un procedimiento... en el cual mediante la instruccion IF cambia alternativamente su camino
ocurre que cuando concluye con uno de los procedimientos (Caminos), regresa al lugar donde se vifurco
es decir la instruccion posterior al IF.
... soy algo nuevo en esto, trate por todos los medios de resolverlo solo pero me supera..

prueba a exponer el codigo y que es lo que esperabas que sucediera (y en que parte del codigo)
o... comenta algunos detalles que permitan la (re)construccion de tu situacion -?-

saludos,
hector.

Hector:
Desde ya gracias por tu colaboración, la macro llega a un punto en que
mediante la instrucción IF se Bifurca (Esta vez sin error ortográfico),

.ActiveSheet.Unprotect
miDato2 = Range("Control1").Value
If miDato2 > 1 Then ArchivarNuevamente
Sheets("Archivo").Select
Range("b4").Select..

e inicia un nuevo camino de instrucciones, en la Sub ArchivarNuevamente, con
el objeto que concluya una vez que leyó toda las instrucciones de esa ruta.
Sin embargo cuando lee la última instrucción regresa al punto de Bifurcación
"Sheets("Archivo").Select" y continua leyendo las instrucciones de la otra
ruta.
Espero haber sido mas claro esta vez.

"Héctor Miguel" escribió:

hola, Gus !

> Estoy desarrollando un procedimiento... en el cual mediante la instruccion IF cambia alternativamente su camino
> ocurre que cuando concluye con uno de los procedimientos (Caminos), regresa al lugar donde se vifurco
> es decir la instruccion posterior al IF.
> ... soy algo nuevo en esto, trate por todos los medios de resolverlo solo pero me supera..

prueba a exponer el codigo y que es lo que esperabas que sucediera (y en que parte del codigo)
o... comenta algunos detalles que permitan la (re)construccion de tu situacion -?-

saludos,
hector.

Hola Gus!

Me parece que el erro tuyo es usar una instruccion tipo if sin endif; es
decir solo el "if" y el "then"; cuando en realidad lo que tendrias que usar
es una instruccion del tipo :
if then
.
else
...
end if
donde podes manejar exactamente lo que vos deseas, es decir si se cumple la
condicion , seguir la ruta que el "then" le indique", y si "NO", que haga lo
que el "else" le indique".

lo que debe quedarte claro, es que luego de terminar con la sub a donde la
envias en caso de que se cumpla la condicion, te volvera a la instruccion
siguiente al "end if". si queres que termine ahi, smplemente que ahi termine
la primera "sub", es decir :

If miDato2 > 1 Then
ArchivarNuevamente
else
Sheets("Archivo").Select
Range("b4").Select..
end if
end sub
Espero te haya sido util.
Jose Riu
Buenos Aires
Argentina


"Gus-Córdoba-Argentina" escribió:

Hector:
Desde ya gracias por tu colaboración, la macro llega a un punto en que
mediante la instrucción IF se Bifurca (Esta vez sin error ortográfico),

.ActiveSheet.Unprotect
miDato2 = Range("Control1").Value
If miDato2 > 1 Then ArchivarNuevamente
Sheets("Archivo").Select
Range("b4").Select..

e inicia un nuevo camino de instrucciones, en la Sub ArchivarNuevamente, con
el objeto que concluya una vez que leyó toda las instrucciones de esa ruta.
Sin embargo cuando lee la última instrucción regresa al punto de Bifurcación
"Sheets("Archivo").Select" y continua leyendo las instrucciones de la otra
ruta.
Espero haber sido mas claro esta vez.

"Héctor Miguel" escribió:

> hola, Gus !
>
> > Estoy desarrollando un procedimiento... en el cual mediante la instruccion IF cambia alternativamente su camino
> > ocurre que cuando concluye con uno de los procedimientos (Caminos), regresa al lugar donde se vifurco
> > es decir la instruccion posterior al IF.
> > ... soy algo nuevo en esto, trate por todos los medios de resolverlo solo pero me supera..
>
> prueba a exponer el codigo y que es lo que esperabas que sucediera (y en que parte del codigo)
> o... comenta algunos detalles que permitan la (re)construccion de tu situacion -?-
>
> saludos,
> hector.
>
>
>

José
Muchas Gracias por tu ayuda, un poco lento, pero al fin salió, te entendi al
toque la idea, pero de alli a instrumentarla me llevo un tiempo.
Nuevamente muchas gracias.

"jose riu" escribió:

Hola Gus!

Me parece que el erro tuyo es usar una instruccion tipo if sin endif; es
decir solo el "if" y el "then"; cuando en realidad lo que tendrias que usar
es una instruccion del tipo :
if then
.
else
...
end if
donde podes manejar exactamente lo que vos deseas, es decir si se cumple la
condicion , seguir la ruta que el "then" le indique", y si "NO", que haga lo
que el "else" le indique".

lo que debe quedarte claro, es que luego de terminar con la sub a donde la
envias en caso de que se cumpla la condicion, te volvera a la instruccion
siguiente al "end if". si queres que termine ahi, smplemente que ahi termine
la primera "sub", es decir :

If miDato2 > 1 Then
ArchivarNuevamente
else
Sheets("Archivo").Select
Range("b4").Select..
end if
end sub
Espero te haya sido util.
Jose Riu
Buenos Aires
Argentina


"Gus-Córdoba-Argentina" escribió:

> Hector:
> Desde ya gracias por tu colaboración, la macro llega a un punto en que
> mediante la instrucción IF se Bifurca (Esta vez sin error ortográfico),
>
> .ActiveSheet.Unprotect
> miDato2 = Range("Control1").Value
> If miDato2 > 1 Then ArchivarNuevamente
> Sheets("Archivo").Select
> Range("b4").Select..
>
> e inicia un nuevo camino de instrucciones, en la Sub ArchivarNuevamente, con
> el objeto que concluya una vez que leyó toda las instrucciones de esa ruta.
> Sin embargo cuando lee la última instrucción regresa al punto de Bifurcación
> "Sheets("Archivo").Select" y continua leyendo las instrucciones de la otra
> ruta.
> Espero haber sido mas claro esta vez.
>
> "Héctor Miguel" escribió:
>
> > hola, Gus !
> >
> > > Estoy desarrollando un procedimiento... en el cual mediante la instruccion IF cambia alternativamente su camino
> > > ocurre que cuando concluye con uno de los procedimientos (Caminos), regresa al lugar donde se vifurco
> > > es decir la instruccion posterior al IF.
> > > ... soy algo nuevo en esto, trate por todos los medios de resolverlo solo pero me supera..
> >
> > prueba a exponer el codigo y que es lo que esperabas que sucediera (y en que parte del codigo)
> > o... comenta algunos detalles que permitan la (re)construccion de tu situacion -?-
> >
> > saludos,
> > hector.
> >
> >
> >