Macro que copie celdas hasta el valor de otra celda
Para terminar con este proyecto, necesito una ultima macro:
La macro debe copiar C13 a F13; luego D13 a G13 y sumar F13+G13 en H13; el resultado de H13 debe comparar con el monto de B11. Si H13<B11 entonces copiara C14 a F14; luego D14 a G14; y asi sucesivamente hasta llegar al monto de B11. Creo que se debe usar un bucle;
1 Respuesta
Respuesta de Dante Amor
1
H o l a : Te anexo un par de macros
En la primera no acumula el total pagado.
Sub Capital()
'Por.Dante Amor
u = Range("B" & Rows.Count).End(xlUp).Row
Range("F13:G" & u + 13).ClearContents
For i = 13 To Range("B" & Rows.Count).End(xlUp).Row
Cells(i, "F") = Cells(i, "C")
Cells(i, "G") = Cells(i, "D")
wsum = Cells(i, "F") + Cells(i, "G")
Cells(i, "H") = wsum
If Cells(i, "H") >= Range("B11") Then Exit Sub
Next
MsgBox "Fin"
End SubEn la segunda, creo que es lo correcto, sí va a cumulando el total pagado.
Sub CapitalA()
'Por.Dante Amor
u = Range("B" & Rows.Count).End(xlUp).Row
Range("F13:G" & u + 13).ClearContents
For i = 13 To u
Cells(i, "F") = Cells(i, "C")
Cells(i, "G") = Cells(i, "D")
wsum = Cells(i, "F") + Cells(i, "G")
If i > 13 Then
Cells(i, "H") = Cells(i - 1, "H") + wsum
Else
Cells(i, "H") = wsum
End If
If Cells(i, "H") >= Range("B11") Then Exit Sub
Next
MsgBox "Fin"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
