none
Inserir dados numericos no excel usando um userform RRS feed

  • 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
    sexta-feira, 29 de outubro de 2010 13:57

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/
    sexta-feira, 5 de novembro de 2010 19:06

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/
    sexta-feira, 5 de novembro de 2010 19:06
  • estou com o mesmissimo problema, nao consegui resolver O.o
    quinta-feira, 27 de janeiro de 2011 23:29
  • 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/
    segunda-feira, 31 de janeiro de 2011 15:45