Macro que me las sume y me reste
Publicado por David Paz (8 intervenciones) el 19/06/2015 18:15:57
Hola a todos, bueno quería pedirles un poco de ayuda para crear una macro lo que quiero es:
quiero es que en esas cosa que entran y que salen me las sume y me reste osea tengo 10 art. presto 5 me quedan 5 que es en entrada y el total de los que yo tengo (existentes) es 10
tengo es este macro pero no me da me suma y suma y suma y no resta en las entradas y salidas
1
2
3
4
articulo Entrada Salida Existentes
accesorios 0 0 10
0 5 5
5 0 10
quiero es que en esas cosa que entran y que salen me las sume y me reste osea tengo 10 art. presto 5 me quedan 5 que es en entrada y el total de los que yo tengo (existentes) es 10
tengo es este macro pero no me da me suma y suma y suma y no resta en las entradas y salidas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ENTRADA()
Range("A2").Select
ClaveEntrada = ActiveCell.FormulaR1C1 + 4
celdaENTRADA = "C" & ClaveEntrada
Range("C2").Select
EntradaArticulo = ActiveCell.FormulaR1C1
Range(celdaENTRADA).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaArticulo)
Range("C2").Select
ActiveCell.FormulaR1C1 = ""
End Sub
Sub SALE()
Range("A2").Select
ClaveEntrada = ActiveCell.FormulaR1C1 + 4
celdaENTRADA = "D" & ClaveEntrada
Range("D2").Select
EntradaArticulo = ActiveCell.FormulaR1C1
Range(celdaENTRADA).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaArticulo)
Range("D2").Select
ActiveCell.FormulaR1C1 = ""
End Sub
Valora esta pregunta
0