Macro que genere hojas automáticas con datos de una hoja base
Me podrían colaborar, no soy muy conocedor del tema, pero estoy buscando generar una macro que me ayude en mi trabajo, básicamente tengo una hoja en excel llamada "CANTIDADES", donde de manera vertical y a partir de la celda B15 se listan unos códigos que referencian unas actividades, de manera horizontal a cada celda de código encuentro, la actividad de cada unos de estos códigos (Celda C) y una unidad (celda D), quisiera que por favor me ayudaran con una macro que genere hojas automáticas cuyo nombre sea cada código, estas hojas nuevas son a partir de una hoja modelo llamada "Hoja"; e igualmente, para cada código extraiga, tome la actividad y la copie en la celda combinada A10:F10, la unidad la copie en la celda F8 y el código lo coloque en la celda combinada A9:F9. Les agradezco mucho sus colaboraciones
Adjunto unos pantallazos de las hojas. Gracias
1 Respuesta
No queda claro si el rango va desde fila 15 hasta el final o solo hasta fila 21. Dejo comentarios en el mismo código para que lo ajustes.
Sub creaHojasCodigo()
'x Elsamatilde
Sheets("HOJA").Select
'se recorre la col B desde fila 15 .... ajustar fin de rango
Set hoc = Sheets("CANTIDADES")
finx = 21 'Ajustar
For i = 15 To finx
'se pasan los datos de hoja Cantidades
[A10] = hoc.Range("C" & i)
[F8] = hoc.Range("D" & i)
[A9] = hoc.Range("B" & i)
'se agrega una copia de HOJA con nombre del código
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = hoc.Range("B" & i)
Sheets("HOJA").Select
'se repite el proceso para el siguiente código
Next i
MsgBox "Fin del proceso."
End SubSdos y no olvides valorar la respuesta (opción excelente o buena)
