Este fórum está sendo desativado

[angras]

Boa noite
Em uma célula qualquer é gerado um valor aleatório entre 1 e 15 milhões. Preciso contar quantas vezes um valor abaixo de 1 milhão aparece nessa célula.
Ex. Na célula J20, depois de clicar em F9, os valores vão se alternando...aparece um 850, é gravado em M20... 1. Segue pressionando F9 e depois aparece outro valor abaixo de 1 milhão, é gravado em M20...2 e assim sucessivamente. No final vou saber quantos valores abaixo de 1 milhão foi gerado em J20 grato

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Worksheet_Calculate()
 Application.EnableEvents = False
 [M20] = [M20] - 1 * ([J20] > 1000000)
 Application.EnableEvents = True
End Sub

[angras]

Grato