Hi Mike
Hours playing around trying to figure out what's wrong.
Went back to my books, check with the Internet.
I'm just starting to learn VBA and this one, is etched in my brain.
Thank you very much
Regards
John
"Mike" <(E-Mail Removed)> wrote in message
news:B2A3AF07-E175-41A7-A7B4-(E-Mail Removed)...
> Try this
> Private Sub UserForm_Initialize()
> OptionButton1 = False
> OptionButton2 = False
> OptionButton3 = False
> OptionButton4 = False
> TextBox1.Value = ""
> TextBox2.Value = ""
> TextBox3.Value = ""
> CheckBox1 = False
> CheckBox2 = False
> With ComboBox1
> .AddItem "Walking"
> .AddItem "Running"
> .AddItem "Tennis"
> .AddItem "Bicycle"
> .AddItem "Hockey"
> End With
> ComboBox1.Value = ""
> End Sub
>
>
> "John" wrote:
>
>> Hi Everyone
>> I've got a userform with a combo box that will not show the list unless I
>> press
>> the button to activate [ Private Sub UserForm1_Initialize() ] then everything
>> is
>> ok.
>> My codes are below, can anyone figure out what I forgot ?
>> Thanking you in advance
>> Regards
>> John
>>
>> Private Sub UserForm1_Initialize()
>> OptionButton1 = False
>> OptionButton2 = False
>> OptionButton3 = False
>> OptionButton4 = False
>> TextBox1.Value = ""
>> TextBox2.Value = ""
>> TextBox3.Value = ""
>> CheckBox1 = False
>> CheckBox2 = False
>> With ComboBox1
>> .AddItem "Walking"
>> .AddItem "Running"
>> .AddItem "Tennis"
>> .AddItem "Bicycle"
>> .AddItem "Hockey"
>> End With
>> ComboBox1.Value = ""
>> End Sub
>> 'Exit Button
>>
>> Private Sub CommandButton2_Click()
>> Unload UserForm1
>> End Sub
>>
>> 'Clear Button
>> Private Sub CommandButton3_Click()
>> Call UserForm1_Initialize
>> End Sub
>>
>> 'Date window
>> Private Sub TextBox1_enter()
>> Me.TextBox1.Value = Now
>> End Sub
>>
>> '"OK" Button
>> Private Sub commandbutton1_Click()
>>
>> Dim RowCount As Long
>> Sheets("sheet1").Activate
>> Range("A4").Select
>>
>> Do
>> If IsEmpty(ActiveCell) = False Then
>> ActiveCell.Offset(1, 0).Select
>> End If
>>
>> Loop Until IsEmpty(ActiveCell) = True
>> ActiveCell.Value = TextBox1.Value
>> ActiveCell.Offset(0, 2) = TextBox2.Value
>> ActiveCell.Offset(0, 6) = TextBox3.Value
>> ActiveCell.Offset(0, 5) = ComboBox1.Value
>>
>> If OptionButton1 = True Then
>> ActiveCell.Offset(0, 1).Value = "Breakfast"
>> ElseIf OptionButton2 = True Then
>> ActiveCell.Offset(0, 1).Value = "Lunch"
>> ElseIf OptionButton3 = True Then
>> ActiveCell.Offset(0, 1).Value = "Dinner"
>> Else
>> ActiveCell.Offset(0, 1).Value = "Bedtime"
>>
>> End If
>> If CheckBox1 = True Then
>> ActiveCell.Offset(0, 3).Value = "Yes"
>> Else
>> ActiveCell.Offset(0, 3).Value = "No"
>> End If
>> If CheckBox2 = True Then
>> ActiveCell.Offset(0, 4).Value = "Yes"
>> Else
>> ActiveCell.Offset(0, 4).Value = "No"
>> End If
>> Range("a4").Select
>> End Sub
>>
>> .
>>
|
Similar Threads
