Automatically Cut Data and Paste to Different Sheet???

  • Thread starter Thread starter D
  • Start date Start date
D

D

Hey guys-
You have all been soo wonderful about helping me out on the other issues- I
decided to throw this one at you...

I have searched newsgroups, this forum, etc, and see references to this, but
not to do exactly as I need done. So maybe someone can throw me in the right
direction here...

I have a column of numeric values. IF the cell value is negative or less
than zero, I want the entire ROW that it sits on cut and pasted onto the
worksheet named 'Check Status' within the same file. This row(s) would be
pasted to the first available row on that sheet. I would like this all done
automatically. How do I do this?
Thank you soo much in advance!
D
 
something like should work. I spelled it out so you get the idea
x=sheets("sourcesheet").cells(rows.count,"a").end(xlup).row
for each c in sheets("sourcesheet").range(cells(2,"a"),cells(x,"g"))
y=sheets("destinationsheet").cells(rows.count,"a").end(xlup).row+1
if c<0 then c.entirerow.cut sheets("destinationsheet").cells(y,"a")
next
 
Back
Top