Move entire row to another worksheet based on cell value

I would like them to be moved to the other worksheet and then be deleted from the current pipeline. When they are added to the booked or dnmq workbook, can we have them be automatically placed on the next open row?

Basically if I select Booked then they will move to booked worksheet on the next free row.
If i select DNMQ then they will move to DNMQ worksheet on the next free row.

Hope this helps and thanks for your help!

Thanks for your help. Is there a way to have once the status gets changed to booked or dnmq for it to delete from the current pipeline sheet? It moves over perfectly!

Originally Posted by stanleydgromjr

bdf0827,

Thanks for the workbook.


Detach/open workbook Worksheet_Change Event wC colD wB wD bdf0827 - EF790860 - SDG12.xlsm and make changes to the DataValidation cells in worksheet Current in range D7:D26.

Then check the other two worksheets.



If you want to use the macro on another workbook:


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Select the worksheet in which your code is to run, worksheet Current
3. Right click on the sheet tab and choose View Code, to open the Visual Basic Editor
4. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel

Please Login or Register  to view this content.

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then make changes to the DataValidation cells in worksheet Current in range D7:D26.

Then check the other two worksheets.

Oh and I forgot also, do you know if once it deletes from the current pipeline worksheet if the rows can be moved up so there is no blank row?

Originally Posted by stanleydgromjr

bdf0827,

Thanks for the workbook.


Detach/open workbook Worksheet_Change Event wC colD wB wD bdf0827 - EF790860 - SDG12.xlsm and make changes to the DataValidation cells in worksheet Current in range D7:D26.

Then check the other two worksheets.



If you want to use the macro on another workbook:


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Select the worksheet in which your code is to run, worksheet Current
3. Right click on the sheet tab and choose View Code, to open the Visual Basic Editor
4. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel

Please Login or Register  to view this content.

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then make changes to the DataValidation cells in worksheet Current in range D7:D26.

Then check the other two worksheets.

Works perfectly, thank you a million times for your help!!!!

Originally Posted by stanleydgromjr

bdf0827,

Thanks for the workbook.


Detach/open workbook Worksheet_Change Event wC colD wB wD bdf0827 - EF790860 - SDG12.xlsm and make changes to the DataValidation cells in worksheet Current in range D7:D26.

Then check the other two worksheets.



If you want to use the macro on another workbook:


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Select the worksheet in which your code is to run, worksheet Current
3. Right click on the sheet tab and choose View Code, to open the Visual Basic Editor
4. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel

Please Login or Register  to view this content.

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then make changes to the DataValidation cells in worksheet Current in range D7:D26.

Then check the other two worksheets.

Originally Posted by gjlindn

Rolls data up to fill empty row

Please Login or Register  to view this content.

I'm trying to figure out how to mark this as solved. I've tried clicking all around.

The minor changes somehow messed up the coding and I don't know which item did it.

Originally Posted by gjlindn

Formula updates.

The DNMQ works fine, but the booked moves them below the totals for some reason. Any ideas?

Originally Posted by stanleydgromjr

bdf0827,

Per your latest request "after copying the Target.Row, delete the Target.Row".


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Select the worksheet in which your code is to run, worksheet Current
3. Right click on the sheet tab and choose View Code, to open the Visual Basic Editor
4. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel

Please Login or Register  to view this content.

If you are satisfied with the solution(s) provided, please mark your thread as Solved by clicking EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.

Can someone please help before I lose my sanity.

I have the following code which works perfectly, but how do I extend it to move items marked "O" to the "Ordered" worksheet?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

On Error GoTo ErrHnd

If Target.Column = 12 And UCase(Target.Text) = "D" Then
Dim rngCell As Range
Dim rngDest As Range
Dim strRowAddr As String


strRowAddr = Target.Address


Set rngDest = Worksheets("Dead"). _
Range("A" & CStr(Application.Rows.Count)).End(xlUp).Offset(1, 0)


Target.EntireRow.Cut Destination:=rngDest

Application.CutCopyMode = False

Worksheets("Input Sheet").Range(strRowAddr).EntireRow.Delete _
Shift:=xlUp
End If
Application.EnableEvents = True
Exit Sub


ErrHnd:
Err.Clear
Application.EnableEvents = True
End Sub

Intern Master List2.xlsmI am trying to do something very similar and I am following all the steps and it's not working. I have attached my spreadsheet. I already have the drop down lists done in tab "Non Tech", but basically if someone selects "NO" from Column G or Column K, I want that row to be removed from the "Non Tech" tab and pasted in the "Rejected" tab. Can someone please give me the code for this?

Thanks!!!!!!!!

Hi,
I have have a similar issue as to this one above, and would like to know how you solved this..

I have a spreadsheet to record outstanding orders in a MAIN sheet, once a order is "placed", I'd like that row to move to the sheet called eg."AB Suppliers" and be deleted out of the main sheet. Further more I have an "RECON AB Suppliers" sheet, everything that is placed in "AB Suppliers" will calculated per month end due in the "RECON AB Suppliers" sheet..
Therefore, I can add new sales in the MAIN sheet, and just select "placed" when done, and everything else will be in place, and at the end of the month I can see what I placed with AB Suppliers and what is due for that specific month...

I need help on making this sheet happen ... I understand excel and formulas very well, have not experimented with Macro or VBA before...

Hi Arlette,

Sorry bout that,

How do I create a new thread?

I would appreciate some help on the same topic.
I would like to move rows that have been marked as In-Active (column 14) to a new sheet called "Archive"
Tried to copy the code into the sheet but have some problems in getting it to work.
Please have a look at the attached file.

Thank you!