Boa tarde!!
Fiz um exemplo meio que vagabundo, mas deu certo....
Ao sair da TextBox3, o valor digitado na TextBox1 e na TextBox2 será somado
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me
If Not IsNumeric(.TextBox1.Value) And (.TextBox2.Value) Then GoTo exit_ale
.TextBox3.Value = Val(.TextBox1.Value) + Val(.TextBox2.Value)
Exit Sub
exit_ale:
MsgBox "Entre com os números nas caixas de texto", vbCritical, "Erro.."
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 06/03/2012 11:27 am