Microsoft Office Forums - View Single Post - [Solved] Copy Row based on yellow highlighting.

Catalin.B · 09-28-2011, 04:11 AM

Try this code:

Code:

Sub CopyRows()
Dim i As Integer, nextrow As Long

nextrow = Sheets("Sheet2").Range("A:A").End(xlUp).Row - 2
For i = 1 To 100

        If Sheets("Sheet1").Cells(i, 2).Value = "faculty" Then

       Sheets("Sheet1").Cells(i, 2).EntireRow.Copy Sheets("Sheet2").Range("A" & nextrow)
            

        End If
nextrow = nextrow + 1
    Next i
   
End Sub