Maintaining variables after program ends

[Goody]

My macro is triggered on Worksheet_Activate, and stores the contents of
several cells in an array. Later, when a button is clicked, another macro is
a standard module uses the variables in the array in a dialog box. It worked
for a while, but now, for some reason, as soon as the Worksheet_Activate
macro ends, the array values revert to Empty. I've tried declaring the array
in the worksheet code, the module code, and as Public, but nothing seems to
restore its earlier functionality. Where should the declaration be placed?

Goody

 

[Dave Peterson]

If you stop the macro manually (usually while testing) by clicking the Reset
button (or Run|Reset from the menubar), then those public/static variables are
lost/reset to defaults.

If you use "End" to quit the macro (not "End Sub", "End If", "End Function",
....), then you'll reset those variables.

I'm gonna guess that you tried to quickly quit your code by using End and lost
the values your variables held.

 

[Rich Locus]

Goody:

One process I use frequently to initialize and PRESERVE all the variables I
want to be GLOBAL is to initialize them at Excel worksheet startup time.

From your VBA area, Insert a Module, then Insert a Procedure, and name it
Autpen.

Once you define Public variables in that manner, they persists and can be
viewed/modified by forms and worksheets.

Here's an example:

Option Explicit
Option Base 1
Public dteDateSelected As Date
Public intNumberOfTransactionRows As Long
Public intNumberOfTemplateRows As Long
Public strStyleAnalysisFilter As String
Public strColorAnalysisFilter As String
Public strFactoryFilter As String
Public strMailToEmailAddress As String
Public strCCEmail As String
Public strToggleFilter As Boolean

Public Sub Autpen()
Dim intFullArrayEntries As Long
Dim intAllFactoryEntries As Long
Dim intBuildAllArray As Long
Dim intNumberOfRowsInTransWorksheet As Long
Dim intNumberOfRowsInTemplateWorksheet As Long
Dim intBuildEmailAddress As Long

dteDateSelected = Date
intNumberOfTransactionRows = 2
strStyleAnalysisFilter = ""
strColorAnalysisFilter = ""
strFactoryFilter = ""
strTemplateWorkbookName = ActiveWorkbook.Name
strMailToEmailAddress = ""
strCCEmail = ""
strToggleFilter = True

.... More Code

 

[Dennis Tucker]

If you are using VBA/Excel, use cells on a worksheet instead of MyArray().