VBA - Case study whether a subroutine is active or not.

[prinzip]

Hello, I started using VBA recently and I have a question. I am using the case study shown below in a UserForm.

        Case 0: Call ActivateHDB
        Case 1: Call ActivateHDT
        Case 2: Call ActivateLD4C
        Case 3: Call ActivateLD4T
        Case 4: Call ActivateM4
        Case 5: Call ActivateLD2

Through a different subroutine named ActivateGAS (shown below) and called after the above select case option, i want to perform an If...else If case structure ( I think that is the most appropriate). Maybe its a stupid question, but I don't know how to find out whether a subroutine is active or not.

Sub ActivateGAS()

    With wb1
        Selection.Rows(5).Select
    End With
    
    With wb2
    
        If IsActivated.ActivateLD4C Then
        Selection.Rows("1:7").Select
        ElseIf IsActivated.ActivateLD4T Then
        Selection.Rows("1:7").Select
        Else
        Selection.Rows("1:4").Select
        End If
        
    End With
    
End Sub

The IsActivated command its just something i made up my mind to show what I'm looking for.

 

[Andrew Poulsom]

Welcome to MrExcel.

Can't you use the same Cases in ActivateGAS?

 

[prinzip]

Welcome to MrExcel.

Can't you use the same Cases in ActivateGAS?

Thx, didn't know it could be done that way. I'll try and feedback.

 

[prinzip]

Welcome to MrExcel.

Can't you use the same Cases in ActivateGAS?

Cases seem to work but i get an Object variable or With block variable not set. How is this fixed?

Userform code:

Option Explicit

Private Sub cmdCancel_Click()

    Unload Me
    
End Sub

Private Sub cmdConfirm_Click()

    Select Case ComboBox2.ListIndex
 
        Case -1
            MsgBox "Select vehicle"
            Exit Sub
     
        Case 0: Call ActivateHDB
        Case 1: Call ActivateHDT
        Case 2: Call ActivateLD4C
        Case 3: Call ActivateLD4T
        Case 4: Call ActivateM4
        Case 5: Call ActivateLD2
        
    End Select
End sub

Module:

Option Explicit
Dim ComboBox2 As ComboBox

Sub ActivateGSL()

    wb1.Activate
    With wb1
        Selection.Rows(3).Select
    End With
    
    wb2.Activate
    With wb2
        Select Case ComboBox2.ListIndex
 
        Case 0: Selection.Rows("5:8").Select
        Case 1: Selection.Rows("5:8").Select
        Case 2: Selection.Rows("8:14").Select
        Case 3: Selection.Rows("8:14").Select
        Case 4: Selection.Rows("5:8").Select
        Case 5: Selection.Rows("5:8").Select
        
        End Select
    End With

End Sub

 

[Andrew Poulsom]

On which line do you get the error?

 

[prinzip]

On which line do you get the error?

In the module code where it says

Select Case ComboBox2.ListIndex

 

[Andrew Poulsom]

Is your ActivateGSL procedure in the same module as the procedure that calls it?

 

[prinzip]

Is your ActivateGSL procedure in the same module as the procedure that calls it?

No, the ActivateGSL is in Module code and the procedure that originally calls it is in a UserForm code. Do i have to state the Select case options in the module as well?

 

[Andrew Poulsom]

If you want to access the controls on the UserForm it's easiest to put the code in the Userform's module.

 

[prinzip]

If you want to access the controls on the UserForm it's easiest to put the code in the Userform's module.

It worked Andrew, thx.

Theoretically spoken, is there any occasion that it might be required to have two separate codes (UserForm code and Module code)? Is there any solution to that case?