Factura en Excel Parte 1 y 2
Factura en Excel Parte 1 y 2
Factura en Excel Parte 1 y 2
v=xrjrI8Iaa3Q
https://www.youtube.com/watch?v=AZTf7bTbGjg
Factura en Excel Parte 1 – Plantilla, Fórmulas y
listas de validación de clientes y productos
BY SERGIO ALEJANDRO CAMPOS · AUGUST 27, 2018
Descargando la plantilla
Excel nos provee de miles de plantillas en línea que podemos
descargar y modificarlas a nuestro gusto. Para este proyecto de Factura
descargaremos una Factura sencilla las cual modificaremos añadiéndole
algunas fórmulas y validaciones de datos.
No vamos a la pestaña Archivo > Nuevo.
En la caja de texto Buscar plantillas en línea escribimos Factura
simple.
Seleccionamos la plantilla Factura simple que calcula el total.
Nombre.
Nombre de la empresa.
Dirección.
Ciudad, estado y CP.
Teléfono.
Convertiremos este rango en Tabla para posteriormente usar el nombre
de los Clientes en una Lista de validación.
Seleccionamos el rango.
Presionamos [Control] + [T].
Marcamos la opción La tabla tiene encabezados.
En la pestaña Herramientas de tabla le ponemos el
nombre tblClientes a la tabla.
Código.
Descripción.
Precio unitario.
Siguiendo los mismos pasos que para la hoja Clientes, convertimos el dato
de los productos en tabla y a la tabla le pondremos el
nombre tblProductos.
Figura 4. Tenemos una tabla de productos para nuestra factura.
Devolver automáticamente los datos del
cliente a facturar
Ahora que tenemos una tabla de Clientes, en la carátula de la Factura, en
la sección Facturar a, insertaremos una lista de validación para mostrar el
nombre de los clientes y en la parte inferior se muestren los datos del
cliente elegido.
=SI.ERROR(BUSCARV(B7,tblClientes[#Todo],2,0),”-“)
Figura 2. Fórmula matricial para detectar la última celda con valores que
es la última factura guardada.
En la hoja Factura, en la celda E4 tendremos una fórmula que
simplemente realiza una suma de la última factura guardada más 1, y así
siempre tendremos un consecutivo de factura automático.
Option Explicit
'EXCELeINFO
'MVP Sergio Alejandro Campos
'http://www.exceleinfo.com
'https://www.youtube.com/user/sergioacamposh
'http://blogs.itpro.es/exceleinfo
Sub GuardarFactura()
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim FilasFactura As Integer
Dim i As Integer
Dim j As Integer
Dim NumFactura As Integer
For i = 1 To FilasFactura
Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1
.Cells(NuevaFila, 1).Value = Date
.Cells(NuevaFila, 2).Value = NumFactura
.Cells(NuevaFila, 3).Value = Range("valCliente").Value
For j = 1 To 4
.Cells(NuevaFila, j + 3).Value = ThisWorkbook.Sheets("Factura").Cells(12 + i, 1 + j)
Next j
Next i
End With
End Sub