A relative novice with Excel, I use a number of worksheets for recording
amongst other things, when various items of plant and equipment are due for
test and inspection. As an initial experiment (I need to expand it in due
course to do more complicated filters) I have recorded a macro to filter out
items due for test within given dates and print out the result using the
AutoFilter function. Sample data below:

DESCRIPTION DATE LAST SEEN
Yale Lever Hoist 05/08/04
Yale Lever Hoist 05/08/04
Yale Lever Hoist 06/08/04
Winch Rope 03/02/05

The macro is as follows:


Sub Sort()
'
' Sort Macro
' Macro recorded 23/06/2005 by Tony
'
' Keyboard Shortcut: Ctrl+s
'
Range("G4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="=23/06/2005",
Operator:=xlAnd _
, Criteria2:="<=05/08/2005"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.ShowAllData
Selection.AutoFilter
End Sub

The first time I run the macro it works fine, however if I try to run it a
second time it only prints out the coloumn headings.

I am sure the solution is obvious, but not to me. Can anyone please point me
in the right direction. In the longer term I would like to have €œselection€�
boxes where I am prompted for the €œfrom€� and €œto€� dates.

Thanks in advance



--
Tony

Hi Cofi
You need to undo your filter, before you can run it again. You are now
filtering an already filtered selection.

"Cofi Sais" wrote:

A relative novice with Excel, I use a number of worksheets for recording
amongst other things, when various items of plant and equipment are due for
test and inspection. As an initial experiment (I need to expand it in due
course to do more complicated filters) I have recorded a macro to filter out
items due for test within given dates and print out the result using the
AutoFilter function. Sample data below:

DESCRIPTION DATE LAST SEEN
Yale Lever Hoist 05/08/04
Yale Lever Hoist 05/08/04
Yale Lever Hoist 06/08/04
Winch Rope 03/02/05

The macro is as follows:


Sub Sort()
'
' Sort Macro
' Macro recorded 23/06/2005 by Tony
'
' Keyboard Shortcut: Ctrl+s
'
Range("G4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="=23/06/2005",
Operator:=xlAnd _
, Criteria2:="<=05/08/2005"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.ShowAllData
Selection.AutoFilter
End Sub

The first time I run the macro it works fine, however if I try to run it a
second time it only prints out the coloumn headings.

I am sure the solution is obvious, but not to me. Can anyone please point me
in the right direction. In the longer term I would like to have €œselection€�
boxes where I am prompted for the €œfrom€� and €œto€� dates.

Thanks in advance



--
Tony

Kassie
Have tried that but still have the same problem.Even tried recording another
macro to undo the filter!
Thanks for your response.Any other ideas?
--
Tony


"Kassie" wrote:

Hi Cofi
You need to undo your filter, before you can run it again. You are now
filtering an already filtered selection.

"Cofi Sais" wrote:

A relative novice with Excel, I use a number of worksheets for recording
amongst other things, when various items of plant and equipment are due for
test and inspection. As an initial experiment (I need to expand it in due
course to do more complicated filters) I have recorded a macro to filter out
items due for test within given dates and print out the result using the
AutoFilter function. Sample data below:

DESCRIPTION DATE LAST SEEN
Yale Lever Hoist 05/08/04
Yale Lever Hoist 05/08/04
Yale Lever Hoist 06/08/04
Winch Rope 03/02/05

The macro is as follows:


Sub Sort()
'
' Sort Macro
' Macro recorded 23/06/2005 by Tony
'
' Keyboard Shortcut: Ctrl+s
'
Range("G4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="=23/06/2005",
Operator:=xlAnd _
, Criteria2:="<=05/08/2005"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.ShowAllData
Selection.AutoFilter
End Sub

The first time I run the macro it works fine, however if I try to run it a
second time it only prints out the coloumn headings.

I am sure the solution is obvious, but not to me. Can anyone please point me
in the right direction. In the longer term I would like to have €œselection€�
boxes where I am prompted for the €œfrom€� and €œto€� dates.

Thanks in advance



--
Tony