Cambiar nombre de varias hojas por celda

[jssbk]

Hola de nuevo jejeje creo que mi primer post estuvo mal elaborado

pido disculpas

Bueno espero que si me puedan ayudar en este otro post

Lo que quisiera que me ayudaran es en lo siguiente

Tengo 1 libro por mes dentro de este libro van las fecha ej:01-08-2012 hasta llegar al 31-08-2012 lo necesito es que al colocar 01-08-2012 los de mas libros se coloquen automáticamente 2,3,4 hasta llegar al 31

"Espero que me ayuden muchas gracias saludos"

ya dejo el archivo de ejemplo:

ejemplo.rar

[tese1969]

Buenas, jssbk

Si ya tienes un libro con los 31 días como hojas, creo que una solución fácil sería reemplazar el mes en todas ellas a través de una pequeña macro....

Yo me hice una que permite esto, justamente para cuando necesitas cambiar algún dato del nombre de las hojas pero mantener el resto.

Te adjunto el código:

Sub cambiarnombrespestañas()


Application.ScreenUpdating = False


a = InputBox("Parte del nombre de la pestaña que desea modificar")

B = InputBox("Texto que aparecerá en su lugar")


For Each pestaña In Worksheets

    x = pestaña.Name

    Range("IV1") = x

    Range("IV1").Select

    Selection.Replace What:=a, Replacement:=B, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

    y = Range("IV1")

    pestaña.Name = y

Next pestaña

Range("a1").Activate

Range("IV1").ClearContents


Application.ScreenUpdating = True


End Sub

[/CODE]

Si te parece una solución, pues perfecto.....si no es así, ya vemos otra opción....

Un saludo,

Tese

[Zitrus]

Gracias Tese, yo he añadido tu código a un proyecto que estoy haciendo y funciona muy bien.

Saludos.

[Armando Montes]

Hola, una opcion:

Sub DiasMes()

Mes = InputBox("Nombre del mes a incluir")

For Each sh In ActiveWorkbook.Sheets

i = i + 1

sh.Name = i & "-" & Mes & "-" & 2014

Next sh

End Sub[/CODE]