Macro to check a Cells Value and run different code depending on the cells value?

[Event2020]

Hi
I have the following code in a macro that creates sets the value of Cell B25.

If Range("B23").Value = 2 Or Range("B23").Value = 3 Or Range("B23").Value = 4 Or Range("B23").Value = 5 Then run code

<run code="">This works well but I now need it to do the following so it runs different code depending on the value of Cell B23:

If Range("B23").Value = 1 Then run code A
        <run code="">
but

If Range("B23").Value = 2 Then run code B
        <run code="">
but

If Range("B23").Value = 3 Then run code C
        <run code="">
but

If Range("B23"). Value = 4 Or Range("B23").Value = 5 Then run code D
<run code="">

I am learning so much from this forum and you helpful folks but my abilities have stalled on this?</run></run></run></run></run>

 

[mrshl9898]

Here you go

If Range("B23").Value = 1 Then run code A
ElseIf Range("B23").Value = 2 Then run code B
ElseIf Range("B23").Value = 3 Then run code C
ElseIf Range("B23"). Value = 4 Or Range("B23").Value = 5 Then run code D
End If

 

[Event2020]

Here you go

If Range("B23").Value = 1 Then run code A
ElseIf Range("B23").Value = 2 Then run code B
ElseIf Range("B23").Value = 3 Then run code C
ElseIf Range("B23"). Value = 4 Or Range("B23").Value = 5 Then run code D
End If

Thank you so much

Why on earth I could not work that out myself or find it on google I dont know.

You have really helped me out.

Thanks again.

 

[Peter_SSs]

Another way, especially useful when multiple values &/or range(s) of values are involved - see my second last 'Case' statement

Select Case Range("B23").Value
  Case 1: Run code A
  Case 2: Run code B
  Case 3: Run code C
  Case 4, 5: Run code D
  Case 6, 9 To 15, 20: Run code E
  Case Else: Run code F
End Select

End Select

 

[Event2020]

Another way, especially useful when multiple values &/or range(s) of values are involved - see my second last 'Case' statement

Select Case Range("B23").Value
  Case 1: Run code A
  Case 2: Run code B
  Case 3: Run code C
  Case 4, 5: Run code D
  Case 6, 9 To 15, 20: Run code E
  Case Else: Run code F
End Select

End Select

Hi Peter

Thank you for your reply.

On your 2nd last Case statement can you explain what that does (so I may learn)

Many thanks

 

[Peter_SSs]

On your 2nd last Case statement can you explain what that does (so I may learn)

code E would run if cell B23 was any one of the following values
6, 9, 10, 11, 12, 13, 14, 15, 20

 

[Event2020]

code E would run if cell B23 was any one of the following values
6, 9, 10, 11, 12, 13, 14, 15, 20

Thats excellent Peter

Thank you and I really appreciate you help.

 

[Peter_SSs]

No problem. Glad to help.