RamonFontes

Boa tarde programadores, Peço auxílio para um userform simples com uma textbox. O seguinte, preciso que a textbox da minha userform tenha um estilo igual do vídeo ( m.you tube.com/watch?v=T0eFAeKTjps (remova o espaço entre 'youtube' para acessar) Mas não é prioridade, o que é prioridade: a mascara automática de porcentagem na textbox. Ou seja, quando o usuário for colocando o percentual, a textbox vai formatando em tempo real o número digitado em porcentagem. Ex: Eu informei na textbox os números 9987 A textbox formatou enquanto eu digitava e o resultado ficou: 099,87% Mas, e se meu percentual tiver 3 casas décimas antes da vírgula? Ex: Informei 10 na textbox A textbox formatou enquanto eu digitava e o resultado ficou: 010,00% Mas eu quero 100%, então, no caso, eu informo + um 0 e a textbox resultou: 100,00% Ou seja, o limite de casas decimais antes da vírgula seriam 3, cujo limite é o 100 (100%). E o limite de casas decimais após a vírgula seriam 5. Ficando, por ex: 998 e resultado final da textbox ficou: 009,98000%. Se eu quiser 99,8%, eu informo + um 0. Como após a vírgula o limite de casas são 5, mais digito irá "empurrar" o segundo 9 para antes da vírgula. Os eventos afterupdate e beforeupdate não funcionam para este caso. Já tentei aplicar diversos códigos meus, códigos da net e não consigo fazer funcionar como é preciso! Essa textbox terá as propriedades abaixo: maximo de 10 carácteres inseridos (contando com "," e "%") 5 casas décimas após vírgula. 3 casas decimais antes da vírgula Mascara porcentagem Pessoal, muito obrigado desde já!

@CasaDoHardware boa tarde amigo, Funcionou perfeitamente! Genial! Obrigado pela atenção, grande abraço!

Boa pessoal, Peço a ajuda de vocês nesse código que eu to tentando mas n consigo entender o problema. Eu eu quero que a partir da célula que eu estiver (célula ativa), ao acionar o botão para macro rodar, o Excel navegue até a coluna 'BJ' (que é a coluna específica) + a linha ativa. porque a ideia é inserir um valor de texto simples na célula BJ + linha ativa. Ex: to na célula d4. Acionei a macro ela me jogou até a célula BJ4 e inseriu o texto 'n' porque? coluna BJ especifica + q linha ativa da minha célula ativa naquele momento e, inseriu q letra n. CODIGO: Range("BJ" & Target.row).activate ou selection Selection.value = "n" mas nao funciona em módulo no vba, e no evento selection Change não é bom porque eu n consigo trabalhar na planilha se q cada mudança de célula, a macro me leva até a coluna BJ. Grato! Não consigo encontrar algo parecido no fórum. Pesquisei antes de criar o tópico.

@Basole Obrigado pela ajuda amigo. Funcionou muito bem, exatamente o que queria. Mas antes que pudesse responder aqui, eu pesquisei mais e consegui um código que funciona com uma combobox activex (somente por esta ter a propriedade font, onde posso definir tamanho e letra). porém tenho problemas com este código. como funciona: 1- O evento da combobox é o Change. 1.1- Esse combobox está na folha da plan(aux.resumo(2)). 2- O vba dessa combobox é um simples Call Macro se o valor selecionado na caixa for = x. (Onde x é qualquer valor ou texto). Vale citar também que essa macro tem na linha de código: Activesheet.shapes.range ...; veja, o problema aqui é que mesmo eu estando em outra aba e nessa eu mando salvar a planilha (workbook) a macro é executada é assim call a outra macro que por sua vez da erro de execução pois não foi bem definido em qual Activesheet eu estou. 3- Nas macros correspondentes a combobox (são as macros chamadas) tenho o seguinte código: application.calculation = xlCalculationManual. O código foi inserido por que somente o resto do código não funcionava sem esse. Aparentemente este resolveu um problema anterior. porém o problema dele é: Ele define todas as abas em modo de atualização manual, ou seja, minhas fórmulas (como a procv) não funcionam, pois não se atualizam sozinhas. Ficam então dependendo do usuário fazer alguma atualização na planilha. Como salvando (ctrl + b.), inserindo valor em uma célula ou sei lá. Eu acredito que a solução seria: 1- Adaptar seu código anterior a uma combobox activex, somente pela propriedade font. Ou, 2- Definir bem em qual Activesheet os códigos presentes irão funcionar. Pois foi como eu falei: Se as macros chamadas estiverem na folha da aba aux.resumo(2), eu estando em outra aba, ao salvar a planilha, o erro aparece: evento hidden da classe range não pode ser definido, ou algo assim. Se as macros chamadas estiverem em um módulo, eu estando em outra aba, ao salvar a planilha, o erro aparece: o objeto não pode ser definido. Depurando ele me leva ao código citado: Activesheet.shapes.range(array("button 6")).visible = false (Esta é para ocultar/exibir os botões para imprimir das macros de impressão. Legenda para as macros: Macros chamadas: PN PV MT Macros de impressão: IPN IPV IMT Agradeço por mais esta ajuda. Segue planilha em anexo. ROTINA - PARA GRAFICOS.zip

Prezados, boa noite. Estou com uma caixa de combinação como objeto da minha planilha. Esta caixa por sua vez tem na formatação de controle as celulas de onde ela monta a lista e a celula onde é o resultado dessa seleção. O que eu quero é simples mas ta me complicando muito a vida. É o seguinte: Toda vez que eu selecionar a opção: MAN01, então a macro 1 é executada. Quando eu selecionar outra opção: MAN02, então macro 2 é executada. E assim em diante. Porém, estas minhas macros são apenas de ocultar/reexibir linhas dentro da planilha. Ja pesquisei bastante na net mas tudo simples que aparece não funciona como deveria. Alguem poderia me ajudar? Segue a planilha em anexo. Pasta2.zip