For loop...

  • Thread starter Thread starter Alan L. Wagoner
  • Start date Start date
A

Alan L. Wagoner

Hello,
I have a single worksheet, with an unknown number of rows/columns.
Essentially, I would like to go through each non-empty line and based on a
value in any one of the columns, perform some action, like this
(pseudocode):

For i = 2 to (max number of rows) //if Ax (x=column) is empty/null, there
are no more 'records'
{
if Ci = 1
copy entire row i to Worksheet 2
if Ci = 2
copy entire row i to Worksheet 3
if (Ci = 3 AND Di = 4)
copy entire row i to Worksheet 4
else
copy entire row i to Worksheet 5
}

I'm missing something simple, but can't figure out what the easiest way to
loop through all records.

Any help would be appreciated.
Regards, Alan
 
Alan

this basic code will give you the loop framework you need:

Sub ProcessColumnC()
Dim LastRow As Long
Dim i As Long
LastRow = Range("C65536").End(xlUp).Row
For i = 1 To LastRow
'your code
MsgBox Range("C" & i)
Next
End Sub

Record the code for copying rows from one sheet to another and adjust as
necessary. If you've got a few options you're probably best using a Select
Case block on the cells (Range("C" & i))

Regards

Trevor
 
Back
Top