completar una tabal con informcaion que hay en distintas hojas de un mismo libro

Buenos días AnSanVal
He cambiado lo siguiente:

Sub MiLista()
Dim hoja As Object
For Each hoja In Workbooks("PRUEBA").Sheets("Workbooks")
Workbooks("OJO").Sheets("Hoja1").Cells(Cells(65535,
1).End(xlUp).Row + 1, 1). _
Value = hoja.Cells(23, 6).Value
Workbooks("OJO").Sheets("Hoja1").Cells(Cells(65535,
2).End(xlUp).Row + 1, 2). _
Value = hoja.Cells(13, 5).Value
' la próxima me la invento (no lo has dicho)
Workbooks("OJO").Sheets("Hoja1").Cells(Cells(65535,
3).End(xlUp).Row + 1, 3). _
Value = hoja.Cells(8, 5).Value
Next hoja
End Sub
y me da el siguiente error:
Se ha producido un error `9Žen tiempo de ejecucion:
Subindice fuera de intervalo
al intentar depurarlo, sale marcado en amarillo la linea:
For Each hoja In Workbooks("Libro1").Sheets
y la cambie por:
For Each hoja In Workbooks("PRUEBA").Sheets("Workbooks")
Te doy mas datos:

Necesito copiar las celdas : E13,E8,E9,E10,E25,F23,J17
EL LIBRO en el que estan los datos se llama Proyectores
Los datos los quisiera tener en el mismo libro, en una hoja con el
nobre Datos

Gracias

Tenerife me encanta, sobre todo La Laguna, me parecio increible el
cambio de tª entre un lugar de la isla y LA LAguna.

Saludos
AnSanVal ha escrito:

Este ejemplo crea en Hoja1 de Libro2, una lista en las columnas A, B y C
con los datos de todas las hojas de Libro1, contenidos en las celdas A1, F14
y J8. Tú deberás adaptarlo a tu caso, pues tu información es incompleta:

Sub MiLista()
Dim hoja As Object
For Each hoja In Workbooks("Libro1").Sheets
Workbooks("Libro2").Sheets("Hoja1").Cells(Cells(65535, 1).End(xlUp).Row
+ 1, 1). _
Value = hoja.Cells(1, 1).Value
Workbooks("Libro2").Sheets("Hoja1").Cells(Cells(65535, 2).End(xlUp).Row
+ 1, 2). _
Value = hoja.Cells(14, 6).Value
' la próxima me la invento (no lo has dicho)
Workbooks("Libro2").Sheets("Hoja1").Cells(Cells(65535, 3).End(xlUp).Row
+ 1, 3). _
Value = hoja.Cells(8, 10).Value
Next hoja
End Sub

Saludos desde Tenerife.
**************************************
"bbassn" escribió en el mensaje
news:
> Gracias Juan, pero por desgracia mis hojas no se llaman hoja1,
> hoja2, ademas dije 160 hojas, pero realmente tengo 470, voy a ver
> el enlace, pero si se te ocurre algo por favor dimelo.
>
> Gracias de nuevo
> Juan M ha escrito:
>
>> hola
>>
>> > Necesito ayuda para completar una tabla con informacion que hay en
>> > varias hojas de un mismo libro.
>> > Tengo un libro con unas 160 hojas y necesito hacer una tabla con
>> > informacion que hay en las mismas celdas, pero en distintas hojas de un
>> > mismo libro, es decir:
>> >
>> > dato 1 dato2 dato 3
>> > hoja 1 celda a1 hoja 1 celda F14
>> > hoja 2 celda a1 hoja 2 celda F14
>> >
>> >
>> > Gracias
>>
>> Si tus hojas se llaman Hoja1; Hoja2 puedes hacer lo que pides con la
>> formula Indirecto de la siguiente forma
>>
>> =INDIRECTO("hoja"&FILA(2:2)&"!$a$1")
>>
>> Esta forma es un poco 'peligrosa' ya que es volatil, lo que pude llegar a
>> ralentizar la hoja en exceso ya que hablamos de por lo menos 3*160
>> referencias, mas los calculos que deba realizar. Si quieres profundizar
>> un
>> poco en esto revisa el siguiente enlace.
>>
>> http://www.decisionmodels.com/calcsecretsi.htm
>>
>> Dependiendo de los resultados que obtengas comentas? Quiza podamos hacer
>> una
>> macro que capture los datos.
>>
>> Un saludo
>> Juan
>