Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CPF E CNPJ NO FORM ...
 
Notifications
Clear all

CPF E CNPJ NO FORM COM MULTIPAGE EM UM MESMO TEXTBOX

 
2024 - VBA & Macros
Post Recente por pasedo 7 anos atrás
5 Posts
4 Usuários
0 Reactions
1,850 Visualizações
RSS
 pasedo
(@pasedo)
Posts: 90
Trusted Member
Topic starter
 

Ola pessoal, bom dia, Estou com um problema no userform nos optionbutton do cnpj e cpf, quando clico no cnpj ou cpf ele fica teimando que que esta invalido os mesmos, mas oque eu quero é que qdo eu clicar por exemplo no cnpj ele limpa o cpf e não de a mensagem como também o inverso no cnpj ta funcionando quase certo ele está para começar com o cpf selecionado se eu digitar um cpf valido ele aceita, mas se não ele da a mensagem de invalido como tambem no cnpj , mas se digito o cpf e quero passar para o cnpj ai não tem jeito ele não limpa o textbox para o proximo digitar e fica dando a mensagem de cpf ou cnpj invalido, gostaria de resolver esse problema sem alteração da forma que está apresentado o form. O codigo da planilha é a parte este tá certo, obrigado a quem puder me ajudar

 
Postado : 28/08/2017 5:58 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

pasedo,

Bom dia!

Não entendi a sua explicação... talvez se usar um ponto (.) entre as frases fique mais fácil de entender.

Outra coisa, você se refere a optionbutton e, ao mesmo tempo, sua planilha tem uma UDF (Função Definida pelo Usuário) para validar CNPJ e CPF na própria planilha. Afinal... o que é mesmo para ser feito?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 28/08/2017 7:23 am
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Bom-dia
Tente usar esse código no TextBox.

Private Sub cpf_cnpj_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(cpf_cnpj) = 14 Then
cpf_cnpj = Format(cpf_cnpj, "00"".""000"".""000""/""0000""-""00")
Else
cpf_cnpj = Format(cpf_cnpj, "000"".""000"".""000""-""00")
End If
End Sub

Att,

Francisco

 
Postado : 28/08/2017 8:11 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei se entendi corretamente, mas experimente.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/08/2017 8:29 am
 pasedo
(@pasedo)
Posts: 90
Trusted Member
Topic starter
 

Ola, boa tarde, fcarlosc e Reinaldo desculpem -me por ter me expressado não muito bem, mas o Reinaldo fez o que eu queria, era isto mesmo. Reinaldo muito obrigado. Vocês do fórum Planilhando são ótimos.

 
Postado : 28/08/2017 9:53 am
Forum Jump:
  Tópico Anterior
Próximo Tópico