Código para insertar Base-Iva-Cuota IVA en vba
No soy capaz de insertar, la formula que utilizo es esta
'Calcular el Importe de la cuota de IVA If Base = "" Then Base = 0 'La primera vez que se cargan los valores, inicializar a cero las variables necesarias para que las fórmulas funcionen correctamente If IVA = "" Then IVA = 0 If CIVA = "" Then CIVA = 0 If Base = "" Then Base = 0 'Base = Round((Base * IVA) - ((Base * IVA) * (CIVA / 100)), 2) CIVA = Round(CIVA * (100 / (100 - CIVA)), 2)
Los TextBox son Base, IVA, CIVA, es la cuota de IVA a pagar
1 respuesta
Te mando la solución y supongo que estás trabajando dentro de un form
-Tenemos 3 textbox y un botón:
Textbox1 es la base imponible
Textbox2 es el porcentaje de iva
Textbox3 es el importe del iva
Al pulsar el botón nos realizará el calculo
Private Sub CommandButton1_Click() If InStr(TextBox2, "%") > 0 Then MsgBox "no introduzca el simbolo % en el tipo de iva" TextBox2.Value = "" Exit Sub End If If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "es obligatorio rellenar el campo base e iva" Exit Sub End If TextBox3.Value = Round(CDbl(TextBox1.Value) * CDbl(TextBox2.Value), 2) / 100 End Sub
recuerda finalizar la consulta
Hola
funciona muy bien, le e quitado MsgBox, no me dejaban entrar, pero se me olvido el total
Base+iva+cuota+total
muchas gracias por todo
un saludo
Pues entonces la macro complete sería esta:
-Tenemos 4 textbox y un botón:
Textbox1 es la base imponible
Textbox2 es el porcentaje de iva
Textbox3 es el importe del iva
Textbox4 es el total (base + iva)
Al pulsar el botón nos realizará el calculo
Private Sub CommandButton1_Click() If InStr(TextBox2, "%") > 0 Then MsgBox "no introduzca el simbolo % en el tipo de iva" TextBox2.Value = "" Exit Sub End If If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "es obligatorio rellenar el campo base e iva" Exit Sub End If TextBox3.Value = Round(CDbl(TextBox1.Value) * CDbl(TextBox2.Value), 2) / 100 TextBox4.Value = Round(CDbl(TextBox1) + CDbl(TextBox3), 2) End Sub
No entiendo lo que dices del msgbox, a mi me funciona perfectamente. Había programado ese msgbox para avisar al usuario de que NO tiene que teclear el símbolo % en el tipo de iva.
