Macro para mostrar los 3 primeros de la fecha actual en combobox

H o l a: expertos

Necesito mostrar los 3 primeros años en el combobox.

Por ejemplo estamos año 2016

En el combobox debe mostrar

2016
2017
2018

si estamos año 2017 automáticamente debe mostrar

2017
2018
2019

Muy agradecido!

3 respuestas

Respuesta
1

Pon lo siguiente en tu formulario

Private Sub UserForm_Activate()
    ComboBox1. AddItem Year(Date)
    ComboBox1.AddItem Year(Date) + 1
    ComboBox1.AddItem Year(Date) + 2
End Sub

sal u dos

Respuesta
1

Tenes que cargarlo de esta forma:

fechaarch = Format(CDate(Date), "yyyy")
Me.ComboBox1.AddItem fechaarch
fechaarch = fechaarch + 1
Me.ComboBox1.AddItem fechaarch
fechaarch = fechaarch + 1
Me. ComboBox1. AddItem fechaarch

Ten encuenta en que momento cargas los datos al combobox

No te olvides de punt. Uar la respues. Ta

Gr acias

Respuesta
1
añoActual = Year(Date)
añoActual = Year(Date())

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas