Macro para crear cronograma de pagos en Excel VBA
Para Dante
Hola Dante buen día deseo complementar mi proyecto con un cronograma de pagos
Los montos y los meses varían, y la fecha de pago debe iniciar 20 días después hecho el cronograma.
Según la imagen mostrada la fecha para iniciar el pago cae 20/10/2016, a partir de ahí se fracciona los pagos todo con fecha 20. Te envié el archivo y el formulario es USERFORM6. Estaré agradecido por su valioso tiempo.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Private Sub CommandButton2_Click() 'Por.Dante Amor ListBox1.Clear If TxtMonto = "" Or Not IsNumeric(TxtMonto) Or _ TxtMeses = "" Or Not IsNumeric(TxtMeses) Then Exit Sub End If cuota = TxtMonto / TxtMeses fec = Date For i = 1 To Val(TxtMeses) ListBox1.AddItem i ListBox1.List(ListBox1.ListCount - 1, 1) = fec ListBox1.List(ListBox1.ListCount - 1, 2) = cuota fec = DateSerial(Year(Date), Month(Date) + i, Day(Date)) Next End Sub
