importar datos de un libro

hola, Ariel !

Necesito importar datos "fijos" de un libro, es decir por ej: de la columna h y la fila 1 de todas las hojas de ese libro
sin importar como se nombren a las hojas ni cuantas hojas tenga el mismo.-
Asi en el "libro 1" tengo 10 hojas llamadas a, b, c, etc.
y en el "libro 2" tengo una hoja donde obtengo los datos de "h1" de todas las hojas del libro 1

[p.e.] suponiendo que estas en la celda/titulo de tu libro2, a partir de la fila siguiente se pasan los datos del libro1
[asumiendo que el libro1 esta abierto en la sesion]...

Sub Datos_H1_Libro1()
Dim Hoja As Worksheet, Fila As Byte
For Each Hoja In Workbooks("libro1").Worksheets
Fila = Fila + 1
ActiveCell.Offset(Fila) = Hoja.Range("h1")
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Muy muchas gracias Héctor

"Héctor Miguel" escribió en el mensaje
news:#WdK0Pg$

hola, Ariel !

> Necesito importar datos "fijos" de un libro, es decir por ej: de la

columna h y la fila 1 de todas las hojas de ese libro

> sin importar como se nombren a las hojas ni cuantas hojas tenga el

mismo.-

> Asi en el "libro 1" tengo 10 hojas llamadas a, b, c, etc.
> y en el "libro 2" tengo una hoja donde obtengo los datos de "h1" de

todas las hojas del libro 1

[p.e.] suponiendo que estas en la celda/titulo de tu libro2, a partir de

la fila siguiente se pasan los datos del libro1

[asumiendo que el libro1 esta abierto en la sesion]...

Sub Datos_H1_Libro1()
Dim Hoja As Worksheet, Fila As Byte
For Each Hoja In Workbooks("libro1").Worksheets
Fila = Fila + 1
ActiveCell.Offset(Fila) = Hoja.Range("h1")
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.