For Each VBA

El uso de “FOR EACH” en VBA nos permite controlar objetos dentro del conjunto de elementos por ejemplo una hoja de libro o una celda.

Se usa de la siguiente manera:

Sub xxx()

For each (objetos dentro del conjunto)

Se escribe el objetivo que quiere que se realice en ese conjunto

Next Se finaliza la función For Each

End sub()

 

Como por ejemplo, en la siguiente fórmula podemos obtener el promedio de de las ventas trimestrales de un año en un rango seleccionado.

Sub PROMEDIOVENTAS()

Dim ULT As Integer

For Each cell In Range("b3:b6").cells

sum = sum + cell.Value

cant = cant + 1

Next

prom = sum / cant

Range("E5").Select

ActiveCell.Value = prom

End Sub

 

En la formula, se evalua el promedio del rango b3 hasta el b6 y coloca el valor en la celda E5

Descargar ejemplo de For Each en VBA: For Each en VBA