rodar aleatório automaticamente

Question

Alguém manja como fazer uma macro que fique rodando o aleatório e ela parar automaticamente quando um determinado objetivo for atingido?

É uma pesquisa que estou fazendo.

A ideia é o seguinte: A macro fica ativando a formula de =aleatórioentre, portanto, digamos que uma ativação infinita até ser desligada automaticamente ou de forma brusca.

Quando a soma/produtor e etc da série atingir um determinado valor, a macro se encerra automaticamente.

Obrigado :D

Answer 1

Olá Gabriel,

É bastante simples fazer este tipo de rotina e existem muitas formas diferentes de fazer, bastando escolher algum tipo de laço de repetição que vai fazer a atualização da planilha até alcançar o objetivo.

Por exemplo, imagine que você tem nas células A1 e B1 a fórmula =ALEATÓRIOENTRE(1;10) e na célula C1 a soma de A1 e B1 e quer que o laço rode até a celula resultar em 15. Um modelo de código poderia ser:

Sub Main()

Do Until Range("C1") = 15

Application.Calculate

Loop

End Sub

Adapte a sua necessidade.

Abraços!

---

Rafael Kamimura - http://excelmaniacos.com