Macro para resta consecutivas de varias celdas a partir de un monto
He intentado varias cosas, pero ninguna me da el resultado que espero.
Tengo valores en la columna A hasta la celda 9, necesito introducir un monto por medio de una macro que vaya restando el valor de cada una hasta que el resultado sea menor que el monto a restar y lo coloque al lado.
Ejemplo: El monto es 12000
A B ( resta automática )
1000 1000 (11000)
2000 2000 (9000)
3000 3000 (6000)
4000 4000 (2000)
5000 3000
1 Respuesta
Respuesta de Dante Amor
2
Prueba con la siguiente macro
Sub Restas()
'Por.Dante Amor
'
num = InputBox("Introduce un monto")
Range("B1:B9").ClearContents
If num <= 0 Or num = "" Or Not IsNumeric(num) Then Exit Sub
'
For i = 1 To 9
If Cells(i, "A") < num Then
num = num - Cells(i, "A")
Cells(i, "B") = Cells(i, "A")
Else
Cells(i, "B") = Cells(i, "A") - num
Exit For
End If
Next
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
