Nombre de la Hoja en celda

2340 respuestas:

http://groups.google.com/group/micr...a+en+celda

Abraham

hola, 'anonimo/a' !

Tengo una formula en una celda que me busca y coloca el nombre en texto de un dato.
Existe una macro o formula que pueda poner el dato que resulta de dicha formula como nombre de la hoja?

te refieres a que necesitas que la hoja 'cambie' de nombre [en su etiqueta] segun el dato en 'determinada' celda ?
si suponemos que se trata de la celda 'A1', copia/pega lo siguiente en el modulo de codigo de 'esa' hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next ' por si tratas de aplicar un nombre que ya existe o no es valido !!! '
If Target <> "" Then Me.Name = Target
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias HM:

La macro funciona bien, solo que en mi cel da A1 tengo la siguiente formula:

=SI(B8="R",BUSCARV(B8,Datos!K1:L10,2,0),BUSCARV(B8,Datos!K1:L10,2,0))

Por lo que la macro que me das no sirve ya que no hya texto como tal en la
celda.

Lo que se me ocurre es una macro que en la celda B1 me ponga el resultado de
A1 convertido en texto, pero seria mucho pedir que fuera automatico la macro
es decir si hay dato en A1 en B1 se ponga el texto sin tener que dar clivk en
un boton o alt+F8.

Gracias por tu ayuda

Abraham, por cuestiones de sgueridad puestas por el servidor no puedo
accesar a muchas paginas que refieren¡ aqui, por lo que cuando ponen algunos
links no puedo abrilos.

Gracias por tu ayuda

"Héctor Miguel" escribió:

hola, 'anonimo/a' !

> Tengo una formula en una celda que me busca y coloca el nombre en texto de un dato.
> Existe una macro o formula que pueda poner el dato que resulta de dicha formula como nombre de la hoja?

te refieres a que necesitas que la hoja 'cambie' de nombre [en su etiqueta] segun el dato en 'determinada' celda ?
si suponemos que se trata de la celda 'A1', copia/pega lo siguiente en el modulo de codigo de 'esa' hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next ' por si tratas de aplicar un nombre que ya existe o no es valido !!! '
If Target <> "" Then Me.Name = Target
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, !

La macro funciona bien, solo que en mi celda A1 tengo la siguiente formula:
=SI(B8="R",BUSCARV(B8,Datos!K1:L10,2,0),BUSCARV(B8,Datos!K1:L10,2,0))
Por lo que la macro que me das no sirve ya que no hya texto como tal en la celda...

si la celda que se modifica es -> 'B8'
solo cambia la referencia en la primer linea del evento '_change'
de: -> If Target.Address <> "$A$1" Then Exit Sub
a: -> If Target.Address <> "$B$8" Then Exit Sub

otra alternativa es usar el evento '_calculate'
[solo que habria que condicionarlo de alguna forma para que no sea 'desgastante']

saludos,
hector.