Como puedo descontar un stock de una hoja a otra de varios productos
hola lo que pasa es que yo hice una plantilla excel de punto de venta, y si descontaba el producto de unos pocos pero cuando agregue mas descuenta pero de otros que no son ejemplo.
CÓDIGO DESCRIPCIÓN EXISTENCIAS PRECIO
1 EJEMPLO 10 $50.00
y cuando me boy a ventas me da toda la información correcta incluso hice un macro para que me sume todas las ventas al dia y me haga un cierre de la venta y todo bien ahi, pero el problema es que descuenta pero de un producto que no es.
esta es mi macro
Sub Guardar_ventas()
Range("Información!C" & Range("R6")).Value = Range("Información!C" & Range("R6")) - Range("G7")
Sheets("Resultados").Visible = True
Sheets("Resultados").Select
Range("A2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = Range("Ventas!l1")
ActiveCell.Offset(0, 1).Value = Range("Ventas!l2")
ActiveCell.Offset(0, 2).Value = Range("Ventas!l3")
ActiveCell.Offset(0, 3).Value = Range("Ventas!i1")
ActiveCell.Offset(0, 4).Value = Range("Ventas!E7")
ActiveCell.Offset(0, 5).Value = Range("Ventas!f7")
ActiveCell.Offset(0, 6).Value = Range("Ventas!g7")
ActiveCell.Offset(0, 7).Value = Range("Ventas!h7")
ActiveCell.Offset(0, 8).Value = Range("Ventas!k2")
ActiveCell.Offset(0, 9).Value = Range("Ventas!f2")
Sheets("Ventas").Select
MsgBox "La información de esta venta ha sido almacenada exitosamente", vbInformation, "Venta registrada"
Sheets("Resultados").Visible = False
Sheets("Factura").Visible = True
Sheets("Factura").Select
Range("A6").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = Range("Ventas!f7")
ActiveCell.Offset(0, 1).Value = Range("Ventas!g7")
ActiveCell.Offset(0, 2).Value = Range("Ventas!h7")
Sheets("Ventas").Select
Dim intRespuesta As Integer
intRespuesta = MsgBox("Se ha añadido el articulo a la factura de ventas, ¿desea visualizar la factura?", vbQuestion + vbYesNo, "Visualización de factura")
If intRespuesta = 6 Then
Range("i1").Value = Range("i1") + 1
Sheets("Factura").Visible = True
Sheets("Factura").Select
Else
Sheets("Factura").Visible = False
MsgBox "Para continuar con la factura, agregue otro artículo"
End If
End Sub
