Notifications
Clear all

Conversão CDbl  

  RSS

sumoner80
(@sumoner80)
New Member
Entrou: 8 meses atrás
Posts: 2
08/08/2020 11:44 am  

Bom dia pessoal, alguém podeme ajudar com um erro de tipos incompatíveis ao tentar converter uma textbox em valor numérico na celula, a linha do código é esse.

Planilha1.Range("P7").Value = CDbl(txt_pesquisatelefone.Value)

"No que diz respeito ao empenho, ao compromisso, ao esforço, à dedicação, não existe meio termo. Ou você faz uma coisa bem feita ou não faz..." - Ayrton Senna


ResponderCitar (Quote)
Tags do Tópico
EdsonBR
(@edsonbr)
Membro Moderator
Entrou: 5 anos atrás
Posts: 643
08/08/2020 4:37 pm  

Boa tarde, @sumoner80

Qual o conteúdo da txt_pesquisatelefone quando ocorre o erro? É de fato um valor que pode ser convertido em Double? Por acaso não estava vazia?

Antes de converter, teste se é numérico:

If IsNumeric(txt_pesquisatelefone.Value) Then Planilha1.Range("P7").Value = CDbl(txt_pesquisatelefone.Value)

 


sumoner80 curtiu
ResponderCitar (Quote)
sumoner80
(@sumoner80)
New Member
Entrou: 8 meses atrás
Posts: 2
10/08/2020 10:50 am  

@edsonbr

Bom dia Edson, então na verdade ta "pesquisa telefone" mais nesse campo vai digitado o "CPF". e sim ele inicia o formulário vázio e quando digito o primeiro digito da uma msgbox que não encontrou no banco de dados o número informado. que na verdade tem e em seguida da tipo incompativeis.

o código está dentro do evento change. e logo depois dessa parte ele chamaria um modulo se quiser posso colocar os códigos aqui para serem analisados.

"No que diz respeito ao empenho, ao compromisso, ao esforço, à dedicação, não existe meio termo. Ou você faz uma coisa bem feita ou não faz..." - Ayrton Senna


ResponderCitar (Quote)
EdsonBR
(@edsonbr)
Membro Moderator
Entrou: 5 anos atrás
Posts: 643
10/08/2020 11:04 am  
Postado por: @sumoner80

...se quiser posso colocar os códigos aqui para serem analisados.

Melhor ainda se vc anexar um modelo contemplando essa situação.


ResponderCitar (Quote)
Compartilhar: