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

[BEPENA]

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]

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]

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]

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]

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

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

[BEPENA]

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]

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]

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