Extraer una celda de un rango contenido en una variable

[mogli]

Buenas,

Una duda que no soy capaz de resolver:

Tengo un rango de celdas (Q25:Q28), es el contenido de una variable tipo Objet

¿con que codigo podria aislar Q25? es decir que en la misma variable o en otra nueva solo me

quede (Q25). (las j*****s celdas combinadas me tienen loco).

Si alguien me puede echar una mano se lo agradeceria.

Gracias

Saludos

[jose71]

Hola,

He hecho esta prueba y funciona, mira si te sirve...

Sub prueba()

Dim rango As Object

Dim a As Integer

Set rango = Range("A5:A9")

a = rango.Item(2)

Debug.Print a

End Sub

[/CODE]

[mogli]

Gracias por contestar jose71, no me funciona con a como tipo Integer me da 0 y si la cambio

a tipo String me da ""

Gracias

[jose71]

Y si mandas adjunto el fichero que lo podamos echar un ojo y probar???

[Antoni]

Seguramente no entiendo tu problema, pero:

TuRango(x, y) siendo x e y los indices de la matriz que componen el rango.

El valor de una celda combinada siempre será Rango (1, 1)

Si subes un ejemplo a lo mejor lo vemos mas claro

[mogli]

Subo archivo,

He encontrado un codigo, que no entidiendo mucho, lo que hace es extraer la primera celda pero en formato RxCx

= Left(xx.Address(, , xlR1C1), InStr(1, xx.Address(, , xlR1C1), ":") - 1)[/HTML]

me da error en otra linea de la macro que tengo, pero ya tengo la cabeza muy caliente y no me concentro

lo dejare para otro rato

pueba.xls

[jose71]

Hola,

Adjunto el archivo con mi primera propuesta para tu pregunta.

¿con que codigo podria aislar Q25? es decir que en la misma variable o en otra nueva solo me

quede (Q25).

Un saludo.

pueba (1).xls

[Antoni]

De esta forma siempre obtendrás la dirección de la primera celda de tu rango xx, combinado o no:

Sub Prueba()


   MsgBox xx(1, 1).Address


End Sub



[/CODE]

[mogli]

Perfecto Macro Antonio, la verdad que cuando se sabe parece facil, cuando ves la solucion te ries ............ por no llorar de las vueltas (y el tiempo) que se le pueden dar a las cosas, es el precio que se paga por la ignorancia.

Muchas gracias por vuestra ayuda Macro y Jose71

Este codigo tambien funciona cambiando R1C1 por A1, para quien le pueda servir.

= Left(xx.Address(, , xlA1), InStr(1, xx.Address(, , xlA1), ":") - 1)[/HTML]

Gracias seguiremos por aqui aprendiendo.

[color=#0000ff]

TEMA SOLUCIONADO[/color]