Select and move row from one sheet to another
Hello all, I've seen this done. How can I select a row(s) in QuoteLog and then use a button or an "X" or some designation to then cut the row and move to Archive. See attached.
I want it to be as easy as possible. So it can have a Button or just put an X in Column A or Highlight whatever.
HELP PLEASE. Thank you in advance
Jill
You could use a double click or a right click
Which do you prefer?
Last edited by mehmetcik; 12-15-2014 at 11:52 AM.
Did you complete the file? I downloaded the file called Quote-Log4 but doesn't seem to do anything
Right click? sound good
Okay got the file - I see it is working. Where can I change it to double click instead of right click. Thank you for the quick reply
Modified
1. You used Option explicit
2. Will not copy rows with 2 or more empty cells
3. Rightclick menu disabled
Did you read my amendment?
It will not work on an empty row
Nor will it work on rows 1 or 2
This version works with a double click.
Right click on the sheet name at the bottom of excel to view the code
Last edited by mehmetcik; 12-15-2014 at 12:15 PM.
Ah, yes, I see it now. Many thanks for the help.
Sorry, your code works great but my user wants to put an X in Column A to move the items. Right click and double click confuses them.. I know.. just saying. How to modify?
LMAO.
Not a problem
That is a change event,
you have an existing change event so we insert a line in that to start our new macro.
You could have all three options enabled you know.
Last edited by mehmetcik; 12-15-2014 at 01:14 PM.
Re: Select and move row from one sheet to another
Thank you for this. I'm sorry but I wasn't clear. See attached. They want to select the rows then hit a button to move them to Archive tab. Whatever suggestion you have to accomplish this is great. I figured put an X in Column A then execute using the button.
Does that make sense?
Hi jcmckeon!
Click on a yellow cell in column A, and the * button down here, if you like the solution.
Pan314
Sub Move() Sheets("QuoteLog").Select Application.ScreenUpdating = False Application.EnableEvents = False On Error GoTo ErrorTrap Searcher: Columns("A:A").Select Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate ActiveCell.EntireRow.Select Selection.Copy Sheets("Archive").Select Rows(3).Select Selection.Insert Shift:=xlDown Range("A3").Value = "" Sheets("QuoteLog").Select Selection.Delete Shift:=xlUp GoTo Searcher ErrorTrap: On Error GoTo 0 Range("A" & ActiveCell.Row).Select Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Last edited by mehmetcik; 12-15-2014 at 06:37 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
jcmckeon 
Register To Reply
Bookmarks