Usuário com melhor resposta
Inserir dados numericos no excel usando um userform

Pergunta
-
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
Respostas
-
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 rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/- Sugerido como Resposta Bruno S. Leite sexta-feira, 5 de novembro de 2010 22:15
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 16:17
Todas as Respostas
-
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 rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/- Sugerido como Resposta Bruno S. Leite sexta-feira, 5 de novembro de 2010 22:15
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 16:17
-
-
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 rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/