Hello All,
I am rather stumped. I am making a user-form that in the end generates a chart from the data in the workbook. Since it is to be something the user can set up so they get the chart they want, it requires some comboboxs that will filter what data the chart will show.
There's a top level combobox, then another one underneath that changes its contents according to the value selected in the top one. I've gone through what must have been a dozen or so threads, but none seem to quite get the results I want. Lately I am getting the error 13 type mismatch, among others I have had in the past. Unfortunately the debugger doesn't highlight the offending line, so I have to try and guess.
Private Sub Userform_Initialize()
'Dim Index As Integer
'Index = FeedbackBox.ListIndex
Me.FeedbackBox.List = Worksheets("Data").Range("FeedbackList").Value
FeedbackBox.ListIndex = 0
Dim XAxisBoxRng As String
Select Case FeedbackBox.Value
Case Is = "Quantity"
XAxisBoxRng = Worksheets("Data").Range("Table12").Value
Case Is = "Frequency"
XAxisBoxRng = Worksheets("Data").Range("Table1223").Value
Case Is = "Average"
XAxisBoxRng = Worksheets("Data").Range("Table1224").Value
End Select
XAxisBox.List = XAxisBoxRng
XAxisBox.ListIndex = 0
'Me.YAxisBox.List = Worksheets("Data").Range("Table20").Value
End Sub
The little text pieces are just "switched off" code until I get to grips with the first problem.
Any help will be greatly thanked.
Regards
Bookmarks