Antes que nada, desde el editor de VBA en Excel abra un modulo de clase al cual le pondrá el nombre "Persona"
Public nombre As String
Public cargo As String
Public fechaIng As Date
' estas variables son utilizadas para el calculo del IVA y del total a pagar
Public importeVta As Double
Public porcentajeIVA As Double
' lo que permite esta funcion es buscar y desplazarce a la siguiente celda vacía
' esto es lo que se ocupara en el "Módulo 1" para cuando estemos ingresando los datos
Public Function nuevoRegistro()
Range("A1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
End Function
' esta funcion es para calcular el importe del impuesto a pagar
Public Function calculoIVA()
calculoIVA = (importeVta * porcentajeIVA) / 100
End Function
'esta funcion es para calcular el total a pagar, osea el total de la venta mas el impuesto
Public Function totalPagar()
totalPagar = importeVta + calculoIVA
End Function
Public nombre As String
Public cargo As String
Public fechaIng As Date
' estas variables son utilizadas para el calculo del IVA y del total a pagar
Public importeVta As Double
Public porcentajeIVA As Double
' lo que permite esta funcion es buscar y desplazarce a la siguiente celda vacía
' esto es lo que se ocupara en el "Módulo 1" para cuando estemos ingresando los datos
Public Function nuevoRegistro()
Range("A1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
End Function
' esta funcion es para calcular el importe del impuesto a pagar
Public Function calculoIVA()
calculoIVA = (importeVta * porcentajeIVA) / 100
End Function
'esta funcion es para calcular el total a pagar, osea el total de la venta mas el impuesto
Public Function totalPagar()
totalPagar = importeVta + calculoIVA
End Function
_______________________________________________________________________________
Posteriormente cree propiamente un modulo al cual pondrá el nombre de Módulo 1
Option Explicit
Sub RegistroEmpleados()
' esto es para ingresar los empleados
Dim Empleado As New Persona
With Empleado
.nombre = InputBox("Nombre:")
.cargo = InputBox("Cargo:")
.fechaIng = InputBox("Fecha Ingreso:")
' este paso de ".nuevoRegistro" es importante, ya que es el que permite buscar las celdas
' vacias a las cuales se les agregará el nuevo registro
' esta funcion es la que creamos en el módulo de clase nombrado "Empleados"
.nuevoRegistro
' esta parte permite buscar la columna vacia donde se guardara la informacion
ActiveCell.Offset(0, 0) = .nombre
ActiveCell.Offset(0, 1) = .cargo
ActiveCell.Offset(0, 2) = .fechaIng
End With
End Sub
' esta parte es para facturar e ingresar toda la informacion de la factura
Sub Factura()
Dim cliente As New Persona
With cliente
.fechaIng = Date
.nombre = InputBox("Nombre del cliente: ")
.importeVta = InputBox("Monto de la venta: ")
.porcentajeIVA = InputBox("% IVA")
.nuevoRegistro
ActiveCell.Offset(0, 0) = .fechaIng
ActiveCell.Offset(0, 1) = .nombre
ActiveCell.Offset(0, 2) = .importeVta
ActiveCell.Offset(0, 3) = .calculoIVA
ActiveCell.Offset(0, 4) = .totalPagar
End With
End Sub
