when condition is true, move row to end of different sheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

would be grateful if anyone can help
i have a list of orders and if i type complete (or something) in a cell i
want the whole row to be moved to the end of another sheet
 
Gran said:
would be grateful if anyone can help
i have a list of orders and if i type complete (or something) in a cell i
want the whole row to be moved to the end of another sheet
Click to expand...


private sub worksheet_change(ByVal Target As Excel.Range)
columnt = target.column
rowt = trim(str(target.row))
if columnt = 17 then goto moverow'say this is the column you type 'complete'
in
exit sub
moverow:
rows(rowt).cut
sheet2.activate 'this being the sheet you want to move it to
rowtomoveto = str(trim(sheet2.usedrange.rows.count +1))
rows(rowtomoveto).select
activesheet.paste
sheet1.activate 'Return you to your original sheet
end sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run two macros for two different sheets 11
if condition true then move a whole row to another sheet 1
DREAM FEATURE: A macro that moves a row but asks me where to move it 18
Move row to another location on sheet 4
My Never ending ARRAY code problems 18
Insert Row also adds formulas and moves cursor 2
Move Flagged Row(s) to a Different Sheet 8
Stay on Active Sheet 2

Back
Top