Code not working

[Burt_100]

Hi,
Can anyone tell me why the below code is not working, i am looking to move a row from Sheet "Reminders" to sheet "Completed" if "D51", "D54", "D55", "D56", "D58" is placed in columns M2:W but it doesnt work when I run it, I have attached the worksheet with the data in it and have named the required macro "Completed".
Any help would be greatly appreciated.
Thanks in advance
Johnny

Please Login or Register  to view this content.

[xlnitwit]

Hi,

You might try this version

Please Login or Register  to view this content.

It is best to keep deletions to a minimum but, if you did need to delete a row at a time, you should loop backwards through the data so as to avoid skipping rows as they move up. Additionally, your version of the code was using column A to find the next row to write to but column A is blank in your example and therefore the rows keep overwriting the same location.

[Norie]

You have no values in column A so the row you are copying will always goto the first row on 'Completed'.

Try either using a different column to determine the destination, or set the destination at the start and whenever you find a match move it down a row.

Here's an example of the 2nd suggestion.

Please Login or Register  to view this content.