¿Cómo insertar el nombre de la etiqueta como valor en una celda?

Hola Mar,

?Podrias aclarar de que etiqueta estas hablando exactamente? Si te estas
refiriendo al control ActiveX (o de formulario) depositado en una hoja de
calculo, entonces podrias usar el siguiente macro:

Sub Test()
With ActiveSheet
.Range("A1") = .Shapes("Etiqueta1").Name
End With
End Sub

Para el control etiqueta ActiveX tambien puedes usar esta instruccion:

Sub Test()
With ActiveSheet
.Range("A1") = .OLEObjects("Etiqueta1").Name
End With
End Sub

Para el control etiqueta de formulario tambien puedes usar esta instruccion:

Sub Test()
With ActiveSheet
.Range("A1") = .Labels(1).Name
End With
End Sub

Donde "Etiqueta1" es el nombre del control y el 1 es el indice del control.

Saludos,
KL

"Mar" wrote in message
news:

Buenos días, ¿sabe alguien cómo insertar el nombre de una etiqueta como
valor
de una celda?
Muchas gracias.

Gracias por contestar tan rápido,
Me refiero al nombre de la hoja.
Ejemplo:
Al crear un nuevo libro "libro1" tenemos tres hojas nuevas: "Hoja1", "Hoja2"
y "Hoja3". Mi consulta se refiere a la etiqueta "Hoja1".

Nota.- Al configurar la página para imprimirla, puedes poner en el
encabezado el nombre del archivo (nombre de la hoja: Libro1 en nuestro
ejemplo) y la etiqueta (nombre de la hoja: Hoja1 en nuestro ejemplo).

Un saludo.

"KL" wrote:

Hola Mar,

?Podrias aclarar de que etiqueta estas hablando exactamente? Si te estas
refiriendo al control ActiveX (o de formulario) depositado en una hoja de
calculo, entonces podrias usar el siguiente macro:

Sub Test()
With ActiveSheet
.Range("A1") = .Shapes("Etiqueta1").Name
End With
End Sub

Para el control etiqueta ActiveX tambien puedes usar esta instruccion:

Sub Test()
With ActiveSheet
.Range("A1") = .OLEObjects("Etiqueta1").Name
End With
End Sub

Para el control etiqueta de formulario tambien puedes usar esta instruccion:

Sub Test()
With ActiveSheet
.Range("A1") = .Labels(1).Name
End With
End Sub

Donde "Etiqueta1" es el nombre del control y el 1 es el indice del control.

Saludos,
KL

"Mar" wrote in message
news:
> Buenos días, ¿sabe alguien cómo insertar el nombre de una etiqueta como
> valor
> de una celda?
> Muchas gracias.

Por si te sirve este ejemplo:

Como insertar el contenido del comentario de una celda en
la celda como valor.

Sub Macro1()
ActiveCell.Value = ActiveCell.Comment.Text
End Sub