Para dante agregar columna en el archivo bonos
Dante ahí te mande un mail con el archivo y la explicación que me olvide de agregar en el programa de bonos que anda bárbaro
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el cambio
If Not Intersect(Target, Range("P:P")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target <> "" Then
respuesta = MsgBox("Desea archivar los datos de los bonos", vbYesNo, "ATENCION")
If respuesta = vbYes Then
Application.EnableEvents = False
PegaDatosDeBonosEnBonos Target.Row
PegaEnInteresesDatosDelBono Target.Row
Application.EnableEvents = True
Sheets("BONOS").Select
Target.Offset(0, 1).Select
End If
End If
End If
Estos son otros cambios
Do While fec1 <= fec2
h2.Cells(u, "A") = h1.Range("V5")
h2.Cells(u, "B") = fec1
h2.Cells(u, "C") = h1.Range("W5")
h2.Cells(u, "D") = h1.Range("V11")
fec1 = DateSerial(Year(fec1), Month(fec1) + meses, Day(fec1))
u = u + 1
Loop
Recuerda valorar
