Consulta sobre ejecutar macro n veces en un rango de celdas

[Galactico 1]

buenas noches, dispongo de una macro que me entrega para cada celda un valor distinto de 0 (dentro de un rango de celdas), al utilizar ciclo for, no obtengo todos los resultados inmediatamente (algunas celdas siguen con valor 0, por la naturaleza de los datos de entrada), por lo que debo ejecutar la macro varias veces hasta que se rellenen todos los datos del rango con un valor distinto de 0 

 

como puedo ejecutar la macro de forma automática varias veces, hasta que todos los valores de mi rango, sean distintos de 0?

 

muchas gracias

 

[AlexanderS 939]

Hola @Galactico, en ese caso debes buscar como utilizar los ciclos while, te adjunto un código que recorre un rango de celdas colocando un número aleatorio y con el while indico que la instrucción debe repetirse hasta que el número que entrega sea mayor a 50.

Sub aleatoreo()
Dim c As Range

For Each c In Range("A1:A7")

    num = 0
    
    While num < 50 ' El ciclo while se repite si num es menor a 50
    
        num = Int((100 * Rnd) + 1) 'Generamos un número aleatorio
    
    Wend
    
    c = num

Next

End Sub

Saludos.

[Antoni 5,100]

Lo mismo pero de otra forma, suponiendo que tu rango de celdas fuera A1:B6:

Do Until WorksheetFunction.CountIf(Range("A1:B6"), ">0") = 0

'Tu macro

Loop

 

[Galactico 1]

Muchas gracias a ambos, probé de las 2 formas y llegue al resultado esperado

estoy muy agradecido

 

saludos