Combo Month Text link as number

[asyamonique]

Hello,
ComboBox ListFillRange is base on month text,
If I select the month of January from combo I want that month number will linked to call AP2 as month.
Is there any code for combobox change function?
Thanks

 

[AlphaFrog]

So if you select January in the combobox, you want to put a 1 in cell AP2 ? Is that what you are asking?

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] ComboBox1_Change()
    [color=darkblue]With[/color] Me.ComboBox1
        [color=darkblue]If[/color] .ListIndex > -1 [color=darkblue]Then[/color]
            Range("AP2").Value = .ListIndex + 1
        [color=darkblue]Else[/color]
            Range("AP2").Value = ""
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[asyamonique]

Thank you

 

[Rick Rothstein]

Thank you

Here is another Change event procedure that you can consider...

[table="width: 500"]
[tr]
	[td]Private Sub ComboBox1_Change()
  Range("AP2").Value = Mid(ComboBox1.ListIndex + 1, 1 - (ComboBox1.Value = ""))
End Sub[/td]
[/tr]
[/table]