Jump to content

Archived

This topic is now archived and is closed to further replies.

Fedebarri

sumar 2 textbox en tiempo real

Recommended Posts

Buenas,

Estoy aprendiendo ha hacer operaciones en VBA, y he empezado con una suma muy sencilla, pero no lo suma en tiempo real, no me aparece nada pero cuando intento escribir en el textbox del total , entonces aparece el resultado.................¿que hago mal?, he probado con otros codigos que he visto por el foro pero no me funciona.

Private Sub importe_1_Change()
If importe_1 = "" Then
End If
End Sub

 

Private Sub importe_2_Change()

If importe_2 = "" Then
End If
End Sub


Private Sub importe_total_Change()
If importe_total = "" Then
    importe_total = 0
Else
    importe_total = Format(CDbl(importe_1) + CDbl(importe_2), "#,##0.00 ""€""")
End If

End Sub

 

Gracias de antemano, Saludos

suma.xlsm

Share this post


Link to post
Share on other sites

Prueba así:

 

Private Sub importe_1_Change(): Sumar: End Sub

Private Sub importe_2_Change(): Sumar: End Sub

Private Sub Sumar()
Dim I1 As Currency, I2 As Currency
If IsNumeric(importe_1) Then I1 = CCur(importe_1)
If IsNumeric(importe_2) Then I2 = CCur(importe_2)
importe_total = FormatCurrency(I1 + I2)
End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy