Sumar (x) meses a fecha inicial hasta llevar a fecha actual

BEPENA · el 10 de febrero

Buenas noches a todos,

Primero que todo muchas gracias por la gentileza al revisar esta solicitud...

Al día de hoy tengo un problema con un herramienta que estoy creando; a continuación planteo el inconveniente:

Tengo un archivo el cual en si columna (A) tengo una relación de fechas de inicios de contrato (aclaro que son fechas anteriores al día de hoy) y requiero que vaya haciendo el calculo de vencimiento hasta llegar al 2019, ejemplo: en la range A2 tengo la fecha 07/06/2018 en la columna "B" tengo "Meses Renovación Contrato" en el rango B2 estan los meses, para este caso 3, el resultado de salida que se pretende es que me apareciera en la columna "D" para este caso rango D2 el resultado 07/03/2019, el cual corresponde al recorrido de tres trimestres

Adjunto excel con parte de código que he adelantado (modulo 1 y modulo 2)

Reitero mis agradecimientos y espero alguno de uds gurus del VBA de ayude

saludos

Bernardo PC

sumas meses a fecha.xlsm

Haplox · el 11 de febrero

Te estas complicando la vida @BEPENA

Usa el siguiente codigo

Sub sumar_fechas()
Dim i%

i = 2
Do While Cells(i, "A") <> ""
    Cells(i, "D") = DateAdd("m", Cells(i, "B"), Cells(i, "A"))
    i = i + 1
Loop

End Sub

Antoni · el 11 de febrero

Esta función también valdría:

Function SumarMeses(Fecha As Date, Meses As Integer) As Date
   SumarMeses = DateAdd("m", Meses, Fecha)
End Function

Ejemplo;

=SumarMeses(A2;B2)

.

BEPENA · el 11 de febrero

Muchas gracias por el aporte, es un muy buen adelante, no obstante, les pido asesoría es con el recorrido,, me imagino que debe de hacer una especie de acumulado temporal tasta llegar al 2019.

requiero que vaya haciendo el calculo de vencimiento hasta llegar al 2019, ejemplo: en la range A2 tengo la fecha 07/06/2018 en la columna "B" tengo "Meses Renovación Contrato" en el rango B2 estan los meses, para este caso 3, el resultado de salida que se pretende es que me apareciera en la columna "D" para este caso rango D2 el resultado 07/03/2019, el cual corresponde al recorrido de tres trimestres

Muchas garcias

Haplox · el 11 de febrero

Hace 41 minutos , BEPENA dijo:

, el cual corresponde al recorrido de tres trimestres

Pero som meses o trimestres? Porque en tu fichero usas meses y ahora dices trimestres :huh:

Solo multiplica Cells (i, "B" ) por 3 si son trimestres

BEPENA · el 11 de febrero

Buenos días Haplox,

Muchas garcias por tu respuesta, pueden ser meses, bimestres, trimestres, semestres o años, por simplicidad los hago lo hago en meses para llegar al vencimiento en el 2019

Haplox · el 11 de febrero

Hace 4 horas, BEPENA dijo:

pueden ser meses, bimestres, trimestres, semestres o años, por simplicidad los hago lo hago en meses para llegar al vencimiento en el 2019

Entonces ¿Cómo lo necesitas?

BEPENA · el 11 de febrero

Hace 8 horas, Antoni dijo:
Esta función también valdría:
Function SumarMeses(Fecha As Date, Meses As Integer) As Date
   SumarMeses = DateAdd("m", Meses, Fecha)
End Function
Ejemplo;

=SumarMeses(A2;B2)

.

Hace 11 horas, Haplox dijo:

Te estas complicando la vida @BEPENA

Usa el siguiente codigo

Sub sumar_fechas()
Dim i%

i = 2
Do While Cells(i, "A") <> ""
    Cells(i, "D") = DateAdd("m", Cells(i, "B"), Cells(i, "A"))
    i = i + 1
Loop

End Sub

Buenas tardes Haplox,

Muchas garcías por tu interés en mi consulta y pido disculpas por la falta de claridad en mi solicitud, no obstante, procedo a explicarte la situación:

Tengo un archivo el cual en la columna (A) tengo una relación de fechas de inicios de contrato (aclaro que son fechas anteriores al día de hoy) y requiero que vaya haciendo el calculo de vencimiento hasta llegar al 2019, ejemplo: si en la range A2 tengo la fecha 07/06/2018 y en la columna "B" que se llama "Meses Renovación Contrato" en el rango B2 estan los meses (que representa el numero de meses del vencimiento contractual), para este caso 3 (pero puede ser cualquier # de meses) , el resultado de salida que se pretende es que me apareciera en la columna "D" para este caso rango D2 el resultado 07/03/2019, que sería el recorrido de:

Primer vencimiento: 07/09/2018

Segundo vencimiento: 07/12/2018

Tercer Vencimiento: 07/03/209

El resultado que me interesa es el que corresponde al novecientos de 2019, por ende el resultado esperado para este caso seria 07/03/2019.

Me imagino que requiero de un ciclo que vaya acumulando los meses (para este ejemplo 3 meses cada recorrido) hasta que identifique que es 2019 y me coloque esa fecha.

Le cuento que estoy intentando hacer el código y no he podido.

Muchas gracias por su atención y feliz día