Auto-Populating a dropbox in a userform

[MrKowz]

Is there a way to populate a dropbox in a user form that has years in it starting from 2008 until the current year?

It seems like a dumb thing to do right now, but this is a macro that will be used for many years to come for this company, and I want to make the userform idiot-proof.

For example: This year, I only want the dropbox to show 2008... next year I want it to show 2008 and 2009. In the year 2014, I want it to show 2008, 2009, 2010, 2011, 2012, 2013, 2014. And so on.

If this is possible, and someone has coding for it, if I could also get instructions on where to place it in a macro, that would be great. Currently I use the following macro to call my userform:

Sub eTPAProcessingPerformance()
ETPAREPORT.Show
End Sub

Thank you!

 

[MrKowz]

Bumping up

 

[MrKowz]

bump

Is it possible to do this?

I do not know how to populate a dropbox on a userform anyway, but I was thinking maybe I could do a while loop like this pseudocode.

Current Year = year
While year>2007
populatebox with year
year = year - 1
loop

 

[MrKowz]

Buuuuuumparoo!

 

[MrKowz]

bump

 

[MrKowz]

bump

 

[RoryA]

Right-click the userform, choose View Code and paste this in:

Private Sub UserForm_Initialize()
   Dim lngYear
   For lngYear = 2008 To Year(Date)
      Me.ComboBox1.AddItem lngYear
   Next lngYear
End Sub

replacing Combobox1 with the name of your combobox!

 

[MrKowz]

Perfect! Thank you much!