Página 1 de 1
[Resolvido] Carregar somente números na textbox
Enviado: Qua Mai 08, 2019 2:03 pm
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
Re: Carregar somente números na textbox
Enviado: Qui Mai 09, 2019 8:27 am
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.
Re: Carregar somente números na textbox
Enviado: Qui Mai 09, 2019 10:34 am
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