Copiar valores desde una lista y pegarlos en varias hojas

[pocho227]

Buen dia necesito ayuda

hay alguna macro de excel que me pueda ayudar a mi problema

tengo una hoja de excel "Hoja1 en ella tengo 2788 valores diferentes en la columna A y tengo que copiar y pegar cada valor a una hoja diferente del libro

ejemplo
copiar la celda A2 y pegarla en la hoja numero 35 del libro
copiar la celda A3 y pegarla en la hoja numero 36 del libro
y asi hasta la celda 2788 y la hoja 2821
las hojas tienen difernetes nombres que tambien los tengo en una lista

despues tengo que tomar cada hoja y pasarla a un libro nuevo con otra hoja llamada listas
total crear un libro nuevo con la hoja 35 y la hoja listas hasta la hoja 2788

pero si lo hago manual no terminare nunca

[uzziber]

Sí, no terminarás nunca; pero Excel tiene una herramienta muy útil para estas tareas repetitivas,
activa la Grabadora de Macros, ejecuta en Excel lo que quieres hacer, ejecuta el ciclo completo.
apaga la grabadora y te mostrará el código de la macro del ciclo que realizaste, lo demás es reescribirlo con un For-Next tal vez y ajustar la salida de datos a lo que deseas....
Saludos...

[pocho227]

Mi estimado amigo eso que me recomiendas ya lo intente pero me aroja ,muchas lineas de codigo por cada hoja y como te comento son 2000 y tantas asi que por eso digo no termino nunca

Estoy intentando una serie de lineas que lean la lista y escriban en las hojas pero me arroja un erro y hay sigo

[uzziber]

Siempre será mejor que la máquina ejecute el código de un ciclo (una hoja?) y luego repetir el mismo código para el siguiente valor y asi sucesivamente...hasta n veces...
que hacerlo a mano....

[pocho227]

Si eso precisamente es lo que necestito pero no he podido por eso estoy pidiendo ayuda

[Perr0]

sólo para iluminarte el camino, lo demás te lo dejo en tus manos:

puedes poenr esta macro en cualquier hoja o modulo

Código vb:

Sub prueba()
    Dim y As Integer
    Dim hoja As Object
    y = 2
    For Each hoja In ActiveWorkbook.Worksheets
        'Message Box para que veas los valores, debes comentarlo
        MsgBox "nombre de la hoja:   " & hoja.Name _
        & Chr(13) & "indice de la hoja:   " & hoja.Index _
        & Chr(13) & "valor hoja 1:   " & ActiveWorkbook.Worksheets(1).Cells(y, 1)
        'pegado de la data que necesitas desde la hoja 35
        If hoja.Index > 35 Then hoja.Range("A1") = ActiveWorkbook.Worksheets(1).Cells(y, 1)
        y = y + 1
    Next
End Sub