Textbox Formatação ...
 
Notifications
Clear all

Textbox Formatação de Numeros

3 Posts
3 Usuários
0 Reactions
1,138 Visualizações
(@divinors)
Posts: 23
Eminent Member
Topic starter
 

Olá!!

Estou desenvolvendo uma macro de orçamento pessoal:

1 - Nas textbox:

txt_entrada e txt_saida fiz a formatação utilizando:

Private Sub txt_entrada_afterupdate()
txt_entrada.Text = Format(txt_entrada.Text, "#,##0.00")
End Sub

Private Sub txt_saida_afterupdate()
txt_saida.Text = Format(txt_saida.Text, "#,##0.00")
End Sub

2 - A macro está carregando os números corretamente (DADOS), entretanto eu preciso dos mesmos números em outra aba da planilha (ORÇAMENTO) onde estou utilizando a função SOMASES. Não estou conseguindo integrar os números para a fórmula SOMASES na aba (ORÇAMENTO).

3 - Se alguém puder me ajudar. Segue anexo o arquivo.

Atenciosamente.
Divino Rodrigues

 
Postado : 21/12/2016 5:19 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Divino Rodrigues

Seja bem-vindo ao fórum!

Movi teu tópico para a sala VBA & Macros que é o assunto da tua dúvida.

Como você é novato, pra facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/12/2016 9:24 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

DIVINORS,

Boa tarde!

O único erro é que a função SOMASES estava somando o valor que era entrado na caixa de texto de entrada como se fosse um TEXTO. Ela não consegue somar TEXT e, por padrão, tudo que você entra em uma caixa de texto é interpretado pelo VBA como string (texto). Dessa forma, é preciso converter para um Double (formato de número com casas decimais.

Plan1.Cells(linha, 6).Value = CDbl(Me.txt_entrada.Value)

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 21/12/2016 10:27 am