A continuación, veremos un programa que recorre un rango definido . Por ejemplo, cuando queremos elevar al cuadrado los números en Rango ("A1: A3"). ¿Sabías que también puedes recorrer un rango dinámico ?

Situación:

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Primero, declaramos dos objetos Range. Llamamos a los objetos Range rng y cell.

Dim rng As Range, cell As Range

2. Inicializamos el objeto Range rng con Range ("A1: A3").

Set rng = Range("A1:A3")

3. Agregue el bucle For Each Next.

For Each cell In rng

Next cell

Nota: rng y cell se eligen al azar aquí, puede usar cualquier nombre. Recuerde hacer referencia a estos nombres en el resto de su código.

4. A continuación, cuadramos cada celda de este rango. Para lograr esto, agregue la siguiente línea de código al bucle:

cell.Value = cell.Value * cell.Value

Resultado al hacer clic en el botón de comando en la hoja:

5. Si desea verificar cada celda en un rango seleccionado al azar, simplemente reemplace:

Set rng = Range("A1:A3")

con:

Set rng = Selection

6. Ahora, por ejemplo, seleccione Rango ("A1: A2").

Resultado al hacer clic en el botón de comando en la hoja:

2/11 Completado! Obtenga más información sobre los bucles>
Capítulo siguiente: Errores de macro