Accessing Variable Declared in ThisWorkbook in a Userform Initialize Sub

Question

I'm setting up the userform based on User input of 1 to 5, however, I can't seem to get this input into the Userform_Initialise sub.

Public TP As String 'this is in ThisWorkbook; from here

Private Sub Workbook_Open()

Dim RT As String

ReEnter:

    RT = Application.InputBox("1 - Monthly" & vbNewLine & "2 - Quarterly" & vbNewLine & "3 - Semi-Annually" & _
    vbNewLine & "4 - Semi-Annually" & vbNewLine & "5 - Others", "Type of 
    Report", "Enter Number Here", Type:=1)
    If RT >= 1 And RT <= 5 Then
        TP = Val(RT)
    Else
        MsgBox "Error", vbCritical
        GoTo ReEnter

    End If

UserForm1.Show

End Sub 'to here

'This onwards is in Userform
Private Sub Userform_Initialize()

Debug.Print TP

End Sub

How do I get the code to recognise the User Input TP in the Userform? Thanks in advance!

Pᴇʜ · Accepted Answer · 2019-07-16 08:38:51Z

2

Declare your global variable in a module

Public TP As String 'this should be in a module

or if it is declared in ThisWorkbook you must use

Debug.Print ThisWorkbook.TP

in your UserForm.

answered Jul 16, 2019 at 8:38

Pᴇʜ

57.9k10 gold badges55 silver badges75 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Accessing Variable Declared in ThisWorkbook in a Userform Initialize Sub

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related