FUNCIÓN CELDA

[mmittelbach]

Buen dia a atodos,
Buscando en los post, encontre uno sobre la función celda, pues necesito copiar en una sola hoja el listado de 57 hojas que posee el libro de trabajo.

Encontre las siguientes indicaciones:
=CELDA("filename")
'file:///C:/Users/MARV/Downloads/_Test/FunctionsExtractFileName.ods'#$Sheet1

=MID(CELDA("filename");2;HALLAR("'#";CELDA("filename"))-2)
file:///C:/Users/MARV/Downloads/_Test/FunctionsExtractFileName.ods

=MID(CELDA("filename");2;HALLAR("/[^/]+'#";CELDA("filename"))-1)
file:///C:/Users/MARV/Downloads/_Test/

=MID(CELDA("filename");ENCONTRAR("#$";CELDA("filename"))+2;LARGO(CELDA("filename")))
Sheet1

=MID(CELDA("filename");HALLAR("/[^/]+'#";CELDA("filename"))+1;HALLAR("'#";CELDA("filename"))-HALLAR("/[^/]+'#";CELDA("filename"))-1)
FunctionsExtractFileName.ods

=MID(CELDA("filename");HALLAR("/[^/]+'#";CELDA("filename"))+1;HALLAR("'#";CELDA("filename"))-HALLAR("/[^/]+'#";CELDA("filename"))-5)
FunctionsExtractFileName

=REEMPLAZAR(REEMPLAZAR(CELDA("filename");ENCONTRAR(".";CELDA("filename");1);(LARGO(CELDA("filename"))-ENCONTRAR(".";CELDA("filename");1)+1);"");1;HALLAR("/[^/]*$";CELDA("filename"));"")
FunctionsExtractFileName

=EXP.REG(CELDA("filename");"[^/]+(?='#\$)")
FunctionsExtractFileName.ods

El problema es que ninguna de las funciones me lista todos los nombres.
Ahora la funcion que me da como resultado "sheet 1" no es posible modificar un parametro para que liste todas la hojas?
Muchas gracias

[Longi]

Buenas!
En calc no me manejo, pero tampoco es que esté muy explicado qué es lo que quieres.
En el último párrafo expones algo así como que necesitas saber el nombre de todas las hojas del documento.
Supongo que no es esto lo que necesitas, pero por si acaso...: Esta minimacro te enseña todos los nombres de las hojas del documento.

Código: Seleccionar todo

Sub Main
	oDoc= ThisComponent
	oHojas = oDoc.getSheets().getCount
    For i=0 to oHojas																				' Recorremos las hojas del documento
    msgbox oDoc.Sheets.GetByIndex(i).Name
    Next  													                                                ' 

End Sub

Un saludo!