Print selected rows based on cell data

**sipa** · 10-01-2016, 11:48 AM

I've been trying to find a macro that I could adapt to select rows that contain "No" in col J and Preview / print only those rows, in landscape. Only cols a to J contain data.

Ideally, I'd like rows 2 to 15 to be always included at the top of the print.

So far I've drawn a blank so any help appreciated.

**alansidman** · 10-01-2016, 07:13 PM

Try this:

Please Login or Register  to view this content.

**sipa** · 10-02-2016, 05:28 AM

Thanks for taking the time to help.

However the code provided, is giving the following error.
Runtime error 1004
Autofilter of range class failed

Hope you can help to fix it.

**alansidman** · 10-02-2016, 10:34 AM

When you run the macro and get the error code, click on debug and advise which line of code is highlighted. I am unable to duplicate your error message. Suggest you post a sample of your workbook so that it can be analyzed. The code works perfectly for me based upon your description in the first post.

**sipa** · 10-02-2016, 12:13 PM

This is the line throwing the error.

ActiveSheet.Range(Cells(16, 1), Cells(lr, lc)).AutoFilter Field:=10, Criteria1:="No"

thanks

**alansidman** · 10-02-2016, 12:39 PM

unable to replicate the error as that code works for me in my mocked up spreadsheet. Suggest again you upload your worksheet, sanitized for confidential data.

**sipa** · 10-02-2016, 12:46 PM

For some reason the forum reply mechanism won't allow me to attach a document, done it successfully many time before.
I will keep trying

**alansidman** · 10-02-2016, 01:34 PM

Have you tried this method.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

**sipa** · 10-02-2016, 02:04 PM

Ok think it's attached ok now.

**alansidman** · 10-02-2016, 02:11 PM

Solved:

Please Login or Register  to view this content.

In my code, I was declaring the last column in row 1. You have no row one data. I changed it to row 2. It should work for you now.

**sipa** · 10-02-2016, 02:22 PM

Brilliant, thank you.

One further point, the sheet remains filtered after running the macro. Is it possible to include in the macro to clear the filtering thereby returning the sheet to it's original state ?

**alansidman** · 10-02-2016, 03:04 PM

Add this line of code above the End Sub line

Please Login or Register  to view this content.

**sipa** · 10-02-2016, 04:05 PM

Perfect, thank you for you help.

**alansidman** · 10-02-2016, 04:08 PM

You are welcome and thanks for the rep.

Print selected rows based on cell data

LinkBack

Thread Tools

Rate This Thread

Display

Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Re: Print selected rows based on cell data

Thread Information

Users Browsing this Thread

Similar Threads

Macro to pull all rows of data based on an item selected in drop down

Deleting selected data based on cell value

Need Fix for Code To Print Selected Rows On One Sheet

Selectively print rows based on cell data

Print selected & multiple rows to a form

[SOLVED] How do I print selected rows?

[SOLVED] Create a report with selected rows based on the content in a cell

Bookmarks

Bookmarks

Posting Permissions