CodeName - Usar con With

10/10/2003 - 09:44 por amal | Informe spam
Hola a todos,

Es la primera vez que participo activamente en este grupo, aunque os
he leido durante mucho tiempo..

Estoy haciendo una macro en un libro1 (el que contiene el código) que
tiene que buscar en otros libros, libro2 y libro3, el valor de algunas
celdas para poner ese valor en un libro4 (que es el que llama a la
macro).

Teniendo todos los libros abiertos..
En una parte de la macro del libro1 tengo puesta:

libro3.xls Activate
With wsKXXr
'(hoja de donde quiero sacar unos valores)
valor1 = .cells(1,5).value
valor2 = .cells(8,15).value
End With

Pero no funciona. el codename wsKXXr me aparece vacio, a pesar de que
existe.

¿es que no se puede usar el codename de una hoja desde otro libro que
no sea el que contiene a esa hoja en cuestion?

Agradecería mucho vuestra ayuda..
Un abrazo
Ana

Preguntas similare

Leer las respuestas

#1 gti
10/10/2003 - 16:55 | Informe spam
Tienes que activar el libro
Worksheets("Hoja1").activate
Después ya podrás leer las celdas

"Ana" escribió en el mensaje
news:
Hola a todos,

Es la primera vez que participo activamente en este grupo, aunque os
he leido durante mucho tiempo..

Estoy haciendo una macro en un libro1 (el que contiene el código) que
tiene que buscar en otros libros, libro2 y libro3, el valor de algunas
celdas para poner ese valor en un libro4 (que es el que llama a la
macro).

Teniendo todos los libros abiertos..
En una parte de la macro del libro1 tengo puesta:

libro3.xls Activate
With wsKXXr
'(hoja de donde quiero sacar unos valores)
valor1 = .cells(1,5).value
valor2 = .cells(8,15).value
End With

Pero no funciona. el codename wsKXXr me aparece vacio, a pesar de que
existe.

¿es que no se puede usar el codename de una hoja desde otro libro que
no sea el que contiene a esa hoja en cuestion?

Agradecería mucho vuestra ayuda..
Un abrazo
Ana
Respuesta Responder a este mensaje
#2 Héctor Miguel
10/10/2003 - 23:44 | Informe spam
Hola, Ana !

... macro en libro1 (el codigo) ... tiene que buscar en ... libro2 y libro3 ... para poner ... en libro4 (llama a la macro).
... los libros abiertos ... macro del libro1 tengo ...
libro3.xls Activate
With wsKXXr ' (hoja de donde quiero sacar unos valores)
valor1 = .cells(1,5).value
valor2 = .cells(8,15).value
End With
... no funciona el codename wsKXXr me aparece vacio, a pesar de que existe.
¿... no se puede usar el codename de una hoja desde otro libro que no sea el que contiene a esa hoja en cuestion?



para 'poder trabajar' con [referencias a] los [objetos y] 'codenames' de 'otros' libros, se requiere...
1.- establecer una referencia 'entre' los proyectos [vba] en herramientas->referencias->y seleccionar 'el proyecto'
[al menos, EN 'el que llama' A los objetos 'del otro']
2.- como los 'codename' de los proyectos de libro son [por 'omision'] EL MISMO ['VBAProject'] sera 'conveniente'...
=> cambiar los 'codename' DE CADA PROYECTO DE LIBRO a un nombre 'significativo' [de preferencia... UNICO]
3.- [de todas maneras] NO 'te escapas' de hacer una referencia 'completa' al 'contenedor' de los objetos :((
[afortunadamente] los 'codename' suelen ser mas 'cortos' y...
NO es necesario 'activarlos' para 'tomar' sus referencias [siempre y cuando esten 'presentes' -abiertos- en la sesion]

prueba con las siguientes 'modificaciones' [despues de 'lo propio anterior']
sustituye por los 'codename' REALES == With CodeNameLibro3.CodeNameHojaX
Valor1 = .Cells(1, 5)
Valor2 = .Cells(8, 15)
End With

Saludos,
Héctor.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida