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

2024 - VBA & Macros

Post Recente por rodrigombc 7 anos atrás

3 Posts

2 Usuários

0 Reactions

851 Visualizações

RSS

rodrigombc

(@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

(@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