Crear de manera automática 31 hojas

Me pueden ayudar con una macro para crear 31 hojas y las nombre cada hoja del 1 al 31, necesito hacer esto con varios libros.

3 respuestas

Respuesta
2

H o l a:

Te anexo la macro. Ejecuta la macro sobre el libro en el que quieras crear las 31 hojas.

Sub CrearHojas()
'Por.Dante Amor
    For i = 1 To 31
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = i
    Next
End Sub

sal u dos

Respuesta
2

Otra:

Sub crear31hojas()
For i = 1 To 31
Sheets.Add(, Sheets(Sheets.Count)).Name = i
Next
End Sub
Respuesta
-1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas