Factura de Venta Con Excel – Evitar Facturar si un Articulo tiene Stock Cero
En este post es otro complemento o mejora del aplicativo denominado como realizar una factura con Excel, lo que realiza el ejemplo es controlar si el producto que se requiere facturar tiene stock, en caso que el stock sea cero no deja facturar el articulo.
Existen muchos casos donde es conveniente o se permite facturar con stock cero, por ejemplo una empresa que envía productos que no son entregados en el momento al cliente y que justo cuando se facturar no tiene stock, pero que va a existir stock en el transcurso del día, porque el proveedor los va a abastecer; es necesario facturar con stock cero para no perder la venta.
De esta manera se comportaba este ejemplo que hemos denominado Factura en Venta en Excel, pero un suscriptor de nuestro canal de YouTube, nos plantea si es posible hacer que la macro no deje facturar si un artículo tiene stock cero, a lo cual le contestamos que si y este es el ejemplo que permite determinar si un articulo tiene stock cero en Excel, para permitir o no permitir facturar.
Requieres aprender a operar Excel, hazlo en forma fácil y sencilla, click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.
Mira la macro en acción, una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira el playlist con vídeos relacionados donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil.
Evitar facturar al Controlar el Stock en Excel en caso de ser Cero
El ejemplo lo que realiza es al momento de elegir el producto a facturar, controla que en la base de datos el stock sea distinto de cero, en ese caso procede a facturar dicho articulo, en caso contrario no se deja facturar con stock cero, saliendo un mensaje que avisa de ello.
Como se dijo la macro se encuentre en el Formulario1 y se ejecuta dicho control de stock en Excel una vez que el usuario seleccionó el producto a facturar.
Macro que evita facturar si el stock que hay en la base de datos de Excel es Cero
Una vez seleccionado el producto a facturar, la macro detecta cuando se presiona Enter y empieza a ejecutar la macro, se usa el código:
If KeyAscii = 13 Then
Luego como el Listbox1 del Formulario, al buscar los datos se carga en el Listbox el dato de cantidad, directamente se determina cual es el stock y se compara con cero, en caso de ser mayor a cero deja facturar caso contrario no deja facturar, saliendo un mensaje avisando tal situación y finalizando la macro.
En caso que ustedes ubiesen adaptado la macro y no tuviesen el la cantidad de stock en el formulario se debería proceder a buscar dicho dato en la base de datos.
De la siguiente manera se obtiene el dato, que es la cantidad de stock del producto seleccionado, luego se compara con cero, si es igual no deja facturar y concluye la macro utilizando «Exit Sub», el código es el siguiente:
st = ListBox1.List(fila, 6)
If st = 0 Then
Unload UserForm1
MsgBox («No existe stock del producto que desea facturar»), vbCritical, «https://macrosenexcel.com»
Exit Sub
End If
Si requieres ver el restos de vídeos de la saga como hacer una factura con Excel, click en el link para ver los vídeos anteriores «Como Crear una Factura en Excel Paso a Paso.
Descarga el Libro usado para Como Ejemplo Crear Factura en Excel Paso a Paso
Puedes obtener el libro usado en este ejemplo, al finalizar el post se encuentra el respectivo link, el mismo es totalmente gratuito y su uso es libre, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.
Código Formulario 1 Listbox1 del Ejemplo Como Crear Factura en Excel
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii = 13 Then
Set a = Sheets(«Articulos»)
filaedit = a.Range(«A» & Rows.Count).End(xlUp).Row
fila = Me.ListBox1.ListIndex
cod = ListBox1.List(fila, 1)
art = ListBox1.List(fila, 2)
mar = ListBox1.List(fila, 3)
pv = ListBox1.List(fila, 8)
st = ListBox1.List(fila, 6)
If st = 0 Then
Unload UserForm1
MsgBox («No existe stock del producto que desea facturar»), vbCritical, «https://macrosenexcel.com»
Exit Sub
End If
Set codigo = a.Range(«B2:B» & filaedit).Find(cod, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
stodir = codigo.Row
End If
End If
Unload UserForm1
UserForm3.Show
End Sub
Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407
