Ayuda con macros

[Leslie Villegas]

Buenas tardes!!

Realmente tengo 0 experiencia con los macros, necesito resolver una duda que según lo que he leído solo puede ser mediante macros

ahora si, tengo un libro de excel con 68 hojas, necesito mostrar el dato de cada celda B8 de cada hoja a la primera hoja del libro o sea en la en la =Hoja1!G2 necesito mostrar la =Hoja2!B8, en la =Hoja1!G3 necesito mostrar la =Hoja3!B8 y asi hasta la =Hoja1!G68 necesito mostrar la =Hoja68!B8

espero que me hayan entendido y puedan explicarme como a un niño

muchas gracias de antemano por su tiempo y colaboración

Leslie V.

[John Jairo V]

Hola!

Puedes usar el siguiente código en un módulo (Presionas Alt + F11, vas a insertar - módulo y allí pegas el código):

Sub TraerDatos()

    Dim CeldaIni$, CeldaCopia$


    RngIni = "G3" ' Aquí cambiar la celda Inicial

    CeldaCopia = "B8" ' Aquí cambiar la celda Copia


    For i = 2 To 68

        Sheets("Hoja1").Range(RngIni).Offset(i - 2) = Sheets("Hoja" & i).Range(CeldaCopia)

    Next i

End Sub[/CODE]

Comentas!

Espero haberte ayudado, Dios te bendiga!

[Armando Montes]

Hola, en G2 coloca esta formula y copiala hacia abajo, tantas filas como hojas tengas:

=INDIRECTO("'Hoja"&Fila()&"'!B8")[/CODE]