Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[Resolvido] Carregar somente números na textbox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Carregar somente números na textbox

Mensagem por milton » Qua Mai 08, 2019 2:03 pm

Boa tarde Pessoal.

Pessoal na pesquisa do nome na CbbNome é carregado o numero de telefone na TxtWhatsApp, porém preciso que carregue somente os números ignorando os caracteres () -.

Eu poderia mudar na BD, mas não pode ser alterado lá.

Desde já agradeço

Segue parte do arquivo em anexo
Anexos
SOMENTE NUMEROS.rar
(19.95 KiB) Baixado 11 vezes
Editado pela última vez por milton em Qui Mai 09, 2019 10:36 am, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1113
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Bragança Paulista - SP

Re: Carregar somente números na textbox

Mensagem por Mikel Silveira Fraga » Qui Mai 09, 2019 8:27 am

Milton, bom dia.

Não cheguei a abrir o arquivo, mas faça o seguinte, use o comando abaixo, adaptando as nomenclaturas de seus objetos:

Código: Selecionar todos

TextBox1.Value = _
    VBA.Replace( _
        VBA.Replace( _
            VBA.Replace( _
                rs("CampoTelefone"), _
            ")", ""), _
        "(", ""), _
    "-", "")
Com esse código, você remove os caracteres especiais e exibe apenas os números.

Teste e nos retorne o resultado.

Abraços e excelente dia por ai.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Skype: mikelsf | Linked In

Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Carregar somente números na textbox

Mensagem por milton » Qui Mai 09, 2019 10:34 am

Bom dia Mikel.

Não consegui adaptar, mas usei a macro abaixo e funcionou perfeitamente.
Muito obrigado por sua atenção


linha = 3: strTel = ""
Sheets("Plan1").Select
Range("D" & linha).Select
Do While Range("D" & linha) <> ""
If Plan1.Range("D" & linha) = Me.CbbNome Then

StrT = Plan1.Range("E" & linha).Value
strTel = Replace(StrT, "(", "")
strTel = Replace(strTel, ")", "")
strTel = Replace(strTel, "-", "")
strTel = Replace(strTel, " ", "")
TxtWhatsapp.Value = strTel

End If
linha = linha + 1
Loop



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder