Crear y seleccionar rangos con nombres

Para poder simplificar el uso de rangos en VBA, es necesario aplicar la determinación de rangos con nombres, en la figura 1 muestra la definición de rangos con nombres aplicados. Cabe mencionar que la asignación de nombres a un determinado rango permite mejorar y optimizar los tiempos de ejecución y recursos del programa.

(Para mayor visualización de la imagen, hacer click en la misma)

Figura 1

 

Paso 1.

Seleccionar el rango al cual se va a nombrar.

(Para mayor visualización de la imagen, hacer click en la misma)

Paso 2.

Luego se asigna el nombre e identificar el rango de celdas. Cabe mencionar que el rango con nombre pertenece a la Hoja en la cual ha sido nombrada y ademas el nombre ya no se podrá utilizar en ninguna otra hoja.

A continuación se muestra el objeto creado con el nombre asignado.

 

Para llevar las instrucciones a una macro se debe ingresar el siguiente código, el cual permite nombrar el rango de celdas.

Paso 1

Ingresar el código:

‘Crear el nombre de la macros

Sub grupo_rango()

‘Crear el nombre de la macros, se selecciona el rango de celda.

‘ Seleccionar la propiedad "name"(nombre)

‘Luego se ingresa el nombre al rango seleccionado

Range("B3:B20").Name = "PBI2011"

End Sub

 

En la imagen se muestra el rango con el nombre asignado.

 

Aplicaciones diversas.

Un ejemplo aplicativo seria cambiar el formato al rango entendido entre C3 - C20 mostrando la moneda y los montos.

El código es el siguiente:
Sub nom_rango1()
Dim PBID As Range
'Crear el rango con nombre PBID(PBI2012)
Range("c3:c20").Name = "PBID"

'Dar formato al rango con nombre
Range("PBID").NumberFormat = "0,000"" $"""

End Sub

 

En conclusión es mejor tratar a los rangos asignándoles nombres lo cual permitirá identificar ordenadamente los rangos que existan en un proyecto, modulo u hoja.

 

Atte. Erik Quispe D.