VBA code to move row if P6:P29 equal text "Complete"

**Mr.Castle** · 01-01-2020, 04:05 PM

From B6:P29 i have a range of cells with text and numbers. I need a vba code to if any cell P6:P29 equal text "Complete" then its related row B:P will automatically go to B58:P58.

Example

B4: price C4: date D4: 0 E4: 0 F4: 0 G4: 0 H4: boat I4: 0 J4: car K4: 0 L4: 0 M4: 0 N4: 0 O4: 0 P4: Complete
B5:
B6:

P4 was "Complete" then row B4:P4 will be moved to B58:P58.
Before:
B58: C58: D58: E58: F58: G58: H58: I58: J58: K58: L58: M58: N58: O58: P58:

After:
B58: price C58: date D58: 0 E58: 0 F58: 0 G58: 0 H58: boat I58: 0 J58: car K58: 0 L58: 0 M58: 0 N58: 0 O58: 0 P58: Complete

**alansidman** · 01-01-2020, 04:16 PM

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

**Mr.Castle** · 01-01-2020, 04:37 PM

I attached a sample worbook.

**alansidman** · 01-01-2020, 05:00 PM

Please Login or Register  to view this content.

Assumes that Row 58 is the last row. You may need to clean up your workbook as when I initially ran this it came us with row 78 as your last. I deleted 59 - 78 and then ran it and it was all ok.

**Mr.Castle** · 01-01-2020, 05:12 PM

I deleted 59 - 78 also , but for some reason its moving below 58.

**Mr.Castle** · 01-01-2020, 05:22 PM

Thank you alansidman the code is working well.

**Mr.Castle** · 01-01-2020, 08:21 PM

alansidman Is it possible instead of moving only to row 58 to move to the last empty rows from B52:P58 , so it would be possible to move multiple rows "complete" at the same time?

**alansidman** · 01-01-2020, 11:36 PM

the line

Please Login or Register  to view this content.

determines the last row. Set data in A51 and nothing after that will do what you want.

**sintek** · 01-02-2020, 02:59 AM

to move to the last empty rows from B52:P58 , so it would be possible to move multiple rows "complete" at the same time?

Perhaps...

Please Login or Register  to view this content.

**Mr.Castle** · 01-02-2020, 03:23 PM

Hi Sintek ,
I Tried your code.
Date to complete moved to E instead of J and Status moved to G instead of P.

**sintek** · 01-03-2020, 12:44 AM

Works for your uploaded sample...Anything change?
EDIT...

My bad... Had to unhide all your columns then run code

**Mr.Castle** · 01-03-2020, 04:49 PM

Hi sintek after unhiden all the cells the code worked , but if there no "Complete" in J6:J29 it shows no cells available, and erases part of the page. Its possible to ignore "Complete" from J6:J29 if there isn´t any?

**sintek** · 01-04-2020, 02:12 AM

but if there no "Complete" in J6:J29

Do you mean in P6:P29

and erases part of the page

Please clarify

Please Login or Register  to view this content.

**sintek** · 01-04-2020, 05:47 AM

.......................deleted......................

**PCI** · 01-04-2020, 12:23 PM

What about empty rows : e.g. row 6
formulas in column A needs to be updated for pasted rows ?

**Mr.Castle** · 01-04-2020, 07:39 PM

Sintek the code is working perfectly.

Thank you

VBA code to move row if P6:P29 equal text "Complete"

LinkBack

Thread Tools

Rate This Thread

Display

VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Re: VBA code to move row if P6:P29 equal text "Complete"

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] SUM of positive values if text is equal to "textA" and "textB" - too few arguments

Google Sheets - Move Row with "Complete" to a new sheet within the same workbook

Formula to move row to new tab if Column D contains text "complete"

[SOLVED] Code that copies row of data to another sheet based on text "Complete"/"Delete"

NEED HELP! Code that copies row of data to another sheet based on text "Complete"/"Delete"

[SOLVED] Delete Rows if a cell does not equal "Finished" or "Complete"

[SOLVED] If there is any text in column "A$" on "sheet1" then move cell to column "A$" on "sheet2"

Bookmarks

Bookmarks

Posting Permissions