fecha pago 30 dias recepcion factura

[meduvilla]

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

[Haplox]

@meduvilla

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

Si no vuelve a preguntar

[meduvilla]

Buenos días a todos...

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

[jggindustrial]

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

 

fecha de pago_JGG.xlsm

[Antoni]

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

 

[meduvilla]

excelennte es lo que necesitaba estimado ...ggindustrial

[Antoni]

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?

[meduvilla]

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