12/02/2009, 19:42
|
| | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 8 meses Puntos: 88 | |
Respuesta: pestañas de hojas del libro
Hola! eljamb. Una opción podría ser el siguiente código VBA:
Código:
Sub CambioDeNombre()
n = 2
Application.ScreenUpdating = False
For ii = 2 To Sheets.Count
Sheets(ii).Name = "Cacho" & ii
Next ii
For ii = 2 To Sheets.Count
Sheets(ii).Name = Sheets(ii - 1).Name + n
Next ii
Application.ScreenUpdating = True
End Sub
Te aclaro que la sección:
Código:
For ii = 2 To Sheets.Count
Sheets(ii).Name = "Cacho" & ii
Next ii
probablemente no sea necesaria.
Sin embargo, la he incluído previendo algunas "cuestiones" que se te puedan haber olvidado mencionar.
Saludos, Cacho. |