Renombrar pestañas automáticamente
Resuelto
Anémone39
Mensajes publicados
2
Estado
Miembro
-
Anémone -
Anémone -
Bonjour à tous,
No sé si hay alguien que puede ayudarme con mi problema, pero estoy tomando una oportunidad a ver si...
Me explico:
En mi archivo de Excel tengo una primera pestaña que se llama "FICHE", que contiene una lista de nombres de piezas que varía según los proyectos.
Luego tengo 3 pestañas más llamadas "DEVIS-A", "LISTE-A" y "COMM-A".
Me gustaría que mis 3 pestañas se nombraran automáticamente según el valor ingresado en la lista de la pestaña "FICHE" y que la parte "DEVIS, LISTE y COMM" permanezca intacta.
Ej: DEVIS-COCINA
¿Es posible?
Gracias de antemano
Buen día a todos :D
No sé si hay alguien que puede ayudarme con mi problema, pero estoy tomando una oportunidad a ver si...
Me explico:
En mi archivo de Excel tengo una primera pestaña que se llama "FICHE", que contiene una lista de nombres de piezas que varía según los proyectos.
Luego tengo 3 pestañas más llamadas "DEVIS-A", "LISTE-A" y "COMM-A".
Me gustaría que mis 3 pestañas se nombraran automáticamente según el valor ingresado en la lista de la pestaña "FICHE" y que la parte "DEVIS, LISTE y COMM" permanezca intacta.
Ej: DEVIS-COCINA
¿Es posible?
Gracias de antemano
Buen día a todos :D
4 respuestas
Slt
En cada pestaña (Presupuesto, lista y Comm), crea una celda que contenga el nombre de una pieza (cocina) y el nombre del documento a crear (Presupuesto...). Puedes ingresar esta fórmula en la celda correspondiente: =CONCATENAR("Presupuesto";'Ficha'!A1).
Fiche A1 es la celda en la hoja "Ficha" que contiene el nombre de una pieza
Luego crea el siguiente código:
Sub RenombrePestañasNombreCeldaB1()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.Name = Hoja.Range("B1").Value
Next Hoja
End Sub
Espero haber respondido a tus preguntas
Cdt
Yo49
En cada pestaña (Presupuesto, lista y Comm), crea una celda que contenga el nombre de una pieza (cocina) y el nombre del documento a crear (Presupuesto...). Puedes ingresar esta fórmula en la celda correspondiente: =CONCATENAR("Presupuesto";'Ficha'!A1).
Fiche A1 es la celda en la hoja "Ficha" que contiene el nombre de una pieza
Luego crea el siguiente código:
Sub RenombrePestañasNombreCeldaB1()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.Name = Hoja.Range("B1").Value
Next Hoja
End Sub
Espero haber respondido a tus preguntas
Cdt
Yo49
Anémone
Gracias, funciona.
