Hi guys bear with me!!!!

[Cobbcouk]

Hi,
I will try and explain as best I can. I have a speadsheet that is more akin to a database table. It is quite large and has been designed for 2000 records (rows). It has an autofilter on the top row which is used to sort records for information purposes. The spreadsheet is basically your standard employee database with staff numbers, names, addresses, and other work type info.

Here is what I want to do. I would like to be able to use a macro so that at a touch of a button a sheet pops out the printer with the info I want. I have a format for the info to go into and I can do all the other bits however; I do not know how to only copy ONLY the filtered cells containing text. Because there is no standard amount of rows I end up with 180+ pages of blank poping out of the printer.

Is ther some way so that when I use a filter or custom view/sort, I can copy only certain columns of info and only the rows that contain information.

I am sorry if I have not explained this very well but I would be grateful for and help.

Regards

G

[Francois via OfficeKB.com]

Cobbcouk wrote:
>Hi,
>I will try and explain as best I can. I have a speadsheet that is mor
>akin to a database table. It is quite large and has been designed fo
>2000 records (rows). It has an autofilter on the top row which is use
>to sort records for information purposes. The spreadsheet is basicall
>your standard employee database with staff numbers, names, addresses
>and other work type info.
>
>Here is what I want to do. I would like to be able to use a macro s
>that at a touch of a button a sheet pops out the printer with the inf
>I want. I have a format for the info to go into and I can do all th
>other bits however; I do not know how to only copy ONLY the filtere
>cells containing text. Because there is no standard amount of rows
>end up with 180+ pages of blank poping out of the printer.
>
>Is ther some way so that when I use a filter or custom view/sort, I ca
>copy only certain columns of info and only the rows that contai
>information.
>
>I am sorry if I have not explained this very well but I would b
>grateful for and help.
>
>Regards

Play around with this:-

Range("B5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("B5").Select
End Sub

Assuming your data starts in cell B5

Good luck

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200608/1