Inserir dados numericos no excel usando um userform

Question

Olá Pessoal,

Estou utilizando o código abaixo para gravar as informações do FORM no excel, porém quando insiro um valor numerico, o excel muda o valor.

Ex: Digito no form 15,35 no textbox2 e gravo, quando vou no excel aparece 15,00.

O que faço para aparecer os decimais.

U_L = Plan5.Range("A" & Rows.Count).End(xlUp).Row + 1
If Len(Me.ComboBox1) = 0 Then

  MsgBox "Selecione um Funcionário para inclusão", vbCritical, "CADASTRO DE DADOS"

Else
  
  Plan5.Cells(U_L, 1) = UCase(Me.ComboBox1)
  Plan5.Cells(U_L, 2) = UCase(Format(TextBox1.Value, "mm/dd/yyyy"))
  Plan5.Cells(U_L, 3) = UCase(Me.ComboBox2)
  Plan5.Cells(U_L, 4) = UCase(Format(TextBox2.Value, "0,00"))
  

  MsgBox "CADASTRO EFETUADO COM SUCESSO"
End If
          

ThisWorkbook.Save

End Sub

 

 

---

Abilio Aguiar

Answer 1

Tente o seguinte

Plan5.Cells(U_L, 4) = Cdbl(Format(TextBox2.Value, "0.00"))

Repare no formato do número. Quando estamos programando em VBA o formato é sempre americano, então o separador de decimais é o ponto e a vírgula separa os milhares.

 

 

 

 

---

Rafael Gomes dos Santos Consultor de Informática MCAS - Microsoft Certified Application Specialist [e-mail] https://sites.google.com/site/pfntec/

Answer 2

estou com o mesmissimo problema, nao consegui resolver O.o

Answer 3

Pode ser que a célula já estivesse formatada antes de você incluir o valor. Sugiro excluir todas as linhas onde os dados serão copiados (mesmo que estejam em branco) para remover qualquer tipo de formatação diferente.

 

---

Rafael Gomes dos Santos Consultor de Informática MCAS - Microsoft Certified Application Specialist [e-mail] https://sites.google.com/site/pfntec/