Global counter workbook

[jaryszek]

Hi Guys,

i am running useform and i want to add counter as global variable to workbook.

    If counter = 1 Then 
'code
end if

i declared counter in userform above:

Public counter As Long

but when form is starting counter is always = 0, why ?
How to do this ?

Best wishes,
Jacek

[jaryszek]

I added in Thisworkbook:

Option Explicit
Public counter As Long

Private Sub Workbook_Open()

    Kalkulator.Show

End Sub

In useform initialize event:

counter = counter + 1

in module :

Option Explicit
Public counter2 As Long

Sub Calc()

    counter2 = ThisWorkbook.counter
    Kalkulator.Show

End Sub

this is not working.
Please help,
Best,
Jacek

[bakerman2]

AFAIK, you need to declare public variables (variables that have scope across all modules in a project) in a code module, not an object (workbook, sheet, form, class) module.

[torachan]

Hi.
Because my technique is old fashioned and at times chaotic I resort to carrying the variables between subs.
As per the attached example, I find this easier as I 'glue' my code together with very little forward planning.
Note the variables in the 'Call' statement and in the Module.
torachan.

[jaryszek]

AFAIK, you need to declare public variables (variables that have scope across all modules in a project) in a code module, not an object (workbook, sheet, form, class) module.

thank you.

But idea is to pass thisworkbook variable to form while workbook is opened.
and after restarting form how can i know that form was opened already one time while workbook was starting ?

Hi.
Because my technique is old fashioned and at times chaotic I resort to carrying the variables between subs.
As per the attached example, I find this easier as I 'glue' my code together with very little forward planning.
Note the variables in the 'Call' statement and in the Module.
torachan.

thank you, this is a good option but the thing what iwant i described above.

Best,
Jacek

[Fluff13]

As bakerman has said you need to move the variable.
ThisWorkbook should be

Option Explicit

Private Sub Workbook_Open()

    Kalkulator.Show

End Sub

And the module should be

Option Explicit
Public counter As Long
Public counter2 As Long

Sub Calc()

    counter2 = ThisWorkbook.counter
    Kalkulator.Show

End Sub

[jaryszek]

thank you, now i am understanding

Best,
Jacek

[Fluff13]

You're welcome & thanks for the feedback