Use of many alternatives after elseif

Hello friends, thanks for your time. Please check the image.
LINE01 BUTTON.jpg
I want assign a specific color to the first line (from the first row) then I create this code using macro record.

Please Login or Register  to view this content.

But for the yellow color RGB(47, 204, 11) I have different conditions not only "Su<Ma", I want the code can considerate other options like "Su<Mo", "Su<Me", "Su<Ju", etc.
How I can do that... In excel we have =IF(L5="Su<Ma, L5="Su<Mo", ...) but in macro I don't have an idea how it works.
Please if you can teach me, it very useful.

Obviously, if I can work directly in the ActiveSheet and do without using a button it be wonderful.

Thanks so much.

Not clear whether you want the line to change colour with each selection? If so, something like this?

Please Login or Register  to view this content.

But if you are keeping the line at the same colour whatever the 'date' span, why have it as a Criteria at all (Other than perhaps checking the day cell is not blank)?

Ochimus

Please Login or Register  to view this content.

If you want the same colour for multiple values, you can put them on the same Case line:

Please Login or Register  to view this content.

or maybe you just need:

Please Login or Register  to view this content.

Hello Rorya, nice answer... then if I use first recommendation, can I do it in this way?

Please Login or Register  to view this content.

But about If left$(Range("L5").Value, 3) = "Su<" then
I like it so much because is a very more compact code... but how I can use it if I need other cases for the same L5: "Mo<", "Me<", "Ju<" etc.

Thanks so much for your time!!

You could do a similar thing:

Please Login or Register  to view this content.

Hello Rorya, I am at this point... but now I need to apply the same conditions to the lines generated from L6, L7, L8, L9, L10, ... , L15
What is the correct way? I try to change the range to (Range("L5:L15") but don't work

Please Login or Register  to view this content.

and try again with (Range("L5:L15") but don't work!

Please, I need again your expertise. Thanks for your time.

Vladi108mb, Code tag are required....

Please Login or Register  to view this content.

It may also be that you can reduce the checks to just the first two letters:

Please Login or Register  to view this content.

and so on.