Escribir nombre del libro y nombre de hoja

07/05/2006 - 17:03 por GRIEGO59 | Informe spam
Hola tengo un problema.
Tengo un libro de excel y quiero que muestre en una de las celdas el nombre
del libro y en otra celda quiero que muestre el nombre de la hoja.
Esto se puede hacer?
Gracias
GRIEGO

Preguntas similare

Leer las respuestas

#1 KL
07/05/2006 - 18:00 | Informe spam
Hola chicos,

Mas opciones:

Ruta:
=INFO("directory")

Nombre Archivo:
=EXTRAE(CELDA("filename";A1);LARGO(INFO("directory"))+2;ENCONTRAR("]";CELDA("filename";A1))-LARGO(INFO("directory"))-2)

=EXTRAE(CELDA("filename";A1);ENCONTRAR("[";CELDA("filename";A1))+1;ENCONTRAR("]";CELDA("filename";A1))-ENCONTRAR("[";CELDA("filename";A1))-1)

Nombre Hoja:
=EXTRAE(CELDA("filename";$A$1);ENCONTRAR("]";CELDA("filename";$A$1);1)+1;LARGO(CELDA("filename";$A$1)))

si tambien quieres que tu formula este a prueba de una situacion un tanto particular de cuando el libro solo tiene una hoja y el nombre de esa es exactamente el mismo que el del libro, entonces usa la siguiente solucion un pelin mas larga:

=BUSCAR(REPETIR("z";255);SUSTITUIR(EXTRAE(CELDA("filename";$A$1);1+ENCONTRAR({"*"\"]"};SUSTITUIR(CELDA("filename";$A$1);"\";"*";LARGO(CELDA("filename";$A$1))-LARGO(SUSTITUIR(CELDA("filename";$A$1);"\";""))));255);".xls";""))

Notas:

1) Si no me equivoco, las formulas deberian funcionar en el Office en castellano aun usando los argumentos "filename" y "directory" (entonces las formulas serian compatibles con las versiones de Office en otros idiomas) De no ser asi, cambia "filename" por "nombrearchivo" y "directory" por "directorio".

2) Las formulas que usan la expresion CELDA("filename";A1), solo funcionarian en un archivo que ha sido guardado al menos una vez.

Saludos,
KL



"Francisco MTY" wrote in message news:%
Pega el codigo donde gustes

sub nombres()
Range("A1") = ActiveSheet.Name
Range("B1") = ActiveWorkbook.Name
end sub

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."




Respuesta Responder a este mensaje
#2 GRIEGO59
07/05/2006 - 18:01 | Informe spam
Gracias por tu pronta respuesta,
Pero eso de los códigos no sé que me quieres decir.
Yo voy a probar escribiendo
= ActiveSheet.Name y
= ActiveWorkbook.Name
Espero que esto funcione si mi excel es en castellano
GRIEGO



"Francisco MTY" escribió:

Pega el codigo donde gustes

sub nombres()
Range("A1") = ActiveSheet.Name
Range("B1") = ActiveWorkbook.Name
end sub

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."





Respuesta Responder a este mensaje
#3 alexanderchacin
07/05/2006 - 18:11 | Informe spam
Mira la función Celda

Saludos
Alexander Chacin
Respuesta Responder a este mensaje
#4 GRIEGO59
07/05/2006 - 18:14 | Informe spam
Gracias por la respuesta
Disculpen pero yo pensé que esto sería algo fácil. Pero todos estos códigos
no los entiendo.
Gracias de todos modos
GRIEGO

"KL" escribió:

Hola chicos,

Mas opciones:

Ruta:
=INFO("directory")

Nombre Archivo:
=EXTRAE(CELDA("filename";A1);LARGO(INFO("directory"))+2;ENCONTRAR("]";CELDA("filename";A1))-LARGO(INFO("directory"))-2)

=EXTRAE(CELDA("filename";A1);ENCONTRAR("[";CELDA("filename";A1))+1;ENCONTRAR("]";CELDA("filename";A1))-ENCONTRAR("[";CELDA("filename";A1))-1)

Nombre Hoja:
=EXTRAE(CELDA("filename";$A$1);ENCONTRAR("]";CELDA("filename";$A$1);1)+1;LARGO(CELDA("filename";$A$1)))

si tambien quieres que tu formula este a prueba de una situacion un tanto particular de cuando el libro solo tiene una hoja y el nombre de esa es exactamente el mismo que el del libro, entonces usa la siguiente solucion un pelin mas larga:

=BUSCAR(REPETIR("z";255);SUSTITUIR(EXTRAE(CELDA("filename";$A$1);1+ENCONTRAR({"*"\"]"};SUSTITUIR(CELDA("filename";$A$1);"\";"*";LARGO(CELDA("filename";$A$1))-LARGO(SUSTITUIR(CELDA("filename";$A$1);"\";""))));255);".xls";""))

Notas:

1) Si no me equivoco, las formulas deberian funcionar en el Office en castellano aun usando los argumentos "filename" y "directory" (entonces las formulas serian compatibles con las versiones de Office en otros idiomas) De no ser asi, cambia "filename" por "nombrearchivo" y "directory" por "directorio".

2) Las formulas que usan la expresion CELDA("filename";A1), solo funcionarian en un archivo que ha sido guardado al menos una vez.

Saludos,
KL



"Francisco MTY" wrote in message news:%
> Pega el codigo donde gustes
>
> sub nombres()
> Range("A1") = ActiveSheet.Name
> Range("B1") = ActiveWorkbook.Name
> end sub
>
> Atte.
> ?T Francisco T?
> http://groups.msn.com/ExcelVbaMacrosOffice
> http://groups.msn.com/dadyboy
>
> "El progreso debe ser un movimiento ordenado y racional hacia una meta
> fija... y no un torbellino de direcciones falsas y encontradas."
>
>
>
>

Respuesta Responder a este mensaje
#5 alexanderchacin
07/05/2006 - 18:15 | Informe spam
Mira la función Celda

Saludos
Alexander Chacin
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida