Pass variable from a subroutine to another sub

[jecazak]

I have a large macro that exceeded the allowable size of a macro so I broke it into a couple of subs. I need to pass variable from one subroutine, where the variables are counting the number of occurances of certain types of records and then passing to another subrountine where I write out a summary line for each variable with its respective value.

[Sub MainMacro()
Call sdcdir
Call outsum
End Sub

Sub sdcdir()
Dim UT10APMDevcnt As Integer
If assetdept = "xx-xx-xxxx" Then
UT10APMDevcnt = UT10APMDevcnt + 1
Elseif …
End sub

Sub outsum()
Sheets("sheet4").Activate
s = s + 1
Cells(s, 8).Value = UT10APMDevcnt
s = s + 1…

][/CODE]

[vandan_tanna]

Please Login or Register  to view this content.

Hope this helps

[jecazak]

Thanks Vandan - so I have around 200 conditions in sdcdir() so in the Sub outsum do I list all 200 variable in the Sub outsum(n1...n200)? Thanks

[vandan_tanna]

may be, in you case this is better. Declare module level variables so you do not have to pass them from sub to sub

Please Login or Register  to view this content.

more about variables at: http://www.ozgrid.com/VBA/variable-scope-lifetime.htm

[jecazak]

Thanks Vandan - this works well