I have a data set of 500 rows with 11 columns of data but more rows will conatantly be added. I need a MACRO to look at the value in Column J and if that value is "Active" then I need to cut and paste that row into another sheet called "Active" in the first empty row. This MACRO will need be assigned to a button and run whenever the button is pressed.
Try this
Sub steffen On error resume next Do Sheets(1).Columns(10).Find("Active",,xlValues,xlWhole).EntireRow.Cut Destination:=Sheets("Active").Range("A60000").End(xlUp).Offset(1,0) Loop until err.number <> 0 End sub
Would I change the 1 by SHeets to the name of the first spreadsheet?Originally Posted by Steffen Thomsen
Try this
Sub steffen On error resume next Do Sheets(1).Columns(10).Find("Active",,xlValues,xlWhole).EntireRow.Cut Destination:=Sheets("Active").Range("A60000").End(xlUp).Offset(1,0) Loop until err.number <> 0 End sub
If the sheet is named 1 and it is not the first sheet in the workbook, you can change the line to. However, if it is the first sheet in the workbook, you can leave it as it is.sheets("1")
If I have helped, Don't forget to add to my reputation (click on the star below the post)
Don't forget to mark threads as "Solved" (Thread Tools->Mark thread as Solved)
Use code tags when posting your VBA code: [code] Your code here [/code]
you dont need to cahge anything if it's the first sheet you're running the macro on.
Alternatly you can write it like this
Sheets("your sheet name")
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Fferjay 
Register To Reply
Bookmarks