Anexo Solução boa...ela replica a rotina para todas txtbox do form, porém nem todos os txtbox devem receber esta rotina

'puts'...hahahah...mão na massa, por enquanto..rsrsrs! tava tentando por select case..mas tá dando certo, não!

queria tentar pelo "do while", mas só encontro com "for" vou ter que me render mesmo a essa forma. obrigado reinaldo

Fiz um teste com 2000, 1540, 3000, 582 e deu OK na célula. Para o caso do ok ele tá dando certo, agora na hipótese de cálculo em que o status deveria...

Klarc, Fiz a alteração no initialize e o resto do cód, na parte cálculo deixei assim: If resultado <= 0.8 Then .Cells(lngUltLinDad...

rsrsrs...mesmo utilizando o checkbox também não deu certo, utilizei apenas um optionbuttons, pois preciso de uma segunda opção de cálculo para caso o ...

Srobles, Deu rock! Obrigadão brother!

Klarc, Da forma que disse não deu certo, mesmo assim, por já ter visto esta sub em um cód de calendário pop-up, para quando fechar ele não encerrar a...

Srobles, Continuou da mesma forma...link para download: https://www.dropbox.com/s/7yr7c7ngwly7kvs/160418_CALCULO%20ESTOQUE.....