How to end For loop If condition is met.

[Cummins]

Seems like there should be a way to goto Next if the empty cell condition is met but I can't find it.


For x = 1 To lastrow
Data = Str(F1.Cells(x, 1))
ActiveSheet.Cells(x, 1).Select
If IsEmpty(ActiveCell.Value) Then ????
If Data <> "0" Then Ary1(x, 1) = Data: g = g + 1
Next

 

[VoG]

Try

If IsEmpty(ActiveCell.Value) Then Exit For

 

[Gary McMaster]

Then Exit For

To answer your question as written.

Gary

 

[Cummins]

But that exits the loop. I only want to skip to the next test.

 

[Gary McMaster]

Then a label is what you really want?

For x = 1 To lastrow
Data = Str(F1.Cells(x, 1))
ActiveSheet.Cells(x, 1).Select
If IsEmpty(ActiveCell.Value) Then Goto SkipMe
If Data <> "0" Then Ary1(x, 1) = Data: g = g + 1

SkipMe:

Next

 

[Jonmo1]

But that exits the loop. I only want to skip to the next test.

Use Block If's instead of single liners...

Instead of
If expression Then Do Something

Try

If expression Then
    Do Something
    'What to do if expression is TRUE
Else
    Do something else, or nothing at all
    'What to do if expression is FALSE
End if

Hope that helps...


Please avoid spaghetti code caused by using goto statements.

 

[Scott Huish]

Just only do your code if the condition is met and then let the code flow automatically to the Next line. There is also no need to Select.

For X = 1 To lastrow
Data = Str(F1.Cells(X, 1))
If Cells(X, 1).Value <> "" Then
    If Data <> "0" Then
        Ary1(X, 1) = Data
        g = g + 1
    End If
End If
Next

 

[Cummins]

Thanks to all for the assistance. Just trying to learn the flexibility of the code outside of the "Text".
Much appreciated.