Hola estimados, aqui nuevamente solicitando ayuda de esas magicas..que uds. tienen

les comento tengo textbox1(donde ingreso fecha de recepcion factura ); 1 combobox ( que es para seleccionar dias) y y textbox2 ( que es donde automaticamente debe cargar la fecha de pago, segun la cantidad de dias seleccionado )

por favor, no es flojera sino el no saber..uds. podrian a yudarme con la sintaxis 

atte.

Milton 

fecha de pago.xlsm

@meduvilla

¿te sirve si te digo que mires ayuda sobre la funcion DateAdd ?

Si no vuelve a preguntar

Buenos días a todos...

Busque...pero no precisamente lo que necesito... Estimado

Hola estimado, envío tu archivo con lo que requieres, me dices si te sirvió. saludos

 

fecha de pago_JGG.xlsm

Añade esto a tu código:

Private Sub ComboBox1_Change(): CalcularVencimiento: End Sub
Private Sub TextBox1_Change():  CalcularVencimiento: End Sub
'--
Private Sub CalcularVencimiento()
If IsDate(TextBox1) And Not ComboBox1.ListIndex = -1 Then
   TextBox2 = CDate(TextBox1) + Val(LTrim(ComboBox1))
End If
End Sub

 

Editado el el 22 de febrero6 años por Antoni

excelennte es lo que necesitaba estimado ...ggindustrial

En 22/2/2019 at 17:15 , Antoni dijo:

Añade esto a tu código:

Private Sub ComboBox1_Change(): CalcularVencimiento: End Sub
Private Sub TextBox1_Change():  CalcularVencimiento: End Sub
'--
Private Sub CalcularVencimiento()
If IsDate(TextBox1) And Not ComboBox1.ListIndex = -1 Then
   TextBox2 = CDate(TextBox1) + Val(LTrim(ComboBox1))
End If
End Sub

 

¿Lo has probado al menos?

muchas gracias Estimado Antonio .. ya estamos listos con esta ayudita