I used the other code provided and it worked perfect. I am still goin
to try your code also and see how it works out. Thanks to both of you!

Tom Ogilvy Wrote:
Sub copyData
Dim rng as Range, lRow as Long
With .Columns("D:J")
set rng = .find(84022)
if not rng is nothing then
lRow = rng.row
do
rng.EntireRow.copy Destination:= _
worksheets("Sheet2").Cells(rows.count,1).End(xlup) (2)
set rng = .FindNext(rng)
Loop while rng.row < lRow
End with

End Sub



"busspeed" wrote in message
...

I have a problem and am not very familiar with VBA.
What I need to do is check a row of data one at a time (there ar
about
3000 total rows) looking for a class number (the class numbers ar
in
different columns within the row). When I find that class numbe
within
the row I need to *copy* the row to another sheet. I am simply tryin
to
grab all of the students in certain classes and paste them o
another
sheet.

Here is a sample of the data:
Adams gadams21 041184 84022 84260
Adams hadams4 111591 83772
Adams dadams25 041645 84020 84282
Adams madams3 082981 83969
Adams sadams9 120369 81838 84025 86460

The first column is last name (yes, I have changed the data...non
of
it is sensitive).
The second column is user name.
3rd column is birthday.
Remaining columns are classes they are in (can vary; some can be i
5
classes, some in 1).

Any help would be greatly appreciated.

Thanks,

busspeed


--
busspeed

------------------------------------------------------------------------
busspeed's Profile:
http://www.excelforum.com/member.php...o&userid=14829
View this thread
http://www.excelforum.com/showthread...hreadid=264630


--
busspee
-----------------------------------------------------------------------
busspeed's Profile: http://www.excelforum.com/member.php...fo&userid=1482
View this thread: http://www.excelforum.com/showthread.php?threadid=26463