hola que tal lo que pasa es que tengo una plantilla de punto de venta y todo iva bien pero cuando registre muchos productos se descontavan pero no el producto con el codigo necesito una funcion o macro para descontar el producto esta es mi plantilla espero y me puedan ayudar esta es la funcion.

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

Hola, sera mas facil responder si subes tu libro con el codigo incluido, gracias.

hola que tal si es lo que tenia pensado pero no lo puedo subir porque dice que es muy pesado, pesa 1mb