Label=Textbox + Textbox

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

2 Usuários

0 Reactions

896 Visualizações

RSS

kurkas

(@kurkas)

Posts: 85

Trusted Member

Topic starter

Olá,

Bem sei que houve um tópico recente e muito parecido, mas preciso saber como faço para o código a seguir fazer aparecer de imediato o resultado, sem ter que clicar.

Private Sub Label172_click()
Label172.Caption = CDbl(TextBox3.Value) + CDbl(TextBox10.Value)
End Sub

Quero que o valor do resultado apareça quando envio os dados de TextBox3 e TextBo10 para a planilha.
Obrigado

Postado : 22/01/2014 1:57 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde kurkas,

adicione isso no lugar desse código:

Private Sub TextBox10_Change()
Label172.Caption = CDbl(TextBox3.Value) + CDbl(TextBox10.Value)
End Sub
Private Sub TextBox3_Change()
Label172.Caption = CDbl(TextBox3.Value) + CDbl(TextBox10.Value)
End Sub

Qualquer coisa da o grito.
Abraço

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

Postado : 22/01/2014 2:28 pm