Nombrar celda como la hoja

22/07/2004 - 21:40 por Jesús Peralta | Informe spam
Hola que tal... espero que esten bien todos y deseandoles
lo suficiente en este día,..

Me podrian ayudar con esto, necesito saber, y desde luego
aprender, como puedo por ejemplo,.. le pongo el nombre a
una hoja, y que en una celda determinada me aparesca lo
mismo, si le pongo nombre a la hoja DOC25 que en
la celda A1 me aparezca igual DOC25, mucho les agradesco
de su ayuda,.. y hasta pronto.
Saludos

Preguntas similare

Leer las respuestas

#1 Leandro
22/07/2004 - 22:28 | Informe spam
Coloca este codigo en ThisWorkbook y colocará el nombre de
la hoja activa en la celda A1 en cuanto muevas el cursor
de celda.

Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Range)
Cells(1, 1) = Me.ActiveSheet.Name
End Sub




Hola que tal... espero que esten bien todos y deseandoles
lo suficiente en este día,..

Me podrian ayudar con esto, necesito saber, y desde luego
aprender, como puedo por ejemplo,.. le pongo el nombre a
una hoja, y que en una celda determinada me aparesca lo
mismo, si le pongo nombre a la hoja DOC25 que en
la celda A1 me aparezca igual DOC25, mucho les agradesco
de su ayuda,.. y hasta pronto.
Saludos

.

Respuesta Responder a este mensaje
#2 Héctor Miguel
23/07/2004 - 02:32 | Informe spam
hola, chicos !

... este codigo ... colocara el nombre de la hoja activa en la celda A1 en cuanto muevas el cursor [..]



solo tener en cuenta los 'efectos colaterales' de modificar celdas por codigo...
=> se pierde el beneficio de 'des-hacer' [undo, ctrl+z, ...] :((

otra alternativa seria usando =Celda("NombreArchivo") y una combinación de 'otras' funciones:
notas:
a).- "FALLAN" si el libro aún no ha sido guardado <= b).- todas las formulas son EN UNA SOLA LINEA
c).- yo uso la coma "," como 'separador' de argumentos

suponiendo que tienes un libro guardado en: C:\Mis documentos, para 'obtener' en una celda:
1.- la ruta completa: C:\Mis documentos\[Nombre_Libro.xls]Nombre_Hoja
=Celda("NombreArchivo")

2.- sin el nombre de la hoja: C:\Mis documentos\[Nombre_Libro.xls]
=Izquierda(Celda("NombreArchivo"),Encontrar("]",Celda("NombreArchivo")))

3.- sin el nombre de la hoja (y SIN los 'corchetes'): C:\Mis documentos\Nombre_Libro.xls
=Sustituir(Sustituir(Izquierda(
Celda("NombreArchivo"),Encontrar("]",Celda("NombreArchivo"))),"[",""),"]","")

4.- solo la ruta donde esta guardado: C:\Mis documentos
=Izquierda(Celda("NombreArchivo"),Encontrar("[",Celda("NombreArchivo"))-2)

5.- solo el nombre del libro: Nombre_Libro.xls
=Extrae(Celda("NombreArchivo"),Encontrar("[",Celda("NombreArchivo"))+1,
Encontrar("]",Celda("NombreArchivo"))-Encontrar("[",Celda("NombreArchivo"))-1)

6.- solo el nombre de la hoja: Nombre_Hoja
=Extrae(Celda("NombreArchivo"),Encontrar("]",Celda("NombreArchivo"))+1,
Largo(Celda("NombreArchivo"))-Encontrar("]",Celda("NombreArchivo")))

sludos,
hector.
Respuesta Responder a este mensaje
#3 Jesus Peralta
23/07/2004 - 21:38 | Informe spam
MUchisismas gracias,.. a lenando y hector miguel,..
sabia que no me fallarian... gracias

Hola que tal... espero que esten bien todos y deseandoles
lo suficiente en este día,..

Me podrian ayudar con esto, necesito saber, y desde luego
aprender, como puedo por ejemplo,.. le pongo el nombre a
una hoja, y que en una celda determinada me aparesca lo
mismo, si le pongo nombre a la hoja DOC25 que en
la celda A1 me aparezca igual DOC25, mucho les agradesco
de su ayuda,.. y hasta pronto.
Saludos

.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida