Copying text to different sheets based on criteria

 Ronster444 -
I have a large speradsheet that records activity. I want to copy a row of items from one sheet to another if the status is 'done'.

The if status = done " " does not work

can anyone help?

1 reply

Registration date
Thursday July 2, 2015
Last seen
July 2, 2015

Hello try to make this simple macro:
Sub copyDone()
Set i = Sheets("Sheet1")
Set done = Sheets("done")

Dim d
Dim j
d = 1
j = 2
Do Until IsEmpty(i.Range("B" & j))

If i.Range("B" & j) = "Done" Then
d = d + 1
done.Rows(d).Value = i.Rows(j).Value

End If
j = j + 1
Sorry this does not work. I need the macro to look at 8 sheets of data in the workbook and only copy across those that have a status of "Done".

Any other ideas, although maybe I didn't run the macro properly - have never done that before.