Prev: adsa
Next: emailing multiple reports
From: RonaldoOneNil on 8 Apr 2010 08:30
This is Excel code posted in the Access forum, but you can either declare the
variable at the top of the module outside all subs and functions or in your
example below, pass it to the other sub

Sub X1()
V1 = "GI-ACE"
Sheets(V1).Select
Call S(V1)
End Sub

Sub S(V1 as String)
ActiveSheet.UnProtect ("util")
....



"R. Heine" wrote:

>
>
> "M Chahal" <MChahal(a)discussions.microsoft.com> schrieb im Newsbeitrag
> news:AA96FFB1-7B3F-4EE4-AB3F-75156D5A1191(a)microsoft.com...
> > Hi,
> >
> > Please see code below.....
> > Sub X1()
> > V1 = "GI-ACE"
> > Sheets(V1).Select
> > Call S
> > End Sub
> >
> > Sub S()
> > ActiveSheet.UnProtect ("util")
> > Range("B43:BW200").Select
> > Selection.ClearContents
> > Sheets("Data").Select
> > Selection.AutoFilter Field:=1, Criteria1:=V1 '!!!!THIS IS WHERE IT
> > FAILS!!!!'
> > Selection.AutoFilter Field:=145, Criteria1:="CHECK"
> > Range("E3:G800").Select
> > Selection.Copy
> > Sheets(V1).Select '!!!!THIS IS WHERE IT FAILS!!!!'
> > Range(B42).Select
> > Selection.PasteSpecial Paste:=xlPasteValues
> > End Sub
> >
> > Basically, I need to use a defined variable (V1) in other subs, how can I
> > do
> > that without stating it in each sub??
> >
> > Any help appreciated.
> >
> > MSC
>
First  |  Prev  | 
Pages: 1 2
Prev: adsa
Next: emailing multiple reports