Hi all,
I have done this previously with two ActiveX Control Combo Boxes, but somehow the code doesn't seem to work with a Form Control Combo Box.
Below the code that I am using for a single Form Control Combo Box:
Sub FiscalYearComboBox_Change()
Dim c As ControlFormat
Set c = Sheet5.Shapes("FiscalYearComboBox").ControlFormat
Select Case c.Value
Case 1: FY16
Case 2: FY17
Case 3: FY18
End Select
End Sub
Above code works perfectly fine, but I don't know how to add a second Form Control Box (with 'month' attributes) to it to make them dependent on each other. I tried it with a code that worked for my ActiveX Control boxes (see below)
Sub TimePeriodComboBox_Change()
If FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "MONTH" Then
FY2016
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "APR" Then
APR16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "MAY" Then
MAY16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "JUN" Then
JUN16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "JUL" Then
JUL16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "AUG" Then
AUG16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "SEP" Then
SEP16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "OCT" Then
OCT16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "NOV" Then
NOV16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "DEC" Then
DEC16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "JAN" Then
JAN16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "FEB" Then
FEB16
ElseIf FiscalYearComboBox.Value = "FY 2016" And MonthComboBox.Value = "MAR" Then
MAR16
End If
End Sub
But that doesn't seem to work!
Bookmarks