Descontar una cantidad de varias cantidades en diferentes celdas
La formula o macro debería descontar una cantidad a/c de otras cantidades empezando a descontar de la cantidad del año menor y así sucesivamente con el resto de cantidades hasta descontar el total de la cantidad a/c quedando la celda de esta cantidad a/c vacía y la celda total con el resto que quede de dichas operaciones.
1 respuesta
Respuesta de Dante Amor
1
Te envié por correo un archivo con los ejemplos
H o l a:
Te anexo la macro
Sub Descontar()
'Por.Dante Amor
Set b = Cells.Find("A/C", lookat:=xlWhole)
If Not b Is Nothing Then
f = b.Row
c = b.Column
For i = f + 1 To Range("A" & Rows.Count).End(xlUp).Row
ac = Cells(i, c)
For j = 2 To c - 1
valor = Cells(i, j)
If valor <= ac Then
ac = ac - valor
Cells(i, j) = 0
Else
Cells(i, j) = Cells(i, j) - ac
ac = 0
End If
If ac = 0 Then
Cells(i, c) = 0
Exit For
End If
Next
Next
End If
MsgBox "Descontar terminado"
End Sub‘
S a l u d o s . D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s
