Realizar una resta con una macro

Resuelto
jmtv Mensajes publicados 9 Estado Miembro -  
jmtv Mensajes publicados 9 Estado Miembro -
Hola,

Actualmente estoy creando un sistema de gestión. Este es mi objetivo.

Quiero que cada vez que envío (imprimo) una factura, los productos se deduzcan del inventario en otra hoja.

No consigo encontrar la macro necesaria que me permita

hacer = A1-A2 sin que A1 regrese a la cantidad inicial al modificar A2.

Tengo esta fórmula que utilizo para la numeración de las facturas. Me gustaría obtener el mismo resultado pero en lugar de +1 tendría -"A1" y parece que no es tan fácil como simplemente cambiar el 1 por A1... ¿pueden ayudarme?

Range("E3").Select
num = Range("E3").Value
num = num + 1
Range("E3").Value = num

5 respuestas

Gyrus Mensajes publicados 3360 Estado Miembro 526
 
Hola jmtv,

Te confirmo que la macro funciona correctamente.
Si escribes 100 en E3 y 5 en E2, cada vez que hagas clic en el botón, el valor de E3 se decrementará en 5:
100...95...90... etc.

Private Sub CommandButton1_Click()
Range("E3") = Range("E3") - Range("E2")
End Sub

¡Hasta luego!
2
Gyrus Mensajes publicados 3360 Estado Miembro 526
 
Hola,

Las instrucciones que utilizas para la paginación de las facturas se pueden resumir así:
Range("E3") = Range("E3") + 1

De igual manera, para sustraer a A1 el valor de A2:
Range("A1") = Range("A1") - Range("A2") 

A+
0
jmtv Mensajes publicados 9 Estado Miembro
 
¡Muchas gracias, voy a intentar esto de inmediato!
0
jmtv Mensajes publicados 9 Estado Miembro
 
Hola Gyrus,

tu macro no funciona...

cuando uso

Range("E3").Select
num = Range("E3").Value
num = num + 1
Range("E3").Value = num

es con un botón. Y mi objetivo es que en lugar de hacer +1 cada vez que hago clic (que es la fórmula anterior), el monto sea -(menos) el número X indicado en una celda determinada, digamos E2.
0
jmtv Mensajes publicados 9 Estado Miembro
 
¡Bueno, hay que entender que soy un novato en esto, jaja! ¡Muchas gracias, Gyrus, el comando efectivamente funciona!

¡Gracias de nuevo!
0