How to skip to Next in a for loop if a condition is met?

[Cummins]

If the cell is empty, I would like to continue on through the loop without performing any other tests...


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]

Duplicate of http://www.mrexcel.com/forum/showthread.php?t=567387

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).

 

[Smitty]

Welcome to the Board!

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

Does this do what you're after?