For loop...

  • Thread starter Alan L. Wagoner
  • 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
 
T

Trevor Shuttleworth

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
 
Top