Duplicar plantilla y renombrar las hojas
Vengo haciendo un trabajo manual que estoy seguro se podría automatizar con alguna macro.
Tengo una tabla dinámica en la hoja "Tabla"con los siguientes datos:
En el mismo archivo tengo una hoja llamada "plantilla"; necesitaría que esta hoja llamada plantilla se duplique N cantidad de veces según sea la cantidad de valores agrupados en la columna hoja (para el ejemplo crearía 3 hojas, llamadas 1, 2 y 3)
En esta ultima imagen se observa que ya tenemos la 3 hojas duplicadas de la plantilla y renombrada; en la B18 también necesitaría que se ponga el nombre de la hoja.
Muy agradecido por su ayuda...
1 respuesta
Prueba esto:
Sub Duplicar_Plantilla()
Dim dic As Object
Dim c As Range
'
Set dic = CreateObject("Scripting.Dictionary")
For Each c In Sheets("Tabla").Range("A5", Sheets("Tabla").Range("A" & Rows.Count).End(3)(0))
If Not dic.exists(c.Value) Then
dic(c.Value) = Empty
Sheets("Plantilla").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
Range("B18").Value = c.Value
End If
Next
End Sub
¡Gracias! me funciono de maravilla...
Encantado de ayudarte, gra cias por comentar.
Dato informativo. Esta instrucción sirve para crear un índice de datos:
Set dic = CreateObject("Scripting.Dictionary")
Revisa en mi canal los vídeos sobre Dictionary
Excel vba dictionary parte 1 - YouTube
Visita:
https://www.youtube.com/@CursosDeExcelyMacros
---
Cursos de Excel:
https://www.youtube.com/watch?v=w7MYL3wDgH4&t=3s
https://www.youtube.com/watch?v=dy9w9zbkCaw&t=644s
https://www.youtube.com/watch?v=7Xhs04vhrtg&t=188s
---
Cursos de Macros:
https://www.youtube.com/watch?v=PupmVvM16-8&t=1s
https://www.youtube.com/watch?v=f_x8pstpNqc&t=3s
https://www.youtube.com/watch?v=5k0szqErdXg&t=689s
---
Sal u dos Dante Amor
