combobox click event

[robertvdb]

I have a sheet where the user selects a particular month, through a combobox.

When he selects "January", then a Msgbox ("cold") should appear. And so on.

For some reason, the below code does not work:

Private Sub monthCombo_Click()
Dim montH As String

Select Case montH
Case January
MsgBox ("cold")
'and so on
Case July
MsgBox ("hot")
'and so on until December
End Select

End Sub

what is wrong here ?

 

[James006]

Hi,

Several things can happen ...
1) How do you populate your ComboBox ?
2) Are you using Text or Numbers ?
3) Have you tried to use monthCombo_Change() with "January" and "July" ?

 

[RoryA]

It should be Case "January" with quotes, and so on for the other months.

 

[robertvdb]

Hi James

the ChangeEvent doesn't work either.

This is how I popiulate the combobox:

Private Sub Worksheet_Activate()
With ActiveSheet.monthCombo
.Clear
.AddItem "January"
.AddItem "February"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "September"
.AddItem "October"
.AddItem "November"
.AddItem "December"
End With

End Sub

 

[welshgasman]

Shouldn't you be Selecting the combo control to test?

 

[James006]

Hi again,

Private Sub monthCombo_Change()
Dim montH As String
    Select Case montH
        Case "January"
        MsgBox "Cold"
        'and so on
        Case "July"
        MsgBox "Hot"
        'and so on until December
    End Select
End Sub

 

[robertvdb]

Thanks James and all

adding quotes helped. But also, I added as below:

Private Sub monthCombo_Click()
Dim montH As String

[COLOR=rgb(184, 49, 47)][B]montH = monthCombo.Value[/B][/COLOR]

    Select Case montH
        Case "January"
        MsgBox "Cold"
        'and so on
        Case "July"
        MsgBox "Hot"
        'and so on until December
    End Select

End Sub

 

[welshgasman]

Why not just use the combo directly?, why the middle man of montH ?

 

[robertvdb]

I do not understand what you mean, Welshgasman

 

[welshgasman]

I do not understand what you mean, Welshgasman

Select Case monthCombo.Value