Como Programar en Excel - Facturas de Venta Final

Primeramente quiero compartir la macro que utilizaras para imprimir y limpiar la factura. La siguiente imagen te muestra el código:

Sublimpieza()ActiveSheet.Range("C9").Value= ""ActiveSheet.Range("A13:C20").Value = ""End SubSub Imprimir()

' imprimir Macro

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

Estos códigos las vamos a copiar dentro del módulo uno, del proyecto “Facturas de Venta” Suponiendo que tu archivo tiene ese nombre, si tiene otro nombre no importa, lo que queremos es colocar dentro de un módulo esos códigos, veamos los pasos:

Vamos a crear un botón de comando, para insertarlo nos ubicamos en la pestaña programador (Office 2010) o Desarrollador (Office 2013), sección controles, desplegamos el comando insertar y seleccionamos Botón Comando (Esta dentro de Controles ActiveX).

Una vez seleccionada nos ubicamos a la mitad de la celda A2 y presionando el botón primario (Izquierdo) del mouse empezamos a Dibujar el botón terminando hasta la mitad de la Celda C2, te pido que veas la imagen:

Bien, si notas yo ya le puse nombre al botón, pero en tu caso aparecerá por defecto el nombre commandbutton1, ese nombre lo cambiaremos después de agregarle el código al botón.

Así a como está tu botón está activado en modo diseño, le damos clic derecho, y se nos presenta varias opciones, seleccionamos ver código y se nos abre VBA. Veamos la imagen:

Nos ubicamos en medio de las dos palabras y copiamos el siguiente código:

'imprimirCall Imprimir'rutina que graba la factura en hoja base'se busca la primer fila libre en hoja Factfilalibre = Sheets("Base").Range("A65536").End(xlUp).Row + 1

'se pasarán los datos desde la 1er fila de items

ActiveSheet.Range("A10").Select

fila = 10

While ActiveCell.Value <> ""

'copiamos datos fijos ajustando nro col

Sheets("Base").Cells(filalibre, 2) = ActiveSheet.Range("F4") 'NRO FACT

Sheets("Base").Cells(filalibre, 1) = ActiveSheet.Range("B4") 'FECHA

Sheets("Base").Cells(filalibre, 3) = ActiveSheet.Range("C6") 'CLIENTE

'otros datos del encabezado



'copiamos lista de items

Sheets("Base").Cells(filalibre, 4) = ActiveCell.Offset(1, 0) 'CANT

Sheets("Base").Cells(filalibre, 5) = ActiveCell.Offset(0, 1) 'COD PROD

Sheets("Base").Cells(filalibre, 6) = ActiveCell.Offset(0, 2) 'PROD

Sheets("Base").Cells(filalibre, 7) = ActiveCell.Offset(0, 3) 'DESCRIPC

Sheets("Base").Cells(filalibre, 8) = ActiveCell.Offset(0, 4) 'PRECIO UNIT

Sheets("Base").Cells(filalibre, 9) = ActiveCell.Offset(0, 5) 'PRECIO TOT



'incremento la variable fila para repetir el bucle

filalibre = filalibre + 1



'repito el bucle para las cantidades siguientes

ActiveCell.Offset(1, 0).Select

Wend



'para el ingreso de nueva factura



Call limpieza



Una vez que ya has copiado el código guardas y cierras VBA. Te dejo una imagen para que observes que lo has copiado correctamente, el código copiado debe estar tal a como aparece en la imagen.

Ohhh se me olvidaba un punto importante, y me refiero al nombre del botón comando. Muy bien activamos el modo diseño del comando y le damos clic derecho, seleccionamos ver código.

Esto nos lleva nuevamente a Visual Basic para aplicación, entonces ya estando dentro de VBA en el panel que se encuentra a la izquierda, siempre la opción propiedades esta activa, pero en caso de no estar activo, pulsamos F4 y aparece la ventana Propiedades del CommandButton1, te dejo una imagen para que la veas:

Una vez activo las propiedades del Botón commandButton1, buscamos dentro de las propiedades en la parte izquierda la palabra “Caption”, en la parte derecha tiene escrito CommandButton1, lo borramos y escribimos “Imprimir y Guardar”, guardamos y cerramos VBA.

Muy bien podemos observar que ya cambio el nombre de tu Botón ahora dice “Imprimir y Guardar” Felicidades ahora solo nos queda probar si todo funciona bien. Pero antes de que hagas la prueba te regalo una imagen de la propiedad caption esta resaltado en azul:

Estupendo! Hemos concluido ahora solo digita una cantidad, un código, selecciona un nombre, digita la fecha (Si no quieres digitar fecha solo escribe dentro de la celda B4 lo siguiente =Hoy()).

Y pulsa el botón "Imprimir y Guardar" y veras como se imprimirá y se guardara los datos, no solo eso el número de factura aumentara y quedara automáticamente una nueva factura limpia, lista para digitar nuevos datos.

Hasta aquí con el tema de hoy Como Programar en Excel - Facturas de Venta Final, me gustaría saber que piensas de este articulo, déjame tu comentario con dudas, criticas constructivas y sugerencia.

Te saluda,

Roger Pérez - Excel y Contabilidad