Increment Variable from User Form Selection

Did you try declaring the occurance variable as Global?

It should say:

Global strVariable As String

in a standard module.

Here is the code, I will try to break it out so you can see the steps....

Dim Occ2Num as Integer - Occ2Num counts how many times Sheet("Model") is viewed
Dim Occ3Num as Integer - Occ3Num counts how many times Sheet("Regional") is viewed

Private Sub Workbook_Open()


    MainSelection.Show

End Sub

Private Sub RunComp_Click()

Occ2Num = Occ2Num + 1

Unload Me

MsgBox ("To begin use the highlighted input cells to select a Base, Comp 1 and Comp 2 property.  Or see the Comp Chart to view comparable properties and make selections.")



End Sub

Private Sub RunReg_Click()

Worksheets("Regional").Select
Range("A1").Select

Occ3Num = Occ3Num + 1

Unload Me

MsgBox ("To begin use the highlighted cells to select a Company, Region and Unit Size and then Press the 'Process Request' button.")

MsgBox ("A property may have more than one unit type of a selected size.  Use the drop downs below the Association name to view other unit types of the same size.")


End Sub

At this point you are now in one of the two sheets.  The next two parts navigate from one sheet to the other once the workbook is loaded.

Sub toregional()

    If Occ3Num = 0 Then
    Worksheets("Regional").Select
    Range("A1").Select
    
    MsgBox ("To begin use the highlighted cells to select a Company, Region and Unit Size and then Press the 'Process Request' button.")
    
    MsgBox ("A property may have more than one unit type of a selected size.  Use the drop downs below the Association name to view other unit types of the same size.")

    Occ3Num = Occ3Num + 1

    Else
    Worksheets("Regional").Select
    Range("A1").Select
    
    End If
    
End Sub

Sub tomodel()
'
    If Occ2Num = 0 Then
    Sheets("Model").Select
    Range("A1").Select
        MsgBox ("To begin use the highlighted input cells to select a Base, Comp 1 and Comp 2 property.  Or see the Comp Chart to view comparable properties and make selections.")
    Occ2Num = Occ2Num + 1
    
    Else
    Sheets("Model").Select
    Range("A1").Select
    
    End If
    
End Sub

So it works perfect except for the fact that the one you select in the form will prompt again when navigated to via the macro. But it will only do it one more time.

I tried changing where I have

Dim Occ2Num as Integer
Dim Occ3Num as Integer

to

Global Occ2Num as Integer
Global Occ3Num as Integer

Same results

Before I can continue to help you, you are going to need to edit your above two posts to include code tags. See the forum rules.

But: You would want to keep the same variable type: integer, not string.

I got it to work.... I replaced the code with the +1 to call a sub routine to do the increment and it worked.

Private Sub RunReg_Click()

Worksheets("Regional").Select
Range("A1").Select

Call Occ3Numup

Unload Me

MsgBox ("To begin use the highlighted cells to select a Company, Region and Unit Size and then Press the 'Process Request' button.")

MsgBox ("A property may have more than one unit type of a selected size.  Use the drop downs below the Association name to view other unit types of the same size.")


End Sub


Sub Occ3Numup()

Occ3Num = Occ3Num + 1

End Sub

I had tried that earlier but I think it was the global that solved it.

Thank you for the help.

I think you should remove the message boxes from inside the RunComp_Click() and
RunReg_Click() procedures. Does that work?