For next loop is not working

[Melkor]

Hi guys,

I'm trying to use for next loop, on button click it should check the value from the cell R2, and according to the value of the cell to show the next value from the list in column O in label. Bellow you can find the loop which I used, but it's showing the value from the list in column O. Also when the loop reach the last value from the list it should start from the first value from the list again.

Can you please help me with this?

Private Sub nextButton_Click()
Dim brojPolja As Long

Worksheets("Sheet1").Cells(2, 18).Value = imeLabel.Caption
brojPolja = Sheet1.Cells(Rows.Count, 15).End(xlUp).Row
For i = 2 To brojPolja
   imeLabel.Caption = Worksheets("Sheet1").Cells(i, "O").Value
Next

End Sub

 

[offthelip]

I think I have understood what you want so try this:

Private Sub nextButton_Click()
Dim brojPolja As Long

Worksheets("Sheet1").Cells(2, 18).Value = imeLabel.Caption
brojPolja = Sheet1.Cells(Rows.Count, 15).End(xlUp).Row
For i = 2 To brojPolja
 If Worksheets("Sheet1").Cells(i, "O").Value = imeLabel.Caption Then   ' check if the label is the same as O row
   If i < brojPolja Then   ' check if at the end of list
   imeLabel.Caption = Worksheets("Sheet1").Cells(i + 1, "O").Value
   Else
   imeLabel.Caption = Worksheets("Sheet1").Cells(2, "O").Value   ' start again at beggining
   End If
 End If
Next

End Sub

 

[Melkor]

Hi, thank you for the answer, I have tried that but it's showing just the first result from the column, and it's stuck there :/

 

[offthelip]

Sorry my mistake I left one line out!!
try this:

Private Sub nextButton_Click()
Dim brojPolja As Long

Worksheets("Sheet1").Cells(2, 18).Value = imeLabel.Caption
brojPolja = Sheet1.Cells(Rows.Count, 15).End(xlUp).Row
For i = 2 To brojPolja
 If Worksheets("Sheet1").Cells(i, "O").Value = imeLabel.Caption Then   ' check if the label is the same as O row
   If i < brojPolja Then   ' check if at the end of list
   imeLabel.Caption = Worksheets("Sheet1").Cells(i + 1, "O").Value
   Else
   imeLabel.Caption = Worksheets("Sheet1").Cells(2, "O").Value   ' start again at beggining
   End If
   Exit For   ' add this line
 End If
Next
End Sub

 

[Melkor]

It's alive \o/ thank you so much