Copiar datos de una lista en hojas diferentes
Estoy aprendiendo a hacer macros y me surge la siguiente duda:
Tengo una lista de datos a1:a15 en mi Hoja1 y me gustaría pegar cada dato en su respectivo orden en las diferentes hojas de mi archivo. Osea a1 en a1Hoja2; a2 en a1Hoja3... A15 en a1Hoja16.
El problema es que mis Hojas2-16 ya tienen nombres asignados.
¿Alguien podría ayudarme a seleccionar mi lista de la Hoja1 y luego copiar en orden consecutivo en la celda a1 de cada hoja existente?
1 respuesta
Haber si entendí.
Prueba con la siguiente macro
Sub Copiar_Valor()
'
Set h1 = Sheets(1)
h = 2
For i = 1 To 15
Sheets(h).Range("A1").Value = h1.Cells(i, "A").Value
h = h + 1
Next
End Subcopia el dato de A1 en la hoja 2, luego el dato de A2 en la hoja 3, etc.
No importa el nombre de la hoja, si las hojas están ordenadas, el dato de a1 lo pegará en la segunda hoja que tengas.
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Hola,
Muchas gracias, funciona a la perfección, al principio me generaba un error, pero creo que era problema de mi redacción. Nuevamente ¡Gracias!
