Restar de una celda y si no alcanza restar

Hola experto
Mi inquietud es la siguiente: como hago para restarle a una cantidad que tengo en una celda un valor y que si este valor (el que quiero restar) es más grande que el que tengo en la celda reste lo que haga falta de la celda de arriba
No se si con una macro me puedas ayudar
Gracias.

1 Respuesta

Respuesta
1
Acá tienes un ejemplo
Sub resta()
Dim valor As Integer
valor = InputBox("Coloque la cantidad")
Range("a3").Activate
If valor > Range("a3") Then
RESULTADO = valor - Range("a3")
Range("B5") = ActiveCell.Offset(-1, 0) - RESULTADO
Else
Range("B5") = valor - Range("a3")
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas