Copying whole rows to different sheet once found
Count = 6
Sheets("Classroom Attendance This Week").Select
Range("e6").Select
If ActiveCell.Value = "T" Then Return 'Exit Sub
While ActiveCell.Value < "T"
ActiveCell.Offset(1, 0).Activate
Count = Count + 1
Wend
It's easy enough to find the first one of the (T)oddlers but I need to copy
the whole row to another sheet automatically. Plus I need to find all the "T"
in the 297 rows and preferrably copy all the rows at once without blanks
between rows.
Help would be good.
|