UserForms

[RichardU]

Hi there

I have never used UserForms and wanted to create one where the user could pick one of 2 choices. These choices are month names but need to be looked up based on todays date or a cell in a sheet. i.e.

Cell A1 = 31/07/2007
TodaysDate = 07/08/2007

UserForm to show like

Please select which file you want to open.

July August
o o

With selection boxes or something in the form and a OK button

How would i go about doing this?

 

[DiscoPistol]

This is a horrible, horrible code but it seems to work. I'm sure someone can reduce it but I'm not feeling well so its all I can give!

A1 = 31/07/07
A2 = Today()

Private Sub UserForm_Activate()
Dim rn As Range
i = 1

Set rn = Range("a1:A2")
For Each Value In rn

If Mid(Value, 4, 2) = "01" Then Cells(i, 2).Value = "January"
If Mid(Value, 4, 2) = "02" Then Cells(i, 2).Value = "February"
If Mid(Value, 4, 2) = "03" Then Cells(i, 2).Value = "March"
If Mid(Value, 4, 2) = "04" Then Cells(i, 2).Value = "April"
If Mid(Value, 4, 2) = "05" Then Cells(i, 2).Value = "May"
If Mid(Value, 4, 2) = "06" Then Cells(i, 2).Value = "June"
If Mid(Value, 4, 2) = "07" Then Cells(i, 2).Value = "July"
If Mid(Value, 4, 2) = "08" Then Cells(i, 2).Value = "August"
If Mid(Value, 4, 2) = "09" Then Cells(i, 2).Value = "September"
If Mid(Value, 4, 2) = "10" Then Cells(i, 2).Value = "October"
If Mid(Value, 4, 2) = "11" Then Cells(i, 2).Value = "November"
If Mid(Value, 4, 2) = "12" Then Cells(i, 2).Value = "December"
i = i + 1

Next Value

ComboBox1.AddItem Range("b1").Value
ComboBox1.AddItem Range("b2").Value

End Sub

Home to bed