Transferring Rows Across Worksheets

I've been struggling with this one for a few days now. I have three worksheets. The first is an initial list, the second is an active list, and the third is a final list. I want to create a button or some function on each row so that when it is clicked, the row will automatically move over to the first empy row in the next sheet. Any ideas? Thank you.

Hi, This requires just one Button, when clicked, an "Input box" appears, and you Select the row for moving.
Click OK and the row is "Cut" and pasted into the next sheet.
You will have to copy this code for the other sheets as required.
make sure your "sheet name" is the same as the "sheet name" in the code.
If you want to "Copy" not "Cut" change the code to suit

Dim Rng As Range, Rw As Integer
On Error Resume Next
Set Rng = Application.InputBox(prompt:="Please Select Row", Title:="Transfer Data", Type:=8)
 
   Rw = Sheets("active list").Range("A" & Rows.Count).End(xlUp).Row + 1
       
       Rng.EntireRow.Cut Sheets("active list").Range("A" & Rw)

Regards Mick

Mick,

Thanks so much for responding. I'm just confused as to where I put this code in. I have the tool box open to create a button. What is my next step? Thank you.

Hi, Have a read of this :-

Inserting a Command Button in a worksheet and Allocating Code

Open your workbook at the Sheet Number with your Data that you want to Manipulate.
Click View, Toolbars, Control ToolBox,---- Control ToolBox Menu Appears on sheet.
Slide you cursor over the Tool Box (Tool Tip Text) until you find a Command Button.
Click It then click Somewhere on the sheet.-- Command Button appears on sheet.
The Command Button will have handles round its edge, This is so you can Position it on the sheet.
Click the command Button "Hold the Mouse Click Down" and Drag the Command Button to where you want it.
Double Click the Command Button, The VB Editor window will appear.
You can also open the Editor By clicking Alt + F11, but if you double click the Command Button the editor will open in the procedure relating specifically to your Command Button.
If the VB Editor window has two panes the right pane is where you must paste your code.
The left pane can be "Project Window" or "Properties Window, Click (Ctrl+R) if not showing.

Paste your code just under the words "Private Sub CommandButton1_Click() " in the Right hand pane.
If you have done this correctly. Scroll to the bottom of the code and you should see the words "End Sub"
On the VB Window, Toolbar you will see a Green Triangular shapes icon,.
This is to change the VB Editor mode from "Run Mode" to "Design Mode "
Click this Icon, The Small blue square to its left will change from light blue to dark blue, or Vice Versa. Before you close the Editor make sure this Square is "Dark Blue" i.e. (Reset)
Sometimes the it will appear Reset when it is not, that why I usually put a message at the bottom of the code, to know if is run or not.(Not in this Case, see below)
Close the Editor. Select the Command Button and Click it.
When the code Runs the Msgbox should appear With The Message "Transfer Complete" ,if this doesn't happen Open The VB Editor "Alt + F11" and click the "Reset ( Blue Square) and or The "Green Triangle" on the Tool bar . The Blue Square should be "Dark Blue ", in order to run the code..
NB:- If you want to get back into this specific code through the Command Button.
Get the Controls ToolBox menu back on the screen, Click the green triangle, When you slide the cursor over your Command button , The cursor shape will change to a "Arrow Headed Cross" , you will then be able to double click it to view your code.
If you prefer, you can forgo all this hassle by putting the code in an MT macro, with a key combination like (Ctrl+"A") to run it.
If you still get a problem , call back
Regards Mick

Mick-

I have followed those instructions. I'm not getting the "Transfer Complete" though. The reset button is either highlighted or not, so I'm not sure what "dark blue" is. I'm guessing I must have done something wrong because when I click the command button, it gives me a window titled "Transfer Row" and then "Please Select a Row." When I highlight a row and press ok, nothing happens. Thoughts? Thanks so much for your help.

Sorry Editing problems !!!