Joe_Star

Estou tentando fazer um projeto para calcular o ALVARÁ, no entanto, estou encontrando algumas dificuldade para evitar algumas ações na hora do preenchimento dos dados. Ex.: Metragem: 530 Alíquota: 0,2 UFM: 12,49 Taxa: 6,25 Alíquota H. Espercial: 0,1 Alvará: 530 x 0,2 x 12,49 = 1323,94 + 530 x 0,1 x 12,49 = 661,97 Resultado: 1323,94 + 661,97 + 6,25 = 1992,16 Erros encontrados: * Se preencher todos as Textbox e caixa de seleção clicar no botão calcular (perfeito), porém se tirar o valor da TextBox2 a Label: Lbl_Al deveria ficar vazia; * Se preencher todos as Textbox, com exceção da TextBox3 e clicar no botão calcular, da erro; * Se preencher TextBox1 + TextBox5 + caixa de seleção, da erro; * Se preencher TextBox5 + caixa de seleção, da erro; * Se preencher TextBox2 + TextBox5 + (com ou sem TextBox1 ou TextBox3) e ChkH_Es, da erro; Gostaria que aparecesse alguma mensagem durante as ações acima, alertando de algum erro e limpando as TextBox. Segue em anexo a parte do projeto, desde já Obrigado CALCULO_DO_ALVARA(2).rar

Olá Galera, estou iniciando no VBA e preciso de uma ajuda! Criei uma aplicação para calcular do Alvará (Alvará + Horário Especial + taxa). Para melhor orientação, em regra geral, o cálculo do Alvará é assim: metragem x UFM (unidade financeira municipal) x alíquota (tabela específica) Horário Especial: metragem x UFM (unidade financeira municipal) x alíquota (tabela específica) Taxa = apenas um valor fixo para os dois Observação1: a diferença entre alvará e h. especial é o valor da alíquota - "são 2 cálculos em 1". Um Ex.: 530 x 12,49 x 0,2 + 6,25 = R$ 1.323,94 (alvará) e 530 x 12,49 x 0,1 + 6,25 = R$ 661,97(h. especial) + 6,25 (taxa) = R$ 1.992,16 Criei um formulário onde consta: 3 TextBox (metragem, UFM e alíquota), 1 Textbox (alíquota - h. especial), 1 Label para o resultado, 2 caixa de seleção: uma para TAXA e outro para o HORÁRIO ESPECIAL e apenas 1 botão para o cálculo. O cálculo do h. especial foi determinado quando a caixa de seleção do h. especial fosse True. Como não conseguir fazer, todas a condições, aparecerem no Label_resultado, clicando no botão Bt_calcucar, dividir a visualização em mais 3 label (uma para o alvará, uma para o h. especial e outra para o Resultado Final) . Até aí conseguir os resultados, mais com uma condição, a TextBox_alíquota do horário especial tem que esta preenchida, ou seja, se estivesse vazia da erro devido a variável utilizada no cálculo. Lembrando que nesse formulário quero mostrar que o alvará, dependendo da CAIXA DE SELEÇÃO mostrar: como e/ou sem taxa, assim como, com e/ou sem o h. especial. * Gostaria de ajuda para resolver a questão da TEXTBOX da Alíquota do h. especial, quando clicar no Bt_calcular e a caixa de seleção do horário especial estivesse True, tipo: aparecesse uma MsgBox informando que para o cálculo do Horário Especial a TextBox da alíquota do h. especial deve ser preenchida. Quando a caixa de seleção do h. especial esta False e a TextBox da alíquota do h. especial preenchida., funciona perfeito. Observação2: todo RESULTADO exibido, é mediante alterações nas caixas de seleção, porém, para cada alteração tenho que clicar no botão CALCULAR. * Pois isso, outro coisa que queria acrescentar no meu formulário, além do cálculo do botão Calcular, é ao clicar nas caixas de seleção (TAXA e HORÁRIO ESPECIAL) os resultas alterasse automático nas Label destinadas ao RESULTADO(alvará, horário especial e resultado final). Desde já agradeço pela atenção, desculpa o texto longo, mas acho que tinha que ser explicado. CÁLCULO DO ALVARÁ.rar