¿Macro en excel para inventarios?
Hola
la hoja que estoy realizando se basa en la de una hoja de facturación a la cual se ingresan algunos datos y después se presiona el botón venta el cual imprime y asigna un nuevo valor a la factura(una autoserie) e imprime el ticket de la venta ahora lo que quiero hacer es que cuando presione ese botón los productos que he vendido se resten de un inventario que tengo en otra hoja y se guarde la nueva existencia.
si alguien me pudiera dar algún consejo o una idea de como hacerlo ya que he implementado algunos códigos pero sin éxito.
este es el código que implemente y que no hace lo que quiero:
Application.ScreenUpdating = False Sheets("factura").Select Range("C15").Select 'De acuerdo a tu pregunta aquí empieza tu 1er. Dato si no es así solo ajústalo a la fila correcta While ActiveCell.Value <> "" producto = ActiveCell.Value ActiveCell.Offset(0, 1).Select cantidad1 = ActiveCell.Value ActiveCell.Offset(0, -1).Select Sheets("inventario").Select Range("B10").Select 'Lo mismo aquí si no coincide ajústalo a tus datos While ActiveCell.Value <> producto ActiveCell.Offset(1, 0).Select Wend ActiveCell.Offset(0, 3).Select cantidad2 = ActiveCell.Value cantidad3 = cantidad2 - cantidad1 ActiveCell.Value = cantidad3 Sheets("factura").Select ActiveCell.Offset(1, 0).Select Wend Application.ScreenUpdating = True MsgBox ("Las existencias del inventario han sido correctamente actualizadas")
nota: cada producto tiene su código el cual al ingresarse despliega sus datos automáticamente como precio y presentación. La hoja donde se hace la factura se llama factura donde se captura la venta y donde están los productos se llama inventario
la hoja que estoy realizando se basa en la de una hoja de facturación a la cual se ingresan algunos datos y después se presiona el botón venta el cual imprime y asigna un nuevo valor a la factura(una autoserie) e imprime el ticket de la venta ahora lo que quiero hacer es que cuando presione ese botón los productos que he vendido se resten de un inventario que tengo en otra hoja y se guarde la nueva existencia.
si alguien me pudiera dar algún consejo o una idea de como hacerlo ya que he implementado algunos códigos pero sin éxito.
este es el código que implemente y que no hace lo que quiero:
Application.ScreenUpdating = False Sheets("factura").Select Range("C15").Select 'De acuerdo a tu pregunta aquí empieza tu 1er. Dato si no es así solo ajústalo a la fila correcta While ActiveCell.Value <> "" producto = ActiveCell.Value ActiveCell.Offset(0, 1).Select cantidad1 = ActiveCell.Value ActiveCell.Offset(0, -1).Select Sheets("inventario").Select Range("B10").Select 'Lo mismo aquí si no coincide ajústalo a tus datos While ActiveCell.Value <> producto ActiveCell.Offset(1, 0).Select Wend ActiveCell.Offset(0, 3).Select cantidad2 = ActiveCell.Value cantidad3 = cantidad2 - cantidad1 ActiveCell.Value = cantidad3 Sheets("factura").Select ActiveCell.Offset(1, 0).Select Wend Application.ScreenUpdating = True MsgBox ("Las existencias del inventario han sido correctamente actualizadas")
nota: cada producto tiene su código el cual al ingresarse despliega sus datos automáticamente como precio y presentación. La hoja donde se hace la factura se llama factura donde se captura la venta y donde están los productos se llama inventario
