Cómo hago para acceder al valor de una celda si tengo una cadena con la direcció

Suponiendo que la celda con la dirección fuera A1:

=INDIRECTO(A1;VERDADERO)

Un saludo.


Fernando Arroyo
MS MVP - Excel


"c" escribió en el mensaje news:5eac01c3e64d$49cedd70$
Tengo por ejemplo una cadena con $C$9 que puede tomar la
dirección de cualquier celda.
Como hago para acceder al valor de la celda cuya
dirección contiene esta cadena?

Hola Fernando,

El problema es que tengo que ver el valor de la celda
desde código VBA.
Cómo hago para ver el valor que tiene la celda que
contiene la cadena pero desde código VBA?

Saludos,


Claudio

Mostrar la cita

Suponiendo que la celda con la dirección fuera A1:

=INDIRECTO(A1;VERDADERO)

Un saludo.


Fernando Arroyo
MS MVP - Excel


"c" escribió en el

mensaje news:5eac01c3e64d$49cedd70$
Mostrar la cita

Tengo por ejemplo una cadena con $C$9 que puede tomar la
dirección de cualquier celda.
Como hago para acceder al valor de la celda cuya
dirección contiene esta cadena?

.

Suponiendo de nuevo que la celda con la dirección fuera A1, y además que la hoja fuera Hoja1:

Dim v As Variant
v = Worksheets("Hoja1").Range(Worksheets("Hoja1").[A1])

He definido v como Variant porque ignoro qué es lo que va a contener la celda a la que "apunta" A1, pero si tú sabes con seguridad su contenido puedes cambiar Variant por su tipo.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"c" escribió en el mensaje news:60f201c3e651$fdba2480$
Hola Fernando,

El problema es que tengo que ver el valor de la celda
desde código VBA.
Cómo hago para ver el valor que tiene la celda que
contiene la cadena pero desde código VBA?

Saludos,


Claudio

Mostrar la cita

Suponiendo que la celda con la dirección fuera A1:

=INDIRECTO(A1;VERDADERO)

Un saludo.


Fernando Arroyo
MS MVP - Excel


"c" escribió en el

mensaje news:5eac01c3e64d$49cedd70$
Mostrar la cita

Tengo por ejemplo una cadena con $C$9 que puede tomar la
dirección de cualquier celda.
Como hago para acceder al valor de la celda cuya
dirección contiene esta cadena?

.

Hola Fernando,

Puse el código que me dijiste y me dio error:

Yo ese código lo tengo que poner en el evento
Workbook_SelectionChange(By val Sh as Object, ByVal
Target as Range)

Por lo que para probar puse msgbox Sh.Range(Sh.[A1])
pero me dio error al ejectuarse (Application-defined or
object-defined error)

Sabes como puedo poner?

Gracias!

Mostrar la cita

Suponiendo de nuevo que la celda con la dirección fuera

A1, y además que la hoja fuera Hoja1:
Mostrar la cita

Dim v As Variant
v = Worksheets("Hoja1").Range(Worksheets("Hoja1").

[A1])
Mostrar la cita

He definido v como Variant porque ignoro qué es lo que

va a contener la celda a la que "apunta" A1, pero si tú
sabes con seguridad su contenido puedes cambiar Variant
por su tipo.
Mostrar la cita

Un saludo.


Fernando Arroyo
MS MVP - Excel


"c" escribió en el

mensaje news:60f201c3e651$fdba2480$
Mostrar la cita

Hola Fernando,

El problema es que tengo que ver el valor de la celda
desde código VBA.
Cómo hago para ver el valor que tiene la celda que
contiene la cadena pero desde código VBA?

Saludos,


Claudio

Mostrar la cita

Suponiendo que la celda con la dirección fuera A1:

=INDIRECTO(A1;VERDADERO)

Un saludo.


Fernando Arroyo
MS MVP - Excel


"c" escribió en

el
Mostrar la cita

mensaje news:5eac01c3e64d$49cedd70$
Mostrar la cita

Tengo por ejemplo una cadena con $C$9 que puede tomar

la
Mostrar la cita

Mostrar la cita

dirección de cualquier celda.
Como hago para acceder al valor de la celda cuya
dirección contiene esta cadena?

.

.

El evento Workbook_SelectionChange no existe (hasta donde yo sé). Si te refieres al evento Worksheet_SelectionChange, el código podría ser:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Range([A1])
End Sub

que mostraría un mensaje con el contenido de la celda cuya dirección estuviera en A1 cada vez que se cambiara la selección en la hoja.
Un saludo.


Fernando Arroyo
MS MVP - Excel



"c" escribió en el mensaje news:616701c3e65a$2c784330$
Hola Fernando,

Puse el código que me dijiste y me dio error:

Yo ese código lo tengo que poner en el evento
Workbook_SelectionChange(By val Sh as Object, ByVal
Target as Range)

Por lo que para probar puse msgbox Sh.Range(Sh.[A1])
pero me dio error al ejectuarse (Application-defined or
object-defined error)

Sabes como puedo poner?

Gracias!