dropdown moves data to sheet2

[Bill the buddha]

I would like to have it setup so that when the sheet1 drop-down (column 'B') containing todo, in progress, complete, upon 'complete' selection it will auto move the data in that line to the next available line on sheet2 then the data on sheet one will "clear continence"

 

[My Aswer Is This]

Well your image came out looking like a mess.

You said:

I would like to have it setup so that when the sheet1 drop-down (column 'B') containing todo, in progress, complete, upon 'complete' selection it will auto move the data in that line to the next available line on sheet2 then the data on sheet one will "clear continence"

I want you to give me sheet names like this:

Sheet named "Master" and sheet named "Total"

Put the sheets name in quotations.

And the value you plan to put in column "B" in exact quotes like this:

"Apple"

Or "apple"



Then i will try and help you.
​

 

[Bill the buddha]

thanks MAIT,

so on the "Master" sheet I would like the drop down in column "B" having "Todo" "In Progress" and "Complete" upon selection of "complete" it will move the data in that line to the next available line on sheet "Completed"

I don't know why my images didn't show up... you are right it is a mess.

 

[My Aswer Is This]

Try this:

​

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 3-2-18 5:10 PM EST
If Target.Column = 2 And Target.Count = 1 And Target.Value <> "" Then
If Target.Value = "Complete" Then
Dim ans As Long
Dim Lastrow As Long
Lastrow = Sheets("Completed").Cells(Rows.Count, "B").End(xlUp).Row + 1
ans = Target.Row
Rows(ans).Copy Sheets("Completed").Rows(Lastrow)
End If
End If
End Sub

_{^{<strike>
</strike>}}​

 

[Bill the buddha]

BIG Thanks MAIT,

Sorry it took me a while, I was away for a few days.
It does copy the info to sheet "Completed" however it does not 'clear continence' of the line from sheet "Master" afterward. Is there a way to have it do that?

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 3-7-18 11:45 AM EST
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = 2 And Target.Count = 1 And Target.Value <> "" Then
Application.EnableEvents = False
If Target.Value = "Complete" Then
Dim ans As Long
Dim Lastrow As Long
Lastrow = Sheets("Completed").Cells(Rows.Count, "B").End(xlUp).Row + 1
ans = Target.Row
Rows(ans).Copy Sheets("Completed").Rows(Lastrow)
Rows(ans).ClearContents
End If
Application.EnableEvents = True
End If
End Sub

 

[Bill the buddha]

thank you again.
this will save me a lot of time.
Namaste.

 

[My Aswer Is This]

thank you again.
this will save me a lot of time.
Namaste.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.