ComboBox auto next Items with time

**johan12** · 04-15-2013, 02:05 PM

Hello I have this Code for Auto Next Item in ComboBox, sometimes I need to swear Repeat 10 times this code, but sometimes with more than 10 times, and to do this should make 10 times Past the same coding, or if I need them with little I have to delete one by one code.

Is there any chance that repeated code as many times as is the Value of textbox 1, example if Textbox1.Value is "7" Times, code is repeated 7 times


Private Sub CommandButton10_Click()

Dim idx As Long
idx = ComboBox3.ListIndex
If idx <> ComboBox3.ListCount - 1 Then
ComboBox3.ListIndex = idx + 1
Else
ComboBox3.ListIndex = 0
End If

Application.Wait (Now + TimeValue("0:00:5"))


idx = ComboBox3.ListIndex
If idx <> ComboBox3.ListCount - 1 Then
ComboBox3.ListIndex = idx + 1
Else
ComboBox3.ListIndex = 0
End If

Application.Wait (Now + TimeValue("0:00:5"))

idx = ComboBox3.ListIndex
If idx <> ComboBox3.ListCount - 1 Then
ComboBox3.ListIndex = idx + 1
Else
ComboBox3.ListIndex = 0
End If

Application.Wait (Now + TimeValue("0:00:5"))

idx = ComboBox3.ListIndex
If idx <> ComboBox3.ListCount - 1 Then
ComboBox3.ListIndex = idx + 1
Else
ComboBox3.ListIndex = 0
End If

Application.Wait (Now + TimeValue("0:00:5"))

End Sub

**AlphaFrog** · 04-15-2013, 02:35 PM

Try something like this...

Private Sub CommandButton10_Click()
    
    Dim i    As Long
    
    For i = 1 To TextBox1.Value
    
        With ComboBox3
            If .ListIndex = .ListCount - 1 Then
                .ListIndex = 0
            Else
                .ListIndex = .ListIndex + 1
            End If
        End With
        
        Me.Repaint
        Application.Wait (Now + TimeValue("0:00:5"))
        
    Next i
    
End Sub