Results 1 to 4 of 4
  1. #1
    Star Lounger
    Join Date
    Aug 2001
    Location
    Seattle, Washington, USA
    Posts
    50
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Print data from AutoFilter (Excel 97 (SR-1))

    Hi All,

    I need some help in printing my data, a list with an Autofilter. I need to go through each item in column A's autofilter and print the data.

    I can do it manually, but after the fortieth item, it gets rather tiresome. How can I automate this? <img src=/S/shrug.gif border=0 alt=shrug width=39 height=15>

    TIA,

    Tom

  2. #2
    Star Lounger
    Join Date
    Aug 2001
    Location
    Seattle, Washington, USA
    Posts
    50
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Print data from AutoFilter (Excel 97 (SR-1))

    Andrew,

    I'll give it a try. Many thanks!

    Tom <img src=/S/smile.gif border=0 alt=smile width=15 height=15>

  3. #3
    Star Lounger
    Join Date
    Aug 2001
    Location
    Seattle, Washington, USA
    Posts
    50
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Print data from AutoFilter (Excel 97 (SR-1))

    Andrew,
    You are AWESOME!!! And your code works great, too! <img src=/S/joy.gif border=0 alt=joy width=23 height=23> <img src=/S/laugh.gif border=0 alt=laugh width=15 height=15>

    Thank you very, very much for saving me from a lot of manual steps. Yippee!!

    Tom

  4. #4
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Dublin, Ireland, Republic of
    Posts
    2,697
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: Print data from AutoFilter (Excel 97 (SR-1))

    Create a list of unique items in column A. You could do that with a once off Advanced Filter of column A.

    You could then run some code like the following :<pre>Sub PrintFilteredList()
    Dim oCell As Range
    For Each oCell In Range("Items")
    Range("Data").AutoFilter Field:=1, Criteria1:=oCell
    ActiveWindow.SelectedSheets.PrintOut
    Next
    Range("Data").AutoFilter
    End Sub</pre>

    where Items is the range containing the list of unique entries in column A, and Data is the range of columns you want to filter and print.

    Hope that can assist.

    Andrew C.

    Edited to include missing Carriage Return

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •