listi.net

Process multiple rows in a sheet - For Loop

Loops

For

Goto

Other

Skipping hidden or filtered rows

Do While

For i = 1 to r

For each  obj in collection

Get the last row

r = FindLastRow(2)

Skip data

If sEpic = "ul" or sEpic & "" = "" then
   Goto Skip_it
end if

....code

skip_it:

Loop through an array

for i = LBound(aLabels) to UBound(aLabels)
    sItem = aLabels(i)
    'check sItem
    if sItem = "some value" then
      bFound = True
      exit for
    end if
Next

Process spreadsheet data
i = GetNexRow()
Do While Activecell <> ""
  if Cells(i, 14) = "TBD" then
     'skip
  else
    sList = Cells(i, 14) & "," & sList
  end if
  i = GetNextRow()

Loop

GetNexRow