Copy filtered data, not header

**melbri** · 12-07-2010, 02:23 PM

I am using the following code to copy filtered data ONLY from 6 worksheets and paste the data to a new worksheet. It works fine, except when there is no data. When there is no data, the code copies cell A1 from the header. i do not want the header copied.

If there is a way to clean up the code, that would be helpful as well.

Please Login or Register  to view this content.

**JBeaucaire** · 12-07-2010, 03:54 PM

Like so:

Please Login or Register  to view this content.

**melbri** · 12-07-2010, 04:04 PM

The following from your code gets highlight as an error,

Please Login or Register  to view this content.

I don't fully understand the code, all the worksheets (FLR", "PLC", "KWT", "KRP", "SWS", "KTO) are in one workbook. Sounds like the code is referenceing different workbooks, probably wrong, but thought I'd mention it.

**JBeaucaire** · 12-07-2010, 04:12 PM

That line of code means: "go through this list of worksheets one at a time". So it is referencing sheets in the activeworkbook.

Are you getting a subscript out of range error? Check the spelling of the sheets I listed in that array. Either it's spelled wrong in the macro or in the sheet tab.

If you continue to have issues, click GO ADVANCED and use the paperclip icon to post up a desensitized copy of your workbook.

**melbri** · 12-07-2010, 04:23 PM

OK, I re-wrote the names of the sheets in the ordeer they appear, not sure if that was the problem or not, but it seem to get past it. I now get a run time error 1004 - No cells were found and this bit of code highlighted.

Please Login or Register  to view this content.

**JBeaucaire** · 12-07-2010, 04:53 PM

1) The order the sheets exist in the workbook is irrelevant, the array is addressing them by name so it can find them wherever they may be. Whatever you did with the sheets fixed the spelling errors is most likely what occurred, or the wrong workbook was "active" when you tested... I do that a lot.

2) When that error occurs, what is the value of LR? What is the actual LR of visible data on the current ws being parsed?

Click DEBUG
Press Ctrl-G to open the Immediate window
Enter these commands:

? ws.Name

? LR

No chance I can look at what you're looking at?

**melbri** · 12-07-2010, 05:01 PM

For " ? ws.Name" I get KWT and for "? LR" I get 847.

On this ws, there is 847 rows of data, all of which are filtered out at this time.

UPDATE: I now have data in KWT and the macro works great. For some reason, it does not like KWT with no data, even though SWS, KTO and KRP have no data.

**JBeaucaire** · 12-07-2010, 05:09 PM

Ok, let's change the method of LR discovery. Is column A a good option? Is row 1 a good option for LC? It's always visible, right?

Please Login or Register  to view this content.

**melbri** · 12-07-2010, 05:52 PM

Your first bit of code seems to work fine, but the second works only if there is data. If the filter does not have any data, the code does notlike it.

I attempted to do a ws similar to what I am working wit, but both sets of code worked on it. Maybe it has to do with that I am pulling the data from sharepoint.

**JBeaucaire** · 12-07-2010, 07:22 PM

Maybe it has to do with that I am pulling the data from sharepoint.

Maybe. If you want me to look at a sample workbook in the state it is in right before you run the macro, I can do that. Click GO ADVANCED and use the paperclip icon to post up a desensitized copy of your workbook.