Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[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: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Carregar somente números na textbox

Mensagem por milton »

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 232 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: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Carregar somente números na textbox

Mensagem por Mikel Silveira Fraga »

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.


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

Re: Carregar somente números na textbox

Mensagem por milton »

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