Elabor. Ing. Pedro Gmez J.

GUIA PARA DESARROLLO DE UN FACTURA

Utilizando Macros De Excel

Realizar una factura que le permita realizar el siguiente:

1. Al ingresar el cdigo del producto debe traer el nombre del producto y el

valor unitario

2. Al ingresas la cantidad debe calcular el valor subtotal por producto

3. Debe calcular el valor subtotal, el cual corresponde a la suma de los

productos seleccionados

4. Calcular el valor del IVA, el cual sale de multiplicar el subtotal por el 16%

5. Calcular el valor de la factura

PASOS PARA DESARROLLAR EL TALLER

1. cree un documento en Excel

2. En La Hoja 1 Ingrese La Lista De Productos

Elabor. Ing. Pedro Gmez J.

3. Abra La Opcin Ejecutar Macros

Puede hacerlo oprimiendo las teclas ALT +F11

Debe aparecer una pantalla igual o similar a la siguiente:

4. Seleccionar la opcin insertar form

Elabor. Ing. Pedro Gmez J.

5. Parado sobre la forma cambie el nombre a FACTURA

6. UTILIZANDO EL CUADRO DE HERRAMIENTAS

Elabor. Ing. Pedro Gmez J.

7. DISEE EL CONTENIDO DE LA FACTURA

INGRESANDO LOS SIGUIENTES DATOS.

NOMBRE DE LA COMPAA

NOMBRE DEL CLIENTE

FECHA

NUMERO DE FACTURA

DATOS DE LOS PRODUCTOS A FACTURAR

Cdigo del producto,

Descripcin

Cantidad

Elabor. Ing. Pedro Gmez J.

Valor Unitario

Valor Total

Subtotal

Iva

Valor TOTAL

8. Una vez diseado el formulario con los datos capturar se procede a realizar

las validaciones de los mismos de la siguiente forma

9. Para el campo CODIGO, vamos a seleccionar el icono de lista Combo Box

del cuadro de

Herramientas. Una vez seleccionado damos doble click sobre el

Elabor. Ing. Pedro Gmez J.

Al dar doble click aparece la ventana de visual Basic siguiente

Elabor. Ing. Pedro Gmez J.

En la parte derecha de la pantalla donde aparece

Private Sub PROD_Change()

End Sub

En esta seccin digitamos el cdigo para validar la informacin, para lo cual lo

vamos a realizar un proceso de validacin con la funcin IF.

Los campos de la factura los denominamos de la siguiente manera:

El espacio donde vamos a digitar el cdigo del producto para el ejerci se

denomino PROD

El espacio donde se va desplegar la descripcin del producto para el ejerci se

denomino DES1

El espacio donde se va desplegar la cantidad del producto para el ejerci se

denomino CAN1

Elabor. Ing. Pedro Gmez J.

El espacio donde se va desplegar EL VALOR UNITARIO del producto para el

ejerci se denomino V1

El espacio donde se va desplegar EL VALOR TOTAL del producto para el

ejerci se denomino T1

El espacio donde se va desplegar EL VALOR SUBTOTAL del producto para el

ejerci se denomino SUBTOTAL

El espacio donde se va desplegar EL VALOR DEL IVA del producto para el

ejerci se denomino IVA

El espacio donde se va desplegar EL VALOR TOTAL de la factura para el

ejerci se denomino VTOTAL.

Las siguientes lneas son la validaciones para que una vez seleccionado el cdigo

del producto me despliegue en al casilla descripcin el nombre, y en la de valor

unitario el valor unitario correspondiente al producto.

Este paso se repite para cada una de las filas. Recuerde que le primer cdigo

de producto validar es el 100.

If PROD.Value = 100 Then

DES1 = Worksheets("PRODUCTOS").Cells(4, 2)

V1 = Worksheets("PRODUCTOS").Cells(4, 3)

End If

If PROD.Value = 200 Then

DES1 = Worksheets("PRODUCTOS").Cells(5, 2)

V1 = Worksheets("PRODUCTOS").Cells(5, 3)

End If

If PROD.Value = 300 Then

DES1 = Worksheets("PRODUCTOS").Cells(6, 2)

Elabor. Ing. Pedro Gmez J.

V1 = Worksheets("PRODUCTOS").Cells(6, 3)

End If

If PROD.Value = 400 Then

DES1 = Worksheets("PRODUCTOS").Cells(7, 2)

V1 = Worksheets("PRODUCTOS").Cells(7, 3)

End If

Calcular el valor del producto

UNA VEZ VALIDADO EL CAMPO DE CODIGO., sobre el campo cantidad

realizamos la validacin para que una vez digitada la cantidad a facturar, nos

calcule el valor total del producto.

Private Sub CAN1_Change()

T1.Value = CAN1.Value * V1.Value

End Sub

Luego calculamos el valor subtotal oprimiendo el botn de subtotal

Private Sub CommandButton1_Click()

SUBTOTAL.Value = Val(T1.Value) + Val(T2.Value) + Val(T3.Value) +

Val(T4.Value) + Val(T5.Value)

End Sub

Calculo del iva

Private Sub CommandButton2_Click()

IVA.Value = Val(SUBTOTAL.Value * 0.16)

End Sub

Elabor. Ing. Pedro Gmez J.

Clculo valor total a pagar

Private Sub CommandButton3_Click()

VTOTAL.Value = Val(SUBTOTAL.Value) + Val(IVA.Value)

End Sub

Si compilamos por la opcin Depurar de la hoja de calculo, o le damos correr la

macro aparecer de la siguiente forma

Elabor. Ing. Pedro Gmez J.

Luego con datos de la siguiente forma