Cut-paste row to sheet2 if columnvalue is met

Solved/Closed

Trowa - Feb 22, 2010 at 08:54 AM
rizvisa1 Posts 4479 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Feb 25, 2010 at 08:48 AM

Hello,

I have got 2 sheets. Sheet1 contains a list of assignments, in which column B contains the status of those assignments. Sheet2 contains completed assignments.

Now I would like to check sheet1's column B for the word "Completed", when found, cut the entire row and paste it to sheet2.

Both sheet1 and sheet2 contains headers in the first row.

Could someone provide a VB code for this task?

Thanks in advance,
Trowa

Cut-paste row to sheet2 if columnvalue is met
Copy paste rows in Excel across worksheets ✓ - Forum - Excel
Count rows from sheet2 and place on sheet1 ✓ - Forum - Excel
Macro that copy/pastes rows based on a certain condition on SAME sheet. ✓ - Forum - Excel
Vba to copy and paste rows if condition is met ✓ - Forum - Excel
Copy Row if condition is met - Forum - Office Software

1 reply

Answer 1 / 1

rizvisa1 Posts 4479 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 768
Feb 22, 2010 at 10:08 AM

See this

https://ccm.net/forum/affich-258056-excel-2007-if-then-select-row-and-move-qu

Trowa
Feb 25, 2010 at 08:44 AM

Oke, thanks rizvisa1.

Not exactly what I was looking for, but it gave me an idea of how to write my own code.

So thanks for your reply, issue solved.

Best regards,
Trowa

rizvisa1 Posts 4479 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 768 > Trowa
Feb 25, 2010 at 08:48 AM

Trowa
I think all you would have to change is sheet names and this line

Selection.AutoFilter Field:=19, Criteria1:="=" & 1, Operator:=xlAnd

to

Selection.AutoFilter Field:=2, Criteria1:="=Completed", Operator:=xlAnd

Subscribe To Our Newsletter!