Problem looping through combobox

[Guest]

I have a chartsheet with a combobox. I want to loop through the combobox that
has 15 items. However the following macro gives an error "1004". It loops
from item 1 to 2 to 4 to 7 to 11 before giving the error. What goes wrong?


Sub LoopThroughCombo()

Dim i As Integer
Dim j As Integer

ActiveChart.DropDowns(1).ListIndex = 1
i = 0
j = UBound(ActiveChart.DropDowns(1).List)
MsgBox "j = " & j
For i = 0 To j - 1

'CommandBars("Custom").Controls(1).List (4) <> "View News"
ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + i
'Charts(1).DropDowns(1).ListIndex = i + 1
MsgBox ActiveChart.DropDowns(1).Value & " - " &
ActiveChart.DropDowns(1).ListIndex
Next
' Call UpdateChart(ListIndex)
End Sub

 

[Tom Ogilvy]

with ActiveChart.Dropdowns(1)
for i = 1 to .Listcount
.ListIndex = i
MsgBox .Value & " - " & _
.ListIndex
Next
End With

I assume you don't have a macro assigned to the Dropdown.

 

[Guest]

From 7th grade math.
...(advantages of faterhood - constant reminders of "easy math")

1,2,4,7,11. >15
is a series where you are adding 1,2,3,4,5,....n to the previous number
so look at how your counter is being set

Looks like this is the culprit

ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + i

sets list index i higher than it was, try + 1(one) instead

 

[Guest]

Dear Tom and Vacation´s Over:

You are both completely right in your comments. Thanks a 1.000.000!

Thanks to your comments I can get on with the work of copying to Powerpoint.

Martin

P.S. My holiday has indeed just ended and as you can see I can do with a
refresh course (grin)

"Tom Ogilvy" escribió: