La macro que se encuentra a continuacion permite controlar entradas y salidas para determinar el inventario de varios productos.
Sub ENTRADAS()
Range("A2").Select
claveEntrada = ActiveCell.FormulaR1C1 + 4
CeldaEntrada = "D" & claveEntrada
Range("D2").Select
EntradaProducto = ActiveCell.FormulaR1C1
Range(CeldaEntrada).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaProducto)
Range("D2").Select
ActiveCell.FormulaR1C1 = ""
End Sub
Sub SALIDAS()
Range("A2").Select
claveEntrada = ActiveCell.FormulaR1C1 + 4
CeldaEntrada = "E" & claveEntrada
Range("E2").Select
EntradaProducto = ActiveCell.FormulaR1C1
Range(CeldaEntrada).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaProducto)
Range("E2").Select
ActiveCell.FormulaR1C1 = ""
End Sub