Skip to main content
1 de 2
Esei
  • 3.9k
  • 1
  • 10
  • 14

A ver, tu código no está bien y además estás mezclando cosas diferentes, nombres con matrices y con rangos, y hay que hacer cambios.

Un nombre, por simplificarlo, hace referencia a una serie de celdas (en tu caso, la B1,B3 y B4). Pero es un objeto de tipo Name

Una celda o conjunto de celdas es un objeto de tipo Range. Tiene otros métodos y propiedades totalmente diferentes a Name

Y por último, están las matrices, que en VBA pueden ser definidas de varias maneras. Normalmente lo que se suele hacer es llevarse todo un rango de celdas a una matriz, porque así el tiempo de ejecución es menor. Este proceso, muy habitual, crea siempre matrices bidimensionales, es decir, que para llamar a un valor de la matriz, tienes que especificar siempre un número de fila y un número de columna. No tiene propiedades y métodos como el objeto Range o el objeto Name.

Simplificando mucho, una diferencia fundamental entre el objeto Range y una matriz, que a simple vista puede parecer que hacen lo mismo (un conjunto de celdas con valores), hay una diferencia fundamental: las matrices almacenan el valor dentro de la celda, no la referencia a la propia celda, con lo que si el valor de la celda cambia, en la matriz sigue guardado el valor antiguo (tienes que forzar la actualización del valor en la matriz). Sin embargo, el objeto Range, cada vez que lo invocas, te va a devolver el valor que haya en ese momento exacto en la celda, incluso si ha cambiado a lo largo de tu código. Pero en tiempo de ejecución tarda más tiempo.

OPINIÓN 100% PERSONAL: Si trabajas con muchos valores (y cuando digo muchos valores, hablo de trabajar con cientos de celdas a la vez), deberías plantearte usar matrices. Si trabajas con poquitas celdas, puede que te resulte más sencillo el objeto Range

Sobre matrices, quizás te pudiera interesar echar un ojo a esta respuesta, que lo explica muy simplificado.

https://es.stackoverflow.com/a/186012/74355

En relación a tu código, no me queda claro lo que estás intentando hacer. Entiendo que quieres llevarte los valores de las celdas B1,B3 y B4 a una matriz. Y esa referencia la tienes almacenada en un objeto Name.

Te adelanto que no puedes llevarte en un solo paso a una matriz un conjunto de celdas no adyacentes. Es decir, La celda B3 y B4 son adyacentes, pero B1 no porque saltaste la B2. Y por ello, no puedes llevarte todo de golpe a una matriz bidimensional. Tienes que llevarte los valores de 1 en 1

Luego, tienes que tener claro si tu nombre está definido como ámbito de Libro o ámbito de Hoja. En mi ejemplo, está definido como ámbito de Libro:

introducir la descripción de la imagen aquí

Fíjate que además la he definido con referencias absolutas (el símbolo del $).

Sobre referencias absolutas, mírate bien este enlace, porque es importante entenderlo:

Alternar entre referencias relativas, absolutas y mixtas

La propiedad RefersTo devuelve o establece la fórmula a la que debe hacer referencia el nombre, en la notación de estilo A1 y el lenguaje de la macro, comenzando con un signo igual. String de lectura y escritura

Propiedad Name. RefersTo (Excel)

Además, las celdas a las que hago referencia tienen estos valores:

introducir la descripción de la imagen aquí

Mi código coge la referencia del nombre Celdas1 (que está definido como ámbito Libro). Se lleva eso a una variable de texto, la cual troceo en partes, y en cada parte tengo la referencia de la celda.

Cuando ya tengo todas las referencias, con un bucle me llevo cada valor de 1 en 1 a una matriz unidimensional Y luego ya me paseo por la matriz y devuelvo todos y cada uno de los valores.

Por si no los conoces, mírate bien que funciones nativas de VBA puedes usar con matrices:

Función Split

Función Ubound

Función LBound

Instrucción Erase

Instrucción Redim

Y este es mi código:

Sub Vaciar_nombres()
Dim STR As String
Dim MiMatriz() As Variant
Dim MiNombre As Name
Dim i As Long

Set MiNombre = ThisWorkbook.Names("Celdas1")

STR = MiNombre.RefersTo 'guardamos la referencia en un string
STR = Replace(Replace(Replace(STR, "=(", ""), ")", ""), hoja_de_pruebas.Name & "!", "") 'eliminamos los paréntesis, el símbolo de igual inicial, y el nombre de la hoja
'así se nos queda un string de tipo $B$1,$B$3,$B$4, con las referencias que interesan

'contamos cuantos valores tenemos y redimensionamos nuestra matriz unidimensional
'Split permite dividir un texto según un caracter y crear matrices. El tamaño de la matriz +1 es el total celdas
ReDim MiMatriz(1 To (UBound(Split(STR, ",")) + 1))

For i = 1 To UBound(MiMatriz) Step 1
    MiMatriz(i) = hoja_de_pruebas.Range(Split(STR, ",")(i - 1)).Value
Next i

'ahora devuelvo todos los valores
For i = 1 To UBound(MiMatriz) Step 1
    Debug.Print MiMatriz(i)
Next i

'limpio objetos y matrices para limpiar memoria
Erase MiMatriz
Set MiNombre = Nothing
End Sub

Y cuando lo ejecuto, la ventana inmediato me devuelve estos valores:

introducir la descripción de la imagen aquí

Fíjate bien que el número 20 no lo devuelve, porque ese valor estaba en la celda B2, que no está incluida en el nombre Celdas1

Espero que esto te pueda servir y adaptarlo un poco, porque como he dicho, no tengo claro lo que quieres hacer, pero prueba y nos cuentas.

Esei
  • 3.9k
  • 1
  • 10
  • 14