Copy/Paste

[DeCaelo]

I have 2 columns of data in Sheet 1.

In A is some simple text data.
In B is either "OK" or "NOT OK".

I'm guessing it's a sort of macro I need, where if, say B5 in Sheet1 is "NOT OK", then A5 is copied and posted into A1 of Sheet2 and a 1 put into B1 of Sheet2.

I'm just not entirely sure how to proceed.

 

[Tuelor]

I would apply an advanced filter, and record a macro doing it if you need to automte it.

D

 

[Dryver14]

This assumes a header in row 1 on sheet2 and you are on sheet1

Sub MoveOver()
'Kevin Wilson
'23/03/11
Dim NextRow As Long
Dim FinalRow As Long
Dim i As Long
FinalRow = Cells(Rows.Count, 2).End(xlUp).Row
NextRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheet1.Cells(1, 2).Select
For i = 1 To FinalRow
    If Cells(i, 2).Value = "NOT OK" Then
        Sheet2.Cells(NextRow, 1).Value = Sheet1.Cells(i, 1)
        Sheet2.Cells(NextRow, 2).Value = 1
        NextRow = NextRow + 1
    End If
Next i
End Sub