Dante amor te mande un mail por favor necesito tu ayuda
Mira el mail que te mande porque me cuesta resolverlo gracias
1 respuesta
Respuesta de Dante Amor
1
Te envié el archivo con la macro
Sub enviar()
'Por.Dante Amor
Dim fec As Date
Set h1 = Sheets("INTERESES")
Set h2 = Sheets("CASHFLOW")
u = 5
Do While h2.Cells(u, "A") <> ""
u = u + 1
Loop
For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row
fec = DateSerial(Year(h1.Cells(i, "B")), Month(h1.Cells(i, "B")), 1)
Set b = h2.Rows(2).Find(fec, LookIn:=xlFormulas)
If Not b Is Nothing Then
h2.Cells(u, "A") = h1.Cells(i, "A")
h2.Cells(u, "B") = h1.Cells(i, "C")
h2.Cells(u, b.Column) = h1.Cells(i, "D")
End If
Next
h2.Select
MsgBox "Importes enviados", vbInformation
End Sub
