calling a series macros with a marco

G

gerry405

Hi,

Can anyone help me with the following problem, I have created macro
that does various things with a file (they mostly do various filterin
on the data), the trouble is when I run the macro, its filter's throug
on each macro as expected and if they find any filtered criteria I the
need to extract that data displayed on screen, before I click on th
next "msgbox" to continue onto the next macro( If any data is found
get to see it on screen but at the moment I can,t copy and paste as th
macro just continues on to the next macro, so in a nutshell I need t
breakout of the macro and get the filtered data accross to an othe
work sheet or be able to copy and paste or something along thes
lines...

anyone who can through any light on this would be greatly appreciated

macros is below

Sub runallMacros()
'
' runallmacros Macro
' Macro recorded 18/10/2005 by SGUHT
'

'

Application.Ru
"'weekly_Iptestger(TEMPLATE_18Oct).xls'!Brian_sort"
MsgBox "Sorted"
Application.Run "'weekly_Iptestger(TEMPLATE_18Oct).xls'!ASC_3_5"
MsgBox "ASC 3 0r 5's"
Application.Run "'weekly_Iptestger(TEMPLATE_18Oct).xls'!ASC_9"
MsgBox "ASC 9's"
Application.Ru
"'weekly_Iptestger(TEMPLATE_18Oct).xls'!BlankPostCode"
MsgBox "Blank Post Code's "
Application.Run "'weekly_Iptestger(TEMPLATE_18Oct).xls'!OBS"
MsgBox "OBS"
Application.Run "'weekly_Iptestger(TEMPLATE_18Oct).xls'!Resp"
MsgBox "Respiratory found"
Application.Ru
"'weekly_Iptestger(TEMPLATE_18Oct).xls'!Clear_Filter"

End Sub


two of the filtering macros are below

Sub NeuroNsurg()

Range("A1").AutoFilter
Range("A1").AutoFilter Field:=4, Criteria1:="NEUROL"
Operator:=xlOr, _
Criteria2:="NSURG"

Range("A1").AutoFilter Field:=2, Criteria1:="G306H"


End Sub

Sub OBS()

Range("A1").AutoFilter
Range("A1").AutoFilter Field:=4, Criteria1:="OBS"

End Su
 
Top