Insertar hojas con nombres con formato
Buenas tarde, Lo que deseo hacer es insertar hojas con los nombres de una lista que tengo en la hoja 1 a partir de A1 hasta A65, pero que adicionalmente, ¿en cada hoja nueva se incluya el formato de la hoja 2. Como puedo hacerlo? Pues hasta el momento solamente he desarrollado la primera parte.
1 Respuesta
Respuesta de David Arenas Montoya
1
Sub hojas()
c = 0 ' cuenta las hojas del libro activo
For Each Ws In Worksheets
c = c + 1
Next Ws
Application.ScreenUpdating = False
c = c - 1
For f = 1 To 3
Sheets("hoja2").Copy After:=Sheets(c) ' Suponiendo que Hoja2 es la que deseas copiar
ActiveSheet.Name = Worksheets("hoja1").Cells(f, 1).Value' hoja 1 es donde esta la lista
c = c + 1
Next f
Application.ScreenUpdating = True
End Sub
c = 0 ' cuenta las hojas del libro activo
For Each Ws In Worksheets
c = c + 1
Next Ws
Application.ScreenUpdating = False
c = c - 1
For f = 1 To 3
Sheets("hoja2").Copy After:=Sheets(c) ' Suponiendo que Hoja2 es la que deseas copiar
ActiveSheet.Name = Worksheets("hoja1").Cells(f, 1).Value' hoja 1 es donde esta la lista
c = c + 1
Next f
Application.ScreenUpdating = True
End Sub
