Macro for copy/paste if ""

[adbrown21]

Good morning all, I am having troubles developing a macro that will check multiple sheets and then dump any qualifying data into a designated workbook on the next available line.
What I would like the button/macro to perform is :

On Sheets 1-31, IF column "AJ">2, copy the corresponding row and paste in workbook "SARC" on the next available line.

Thanks in advance

[arlu1201]

Do you need the sheetname / sheetnumber to be copied alongside the row to identify from which sheet the data has come?

[adbrown21]

No one of the columns carries this information.

Thanks

[arlu1201]

Try this

Please Login or Register  to view this content.

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

[adbrown21]

Arlette, thanks for the code, but I believe that I misspoke in my initial post.

I need a macro to check worksheets "1,2,3....31" IF anything in column "AJ" is>2, then copy and paste to worksheet "SARC" on the next available line.

When I tried your initial macro it occured a run time error.

[arlu1201]

What is the error you received? Which line was highlighted when you clicked on Debug on the error popup?

I have edited the code above to take care of the sheet names from 1 to 31.