Sub, not function!
 

To make a comparison of two tests I want to put the values next to eac
other on a sheet.

To do that, I have two Combo Boxes with each the same 15 choises...yo
have to choose two different tests.

Now, I'm having a problem to make my code short:

Dim leftChoise As Integer
leftChoise = Sheets("Keuze").Range("E1").Value
Dim rightChoise As Integer
rightChoise = Sheets("Keuze").Range("K1").Value

Select Case leftChoise

Case 1
PutLeftOnReport ("B7")
Case 2
PutLeftOnReport ("B29")
Case 3
PutLeftOnReport ("B51")

Sub, not function!
 

PutLeftOnReport ("B" & leftChoise * 22 - 15)
perhaps ?

HTH. Best wishes Harald


"Zurn" skrev i melding
...

To make a comparison of two tests I want to put the values next to each
other on a sheet.

To do that, I have two Combo Boxes with each the same 15 choises...you
have to choose two different tests.

Now, I'm having a problem to make my code short:

Dim leftChoise As Integer
leftChoise = Sheets("Keuze").Range("E1").Value
Dim rightChoise As Integer
rightChoise = Sheets("Keuze").Range("K1").Value

Select Case leftChoise

Case 1
PutLeftOnReport ("B7")
Case 2
PutLeftOnReport ("B29")
Case 3
PutLeftOnReport ("B51")