Colocar una cantidad de una lista en cada hoja del libro de excel en una celda especifica
buenas tardes, quisiera me apoyaran con lo sig: tengo una lista de cantidades en una hoja de excel llamada datos,(aprox 18 cantidades), en una sola columna (col B), y quiero que una macro me copie cada cantidad en la siguientes hojas (una en cada hoja), en una celda especifica (J26), espero me haya explicado, por su atencion muchas gracias
saludos
(el nombre de las hojas es consecutivo del 1 al 18)
1 Respuesta
Te anexo la macro.
Suponiendo que tus datos van desde la celda B1 hasta la celda B18 y que tus hojas se llaman "1", "2", "3", hasta la "18".
Sub copiar()
'Por.Dante Amor
For i = 1 To 18
Sheets("datos").Range("B" & i).Copy Sheets("" & i).Range("J26")
Next
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
Muchas gracias por su pronta respuesta, la macro quedo excelente, solo te quería pedir un favor que se me paso comentarte, espero no te complique mucho, son dos libros diferentes, uno que se llama "reportes" de donde toma los datos en la hoja "BOTON", y el otro que se llama "graficas" que contiente las 18 hojas y es a donde pone las cantidades, una disculpa por la omisión, y de nuevo muchas gracias
Esta es la macro, deberás tener tus 2 libros abiertos
Sub copiar()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("BOTON")
Set l2 = Workbooks("graficas")
For i = 1 To 18
h1.Range("B" & i).Copy l2.Sheets("" & i).Range("J26")
Next
End Sub
