Calculo De Impuestos Perú

CALCULOS DE IMPUESTOS DE 1ERA 4TA Y 5TA CATEGORIA

En el presente trabajo se programaran comandos para que los usuarios declarantes de impuestos puedan saber el monto que deben de que pagar.
Para esto es necesario que los usuarios proporciones los datos para que el sistema pueda realizar los cálculos correspondientes.
Para comenzar, se pondrá en una hoja de inicio tres botones que indicaranel tipo de impuesto cobrar, de esta manera el usuario podrá decir que tipo de impuesto quiere calcular. Para ello, se utilizo los siguientes comandos que llevaran al usuario a la pestaña indicada.
Private Sub CommandButton1_Click()
Sheets("4").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("5").Select
End Sub
Private Sub CommandButton4_Click()
Sheets("1").Select
End Sub

Unavez ubicados en las pestañas correspondientes cada hoja tendrá su programación de acuerdo al impuesto a pagar.
A continuación se detallarán los pasos a seguir para catada categoría.
En primer lugar, para el calculo de la primera categoría usaremos los siguientes comandos:
Range("c12:c17").ClearContents
Range("g12:g17").ClearContents

Dim alquilermensual As Single
Dim Autovaluo As Single
DimPagoAcuenta As Single
Dim TipoBien1 As String
Dim TipoBien2 As String
Dim alquileranual As Single
Dim d As Single
Dim renta As Single
Dim base As Single
Dim IRtot As Single
Dim SaldoIR As Single

TipoBien1 = MsgBox("¿Ud alquila un inmueble?", vbYesNo, "INMUEBLE")
If TipoBien1 = vbYes Then

Do
alquilermensual = InputBox("Ingrese el monto del alquiler mensual","Alquiler")
If alquilermensual < 0 Then
MsgBox " alquilermensual es Incorrecto", vbCritical, "Ventana de Error"
End If
Loop Until alquilermensual > 0

Do
Autovaluo = InputBox("Ingrese el monto del autovalúo de la propiedad", "Autovalúo")
If Autovaluo < 0 Then
MsgBox " Autovaluoes Incorrecto", vbCritical, "Ventana deError"
End If
Loop Until Autovaluo > 0

Do
PagoAcuenta = InputBox("Inserte el monto de algún crédito con derecho a devolución que haya obtenido de periodos anteriores", "Pago a cuenta")
If PagoAcuenta < 0 Then
MsgBox " PagoAcuenta es Incorrecto", vbCritical, "Ventana de Error"
End If
Loop Until PagoAcuenta > 0alquileranual = alquilermensual * 12
Autovaluo_ = Autovaluo * 0.06
If alquileranual >= Autovaluo_ Then
maximo = alquieranual
Else
maximo = Autovaluo_
End If
Deduccion = 0.2 * maximo
BaseImpo = maximo - Deduccion
IRtot = 0.05 * BaseImpo
SaldoIR = IRtot - PagoAcuenta
Cells(12, 3) = AlquilerMensCells(13, 3) = Autovaluo
Cells(14, 3) = PagoAcuenta
Cells(16, 3) = IRtot
Cells(17, 3) = SaldoIR

Else
Do
AlquilerMens = InputBox("Ingrese el monto del alquiler mensual del mueble", "Alquiler")
If AlquilerMens < 0 Then
MsgBox " AlquilerMens es Incorrecto", vbCritical, "Ventana de Error"
End If
Loop UntilAlquilerMens > 0

Do
ValorAdquis = InputBox("Ingrese el valor al que adquirió su bien mueble", "Valor de adquisición")
If ValorAdquis < 0 Then
MsgBox " ValorAdquis es Incorrecto", vbCritical, "Ventana de Error"
End If
Loop Until ValorAdquis > 0

Do
IPMmes = InputBox("Ingrese el valor del índice de precios al por mayordel mes que adquirió el mueble", "IPM")
If IPMmes < 0 Then
MsgBox " IPMmes es Incorrecto", vbCritical, "Ventana de Error"
End If
Loop Until IPMmes > 0

Do
PagoAcuenta = InputBox("Inserte el monto de algún crédito con derecho a devolución que haya obtenido de periodos anteriores", "Pago a cuenta")
If PagoAcuenta < 0 Then...