Notifications
Clear all

Formatando textbox em userform para valor

7 Posts
2 Usuários
0 Reactions
1,171 Visualizações
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Bom dia.

1. Como formatar as textbox desse userform em valor? tipo 99.000,00

2. Seria possível também recalcular ao mudar de textbox, ENTER ou TAB descartando o botão recalcular?

 
Postado : 11/05/2016 7:45 am
(@mprudencio)
Posts: 2749
Famed Member
 

Em cada uma das textbox use esse codigo

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1, "R$ #,###0.00")
End Sub

Se nao quiser o R$ é so apagar da formatação.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/05/2016 8:05 am
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Estou meio perdido, como eu aplicaria isso aqui? :oops:

Private Sub UserForm_Initialize()


 Dim ws As Worksheet
 Set ws = Worksheets("SET")

If ws.Range("X213").Value = 2 Then

'copia os dados para as celulas
ws.Cells(213, 32).Value = Format(Me.TextBox1.Value, "0.00")
'ws.Cells(215, 32).Value = Me.TextBox3.Value
'ws.Cells(217, 32).Value = Me.TextBox3.Value
'ws.Cells(219, 32).Value = Me.TextBox4.Value
'ws.Cells(221, 32).Value = Me.TextBox5.Value
'ws.Cells(223, 32).Value = Me.TextBox6.Value
'ws.Cells(225, 32).Value = Me.TextBox7.Value
'ws.Cells(227, 32).Value = Me.TextBox8.Value

'Limpa os campos TextBox para inserir novos dados
'Me.TextBox1.Value = ""
Me.TextBox2.Visible = False
Me.TextBox3.Visible = False
Me.TextBox4.Visible = False
Me.TextBox5.Visible = False
Me.TextBox6.Visible = False
Me.TextBox7.Visible = False
Me.TextBox8.Visible = False
Me.TextBox1.SetFocus

Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
Label15.Visible = False

Label9.Caption = Format(ws.Range("AH230"), "#,###0.00")
 
Postado : 11/05/2016 8:16 am
(@mprudencio)
Posts: 2749
Famed Member
 

Nao. De dois cliques na textbox 1

E cole o codigo que postei na postagem anterior

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/05/2016 8:38 am
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Cara muito obrigado!
Não tive nenumha aula em VBA, estou fazendo com a cara e a coragem e ajuda de vocês :D
Entendi agora.
Mais uma ajudinha se possível. Quando uso o botão recalcular ele atualiza o valor da ultima parcela, seria possível fazer isso de modo automático, tipo; mudando de TEXTBOX ou depois de usar ENTER ou TAB .

 
Postado : 11/05/2016 8:55 am
(@mprudencio)
Posts: 2749
Famed Member
 

Nao testei mas se entendi substitui o codigo anterior por este

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1, "R$ #,###0.00")
Call UserForm_Initialize
End Sub

A cada lançamento da parcela vai atualizar os valores.

Se for para atualizar apenas apos a digitação da ultima parcela coloque esse codigo apenas na ultima.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/05/2016 9:02 am
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Cara, já me ajudou muito por hoje! :D
Muito obrigado! Boa tarde. :mrgreen:
Se todos políticos fossem prestativos como o pessoal deste fórum....

 
Postado : 11/05/2016 9:08 am