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: 112
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 1 vez
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: 1112
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: 112
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