Declaring Public values in userform

[andrewb90]

Hello all,

I haven't really used much in the way of public variables before, so I seem to be doing something wrong. In my userform, I have declared:

Public closeResend As String

at the very top.

Now I have this:

closeResend = "Yes"

as one of the commandbutton click functions.

In my module (where the userform originated) I have this:

If closeResend = "Yes" Then  
  Exit Sub
End If

Basically, I wanted to declare some sort of value when a button was clicked and then have my code check the value to exit the sub instead of continuing to run.

any help would be greatly appreciated.

 

[Norie]

Where exactly is the 2nd code located?

 

[andrewb90]

This is the code in my userform:

Public closeResend As String



Private Sub CommandButton1_Click()
Me.Hide
Application.ScreenUpdating = False
Sheets("Scheduler").Range("AH1").ClearContents
Sheets("Initial").Visible = True
Sheets("Initial").Select
closeResend = "Yes"
End Sub


Private Sub CommandButton2_Click()
Me.Hide
Application.ScreenUpdating = False
closeResend = "Yes"
End Sub


Private Sub Label1_Click()


End Sub


Private Sub UserForm_Click()


End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


        If CloseMode = 0 Then Cancel = True


End Sub

 

[dmt32]

Place your public variable at top of a standard module.

Dave