Rotular varias pestalas sin cambiar de pestaña

23/07/2009 - 21:23 por Sergio Eduardo | Informe spam
Que tal y muchas gracias por su ayuda

Necesito de un libro de 30 hojas rotularlas cada una de ellas con
nombres diferentes esto es la hoja 1 toda la hoja debe de llamarse
anexo_1 la hoja 2 debe llamarse anexo_2 y asi sucesivamente hasta que
llegue a la hoja no 30 y como debo de hacerlo alrededor de 200 veces
deseo saber si existe alguna manera de hacerlo por medio de una macro

saludos
 

Leer las respuestas

#1 Héctor Miguel
24/07/2009 - 04:55 | Informe spam
hola, Sergio !

Necesito de un libro de 30 hojas rotularlas cada una de ellas con nombres diferentes
esto es la hoja 1 toda la hoja debe de llamarse anexo_1 la hoja 2 debe llamarse anexo_2
y asi sucesivamente hasta que llegue a la hoja no 30
y como debo de hacerlo alrededor de 200 veces
deseo saber si existe alguna manera de hacerlo por medio de una macro



si los nombres diferentes llevan el mismo "patron" (anexo_) y solo cambia el numero secuencialmente (?)
prueba con una macro +/- como la siguiente (se asume que existen al menos 30 hojas en el libro activo)

Sub Re_numera_hojas()
Dim n As Byte
For n = 1 To 30
Worksheets(n).Name = "anexo_" & n
Next
End Sub

saludos,
hector.

Preguntas similares