Possible in VBA? (Select Case)

[AD_Taylor]

At the moment I have a set of code which needs to check conditions of 2 variables: trackerVers and addInVers.

Heres the code as it stands at the moment:

Sub UpdateTrackerVersion(trackerVers As Long, addInVers As Long)
'Master Sub that will call each individual update based on the version numbers it recieves
If trackerVers = 1 And addInVers = 2 Then
 
    Call UpdateVersionMod.Update_201_To_202
 
ElseIf trackerVers = 2 And addInVers = 3 Then
 
    Call UpdateVersionMod.Update_202_To_203
    
ElseIf trackerVers = 1 And addInVers = 3 Then
 
    Call UpdateVersionMod.Update_201_To_203
    
End If
End Sub

So you can understand that as more and more versions get added the code is going to get longer and longer.

I was wondering if it would be possible to restructure this into a Select Case statement so that it would be shorter and easier to read, but wasn't sure whether Select Case could handle the 'And' part?

 

[Weaver]

Maybe you could multiply one of the variables by 100 and then add them

Say if it was trackervers

If trackerVers = 1 And addInVers = 2 Then

verNo = trackerVers *100 + addInVers = 102

Then you can use VerNo for your select case statements.

 

[Peter_SSs]

If I have understood correctly then you could use Select Case like this:

Sub UpdateTrackerVersion(trackerVers As Long, addInVers As Long)
    'Master Sub that will call each individual update based on the version numbers it recieves

    Select Case trackerVers & "|" & addInVers
        Case "1|2": Call UpdateVersionMod.Update_201_To_202
        Case "2|3": Call UpdateVersionMod.Update_202_To_203
        Case "1|3": Call UpdateVersionMod.Update_201_To_203
    End Select
End Sub

But if your called procedures are named as uniformly as they appear, then you may also be able to use this much shorter approach:

Sub UpdateTrackerVersion(trackerVers As Long, addInVers As Long)
    'Master Sub that will call each individual update based on the version numbers it recieves
    Run "UpdateVersionMod.Update_20" & trackerVers & "_To_20" & addInVers
End Sub

 

[AD_Taylor]

Great suggestions, thanks both!

I've gone with Peters 'Run' suggestion as the names are uniform so this does away with the need for a separate Sub altogether.

Works fine for me so this is sorted