Use this code:
Code:
Sub cond_copy()
'assuming the data is in page 1
Sheets("page 1").Select
rowcount = Cells(Cells.Rows.Count, "b").End(xlUp).Row
For i = 0 To rowcount
'assuming the true statment is in column a
Range("b" & j).Select
check_value = ActiveCell
If check_value = "True" Or check_value = "true" Then
ActiveCell.EntireRow.Copy
'assuming the data is in page 2
Sheets("page 2").Select
rowcount = Cells(Cells.Rows.Count, "b").End(xlUp).Row
Range("b" & rowcount + 0).Select
ActiveSheet.Paste
Sheets("page 1").Select
End If
Next
End Sub
Bookmarks