Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help!! Report Creation 1

Status
Not open for further replies.

gml

Technical User
Feb 17, 2003
1
US
I have a rather large worksheet that I filter on a regular basis. Filtering consists of autofiltering as well as hiding columns that I don't want to see. I would like to create a report based on the filtered data. That is I would like to take a "snapshot" of the filtered worksheet and output to a new workbook with the format left in tact.

Can anyone help??

Thanks,
Mark
 
gml,

On a quick try, highlight your filtered data then ctrl-c, go to new workbook ctrl-v. For the columns you'll have to delete them in new workbook.

HTH

regards,
longhair
 
You might also try the 'Paste Special' command. Select all you want to copy from the original sheet, CTRL+C, then open the new workbook, right click, select 'Paste Special'. From there you can select options (copy formulas, values, formats, borders, etc) and only that information will be copied.

HTH


Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!
 

sub MakeReport()
mPath = "\\RootDir\Folder1\Folder2\"
mName = "TestReport.xls"
Workbooks.Add
ActiveWorkbook.SaveAs mPath & mName
with thisworkbook.sheets("Sheet1")
.UsedRange.SpecialCells(xlCellTypeVisible).Copy destination:=ActiveWorkbook.Sheets(1).Range("a1")
End With
end sub

This will copy all filtered data to a new workbook - change sheet1 to be the name of your filtered sheet and change mPath and mName to suit

Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top