Error en Ubound cuando el rango tiene un solo elemento

[Salvador1]

Hola:

Una consulta teórica.
Supongamos que tengo esto:

Set R = Range("A1:A2")
Vec= R
Q = Ubound(Vec)
El resultado es: Q=2 (A1 y A2 tienen datos númericos o de texto)

Y ahora esto:
Set R...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Salvador1]

Corrijo:
En el primer caso el resultado es Q=1
Y en el segundo debería ser Q=0, pero da error.

 

[Héctor Miguel]

Una consulta teórica.
Y ahora esto:
Set R = Range("A1")
Vec= R
Q = Ubound(Vec)
¿Por qué no me da como resultado un 1, en vez de darme error tipo 13? ...

cuando...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Hola! Salvador1. Cuando haces:
Vec = Range("A1:A2")
entonces Vec termina resultando una matriz de 2 filas y de una columna.

Pero cuando haces:
Vec = Range("A1")
entonces Vec resulta un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Ups... "Se me fue" un Application de más. Lo correcto sería:

Set R = Range("a1")
With Application
  If R.Count = 1 Then Vec = .Transpose(Array(R)) Else Vec = .Transpose(R)
End...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
O similarmente:

Set R = Range("a1")
If R.Count = 1 Then Vec = Application.Transpose(Array(R)) Else Vec = Application.Transpose(R)

 

[Salvador1]

Menos mal Cacho, que has respondido, porque ya me estaba volviendo loco haciendo pruebas frustradas con la pista de Héctor. :D

Después de la pista (y antes de ver tu respuesta), ya había...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.

... Pero de ahí a llegar al resultado final ¡quizás hubieran pasado días!

¿Días?... ¡Qué exagerado!...