Formatação automáti...
 
Notifications
Clear all

Formatação automática de Texto para Número - UserForm VBA

3 Posts
2 Usuários
0 Reactions
845 Visualizações
(@rodrigombc)
Posts: 8
Active Member
Topic starter
 

Boa tarde a todos,

Estou com o seguinte problema:

Fiz um pequeno UserForm para inserir 4 campos de informação: Data, Tipo de Gás, Quantidade em kg, e Nome do equipamento.

Quando o usuário insere as informações no Userform, uma planilha é alimentada com essas informações.

Porém, meu problema é que, eu gostaria de somar essa quantidade em kgs, mas os dados inseridos na planilha são em formato de texto (coluna C da aba 'Plan1') , e, portanto, a fórmula SOMASE (aba 'Tabela') não reconhece e por consequência não calcula.

A ideia é deixar a planilha bem usual para um usuário periodicamente fazer este cadastro e a aba 'Tabela' compilar automaticamente as informações.

É possível colocar no código algo para que o dado inserido seja no formato que eu quero? Data em formato de data, Quantidade em kg formato de número...

O arquivo excel se encontra em anexo.
Desde já, agradeço o apoio.

 
Postado : 21/02/2018 9:08 am
(@klarc28)
Posts: 971
Prominent Member
 
ultimalinha.Offset(1, 0).Value = CDate(TextBox1.Text)
ultimalinha.Offset(1, 1).Value = ComboBox1.Text
ultimalinha.Offset(1, 2).Value = CDbl(TextBox3.Text)
ultimalinha.Offset(1, 3).Value = TextBox4.Text
 
Postado : 21/02/2018 9:18 am
(@rodrigombc)
Posts: 8
Active Member
Topic starter
 

Muito obrigado klarc28!!

Abraços

 
Postado : 21/02/2018 12:00 pm