Private Sub UserForm_Initialize()
For Ay = 1 To 12
Me.ComboBox2.AddItem Format("1/" & Ay & "/2020", "mmmm")
Next Ay
End Sub
Private Sub UserForm_Initialize()
' Years
For Ay = 2020 To 2030
Me.ComboBox1.AddItem Ay
Next Ay
' Months
For Ay = 1 To 12
Me.ComboBox2.AddItem Format("1/" & Ay & "/2020", "mmmm")
Next Ay
' Default value
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub
Sub Düðme1_Týkla()
[A1:A12] = "=ROW()"
[B1:B12] = "=PROPER(TEXT(""1/""&RC[-1],""mmmm""))"
With UserForm2
.ComboBox1.List = [A1:A12].Value
.ComboBox2.List = [B1:B12].Value
.Show
End With
End Sub