Excel VBA - Cálculo y adición de meses a fechas en cuadros TextBox en formulario
Agradezco mucho la ayudan que dan.
Tengo un formulario en donde TextBox1 se coloca la fecha inicial formato dd/mm/yyyy en el TextBox2 se colocan los meses (que pueden ser más de 12)
Y en el TextBox3 el resultado de la suma de los meses a la fecha de TextBox1.
Si no coloco meses en TextBox2, en TextBox3 solo digito el mes correspondiente.
He hecho este código que creo que estoy en buen camino pero no me da resultados. Al digitar la fecha inicial en un TextBox1, digitar los meses en TextBox2 y darle TAB o Enter después no aparece nada en TextBox3.
Private Sub TextBox3_AfterUpdate()
Dim FinContrato As Date
Dim MesesRenovar As Integer
Dim InicioContrato As Date
InicioContrato = DateValue(TextBox1)
MesesRenovar = Val(TextBox2)
FinContrato = DateValue(TextBox3)
If IsNumeric(TextBox2) Then
TextBox3 = DateAdd("m", MesesRenovar.Value, Date)
End If
End Sub
He googleado algunas formas pero creo que no hay muchos ejemplos de casos como el mío con puros TextBox.
Las variables son porque hago una minimacro de cálculo de contratos.
Disculpen la molestia :(