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
