moverse entre libros

[carnero]

buenas.
estoy haciendo lo que dice el siguiente seudo codigo. la cosa es que no se como puedo "moverme entre los libros"
espero me entiendan
muuuuuuuuuchas gracias

tipo-cantidad-detalle
A 5 BLABLA
B 2 BLABLA
B 1 BLLABLA
A 5 BLABLA

FOR I = 2 TO ULTIMO REGISTRO

IF TIPO = A THEN
IF NO ESTA CREADO UN LIBRO NUEVO, CON EL NOMBRE DE LA CELDA A1 THEN
CREELO
CON ESTE FORMATO
END IF

TOME LAS CELDAS Ai,Ci,Di,Ei,Gi,Hi,Ii,Ji,Ki,Li,Mi
Y PEGALAS EN EL NUEVO LIBRO ( EN ORDEN A,B,C,..ECT)


VUELVA AL PRIMER LIBRO Y COMPRUEBE A QUE TIPO CORRESPONDE Y REPITA LA OPERACION.
END IF


IF TIPO = B THEN
IF NO ESTA CREADO UN LIBRO NUEVO, CON EL NOMBRE DE LA CELDA A1 THEN
CREELO
CON ESTE FORMATO
END IF
TOME LAS CELDAS Ai,Li,Mi,Ni,Di,Ei,Hi,Ii,Ji,Ki
Y PEGALAS EN EL NUEVO LIBRO ( EN ORDEN A,B,C,..ECT)


VUELVA AL PRIMER LIBRO Y COMPRUEBE A QUE TIPO CORRESPONDE Y REPITA LA OPERACION.
END IF


NEXT

[mrocf]

Me parece que el libro al que quieres volver, es aquel que contiene la macro.
En tal caso intenta:

ThisWorkbook.Activate

Saludos, Cacho.

[carnero]

Iniciado por mrocf

Me parece que el libro al que quieres volver, es aquel que contiene la macro.
En tal caso intenta:

ThisWorkbook.Activate

Saludos, Cacho.

el libro donde se encuentra la macro es "PERSONAL.XLS", es donde se guardan las macros para que se puedan usar en cualquier libro excel.
yo uso las macro en archivos distintos

[mrocf]

Entonces la variante sería:

Código vb:

Dim miLibro As Workbook
Set miLibro = ActiveWorkbook ' Asigno el libro activo a la variable
 
[ejecuto el código]
 
miLibro.Activate ' Retorno al libro de origen
Set miLibro = Nothing ' Desvinculo el objeto de la variable y libero recursos
 

Saludos, Cacho.

[carnero]

Iniciado por mrocf

Entonces la variante sería:

Código vb:

Dim miLibro As Workbook
Set miLibro = ActiveWorkbook ' Asigno el libro activo a la variable
 
[ejecuto el código]
 
miLibro.Activate ' Retorno al libro de origen
Set miLibro = Nothing ' Desvinculo el objeto de la variable y libero recursos
 

Saludos, Cacho.

Y COMO OBTENGO LOS DATOS DE LAS CELDAS?

Cells(i, 6).Value = Cells(i, 1) <-- DE ESTA FORMA NO ES.

COMO LE DIGO

DEL PRIMER LIBRO COPIE LA CELDA 1 EN EL 2LIBRO EN LA CELDA 1

Y ASI SUCESIBAMENTE CON LAS CELDAS QUE NECESITO


GRACIAS

[mrocf]

Me parece que estás intentando correr antes de -siquiera- saber caminar...

No puedes no saber como se refiere la celda de una hoja de un libro: denota falta de conocimiento "muuuuuy" básico.

De modo que la mejor sugerencia que puedo hacerte es que léas en la ayuda del VBA sobre Workbook, sobre Worksheet y sobre Cells.

De allí tendrías que deducir lo que necesitas.

Con mucho gusto esperaré que publiques tus conclusiones y te orientaré al respecto.
Saludos, Cacho.

[carnero]

Iniciado por mrocf

Me parece que estás intentando correr antes de -siquiera- saber caminar...

No puedes no saber como se refiere la celda de una hoja de un libro: denota falta de conocimiento "muuuuuy" básico.

De modo que la mejor sugerencia que puedo hacerte es que léas en la ayuda del VBA sobre Workbook, sobre Worksheet y sobre Cells.

De allí tendrías que deducir lo que necesitas.

Con mucho gusto esperaré que publiques tus conclusiones y te orientaré al respecto.
Saludos, Cacho.

por lo mismo te pregunto pero mira.

Workbooks("book1").Activate y uso el libro actual, pero no se como lo hago para usar el otro y despues volver al primero ( ¿me entiendes?)

puedo usar[COLOR="Red"] Workbooks("libro ") y usar libro ocmo variable y asignar el nombre de los libros que uso. pero no se como tomar el nombre del libro.
si me puedes ayudar muchas gracias.

[carnero]

ayudaaaa porfavor!! es urgente no se como hacerlo!!

[carnero]

Iniciado por carnero

por lo mismo te pregunto pero mira.

Workbooks("book1").Activate y uso el libro actual, pero no se como lo hago para usar el otro y despues volver al primero ( ¿me entiendes?)

puedo usar Workbooks("libro ") y usar libro como variable y asignar el nombre de los libros que uso.
pero no se como tomar el nombre del libro.
si me puedes ayudar muchas gracias.

alguien me puede ayudar porfavor?