none
Sumar textbox que poseen datos condicionales RRS feed

  • Pregunta

  • Hola buenas a todos.
    necesito que en un textboxTotal se sumen todos los textbox anteriores tengan o no datos cabe mencionar que se trabaja a 2 decimales.

    este es mi codigo.

    Private Sub TextTipoComprob_Change()
    Range("B4").Select
    ActiveCell.FormulaR1C1 = TextTipoComprob
    End Sub

    Private Sub Text21_Change()
    Range("H4").Select
    ActiveCell.FormulaR1C1 = Text21
        a = TextTipoComprob
            If a = "FCC" Then
                IVA21 = Text21 * 21 / 100
       Else
            If a = "NCC" Then
                IVA21NC = Text21 * 21 / 100
        End If
        
      End If
    End Sub


    Private Sub Text27_Change()
    Range("I4").Select
    ActiveCell.FormulaR1C1 = Text27
     a = TextTipoComprob
        If a = "FCC" Then
        IVA27 = Text27 * 27 / 100
       Else
            If a = "NCC" Then
                IVA27NC = Text21 * 27 / 100
        End If
        
    End If
    End Sub

    Private Sub Text105_Change()
    Range("J4").Select
    ActiveCell.FormulaR1C1 = Text105
     a = TextTipoComprob
        If a = "FCC" Then
        IVA105 = Text105 * 10.5 / 100
       Else
            If a = "NCC" Then
                IVA105NC = Text105 * 10.5 / 100
        End If
        
    End If
    End Sub


    • Cambiado Enrique M. Montejo lunes, 10 de abril de 2017 10:22 Programación en Excel con Visual Basic para Aplicaciones.
    miércoles, 5 de abril de 2017 17:39

Todas las respuestas

  • Hola LisKawa,

    En un botón, guarda la suma en una variable (suma) y luego pásala a tu textboxTotal, convirtiéndolo  a string

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim suma As Decimal
            suma = Convert.ToDecimal(TextTipoComprob.Text) + Convert.ToDecimal(Text21.Text) + Convert.ToDecimal(Text27.Text) + (Convert.ToDecimalText105.Text)
            textboxTotal.Text = suma.ToString();
        End Sub
    Saludos.


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    miércoles, 5 de abril de 2017 20:23
  • Javier
    Tu codigo me da error de sintaxis

    Trabajo en entrno excel version 2007


    • Editado LisKawa jueves, 6 de abril de 2017 14:25
    jueves, 6 de abril de 2017 14:25
  • Es programacion Vb en Excel?
    jueves, 6 de abril de 2017 15:00