VBA _ Combox in form enter values

[jakobt]

Have a userform 1 with a combobox1

Want to write VBA code 12 periods: Jan18 - Dec18 to be entered in the dropdown in the combox

How can I write VBA code for this?

 

[My Aswer Is This]

Try this:

Private Sub CommandButton2_Click()
'Modified  10/14/2018  10:06:42 AM  EDT
Dim i As Long
ComboBox1.Clear
For i = 1 To 12
ComboBox1.AddItem Format(DateAdd("M", i, "1.18,2018"), "MMM") & " 18"
Next
End Sub

 

[Fluff]

Another option

Private Sub UserForm_initialize()
   Dim i As Long
   For i = 1 To 12
      Me.ComboBox1.AddItem Format(i * 29, "mmm") & "18"
   Next i
End Sub