VBA: Macro para crear y duplicar hojas en Excel.

En esta ocasión explicaré cómo usar una macro para crear y duplicar hojas en un Libro de Excel, en respuesta a la petición de un usuario:

...En la hoja 1, tengo una tabla con 10 valores diferentes (por mencionar un ejemplo) En la hoja 2, tengo un formato prediseñado. Lo que quiero hacer es que de manera automática, el valor 1, de la Hoja1, se pase a la Hoja 2 (en una celda en especifico) El valor 2 de Hoja 1, se pase a la Hoja 3 El valor 3, Hoja1, se pase a la Hoja 4 Y asi sucesivamente. OJO: Los 10 valores de la tabla, Hoja1, tienen que ser ilimitados (ya sea los 10 valores o 1000 valores) OJO2: los valores son numéricos, texto y ambos La cuestión es que necesito que todo sea automatizado. Si yo ingreso 20 valores a la tabla, automáticamente, se abran las 20 Hojas nuevas, con los valores correspondientes...

Debemos tener claro cuál es nuestro objetivo, y es que desde un listado, al ejecutar nuestra macro, se dupliquen tantas hojas como valores tengamos en dicho listado, trasladando posteriormente a cada hoja duplicada nueva los valores correspondientes del listado original.
Nuestro punto de partida es el listado donde encontramos los registros desde donde obtendremos los valores para crear las hojas nuevas, y también de donde sacaremos los diferentes campos con los que rellenar estas nuevas hojas: Hoja 'origen'.

En otra hoja del fichero tenemos el modelo de plantilla a replicar para cada registro: Hoja 'modelo'.

La tarea consiste en elaborar un código VBA que a partir de la hoja donde se encuentra el modelo de la plantilla (Hoja 'modelo') la duplique y traslade, por orden, cada fila del listado de registros (Hoja 'origen').
Nuestro código VBA a incluir en un módulo del Explorador del proyecto dentro del Editor de VBA es:

Sub hojas()
Dim HojaOrigen As Worksheet, HojaNueva As Worksheet
Set HojaOrigen = Sheets("origen")

'para recorrer los 11 registros del listado
For i = 1 To 11
'desactivamos la actualización/refresco de pantalla
Application.ScreenUpdating = False

'duplicamos la Hoja 'modelo'
Sheets("modelo").Copy after:=Worksheets(Worksheets.Count)
Set HojaNueva = Sheets(Worksheets.Count)
nombrehoja = Worksheets("origen").Cells(7 + i, 4).Value
'damos nombre a la hoja con el valor de la celda D7+i
HojaNueva.Name = nombrehoja

'activamos la actualización/refresco de pantalla
Application.ScreenUpdating = True

'trasladamos el valor de la celda ID
HojaOrigen.Cells(7 + i, 4).Copy
HojaNueva.Cells(2, 8).PasteSpecial Paste:=xlValues
'trasladamos el valor de la celda Num folio
HojaOrigen.Cells(7 + i, 1).Copy
HojaNueva.Cells(5, 7).PasteSpecial Paste:=xlValues
'trasladamos el valor de la celda fecha
HojaOrigen.Cells(3, 6).Copy
HojaNueva.Cells(5, 8).PasteSpecial Paste:=xlValues
'trasladamos el valor de la celda ejemplo
HojaOrigen.Cells(3, 5).Copy
HojaNueva.Cells(5, 4).PasteSpecial Paste:=xlValues
'trasladamos el valor de la celda IDU (Di)
HojaOrigen.Cells(7 + i, 4).Copy
HojaNueva.Cells(9, 5).PasteSpecial Paste:=xlValues
'trasladamos el valor de la celda ODU (Ei)
HojaOrigen.Cells(7 + i, 5).Copy
HojaNueva.Cells(10, 5).PasteSpecial Paste:=xlValues
'trasladamos el valor de la celda LNB (Fi)
HojaOrigen.Cells(7 + i, 6).Copy
HojaNueva.Cells(11, 5).PasteSpecial Paste:=xlValues

'limpiamos el portapapeles
Application.CutCopyMode = False
Next i
End Sub

Si asignamos la macro Hojas() creada a una autoforma, con el texto 'Generar ODS', que tenemos localizada en la Hoja 'origen', y ejecutamos dicho código, veremos el resultado: