Macro to move entire row of the highlighted cell

[wenyusa]

Hello,

I have a sheet which I would like to create a button which will move an entire row to a different sheet in the same workbook. It should move the entire row of which the cell is highlighted.

For example: Cell A5 is selected. All of row 5 should be cut from the worksheet and pasted into a new worksheet once I click the button. If I highlight Cell B7, all of row 7 should move once I click the button.

Once I have the code, I know how to assign it to a button. I just don't know how to write the code.

I am new to macros. I can read a lot of it and do a little bit of troubleshooting but have a tough time writing my own. Any help would be greatly appreciated!

Thanks!

 

[VoG]

Try

Sub test()
ActiveCell.EntireRow.Copy
Sheets.Add after:=Sheets(Sheets.Count)
Range("A1").PasteSpecial Paste:=xlPasteAll
End Sub

 

[wenyusa]

This code creates a new sheet every time I run the Macro. Also, It just copys the row and requires me to hit enter for it to paste it in the new sheet. After I hit enter, I need to go back and delete the old row.

What I need is a way for it to Cut the row in the Break-Fix sheet and paste it into the Closed sheet automatically with the hit of the button.

 

[VoG]

That makes it a bit simpler

Sub test()
ActiveCell.EntireRow.Cut Destination:=Sheets("Closed").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

 

[wenyusa]

That is perfect! Does exactly what is necessary!

I have one extra thing to add now that I didn't think of. Is it possible to also change the color of the row. This way once you click the button, it changes the color of the row, then cuts and pastes into the closed sheet?

I want the color to be grey. Below are the RGB #s:
Red:191
Green:191
Blue:191

 

[VoG]

Try

Sub test()
With ActiveCell.EntireRow
    .Interior.Color = RGB(191, 191, 191)
    .Cut Destination:=Sheets("Closed").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub

 

[wenyusa]

Wow! Thank you so much! Perfect!

 

[Norm01]

If I can ask one more thing on this I would like this to work when the word "DONE" is entered in the cell run this macro and go back and delete the empty line on the first page...Can that be done?