VBA 5 different colours CF to highlights A, B, C, D and E

[Kishan]

Using</SPAN></SPAN> Excel 2000</SPAN>

Hi,</SPAN>

I want to join multiple cells C:P columns, into single column R for that using formula getting the result as below</SPAN></SPAN>

Book1
	A	B	C	D	E
1
2
3
4			P1
5			A
6
7
8
9
10
11
12
13
14
15
16			B
17
18
19
20
21			A
22
23
24
25
26			C
27
28
29
30
31
32			D
33
34
35			E
36			B
37
38
39
40
41
42
43
44
45			C
46
47
48
49
50
51			D
52
53
54			E
55			C
56
57
58
59
60
61			D
62
63
64			E
65			D
66
67
68			E
69
70			B
71
72
73
74
75
76
77
Sheet15

Thank you in advance</SPAN></SPAN>

Regards</SPAN></SPAN>,</SPAN>
Kishan</SPAN></SPAN>

 

[Kishan]

Hi,</SPAN></SPAN>

I am reading my post#1 thinking it is not clear what I need</SPAN></SPAN>

I want to have colour for A = Red </SPAN></SPAN>
I want to have colour for B = Blue </SPAN></SPAN>
I want to have colour for C = Dark Green </SPAN></SPAN>
I want to have colour for D = Pink </SPAN></SPAN>
I want to have colour for E = Dark Brown </SPAN></SPAN>
And the font white for all A, B, C, D & E</SPAN></SPAN>

Regards,</SPAN></SPAN>
Kishan</SPAN></SPAN>

 

[Kishan]

Using</SPAN></SPAN> Excel 2000</SPAN>

Hi,</SPAN>

I want to join multiple cells C:P columns, into single column R for that using formula getting the result as below</SPAN></SPAN>

Thank you in advance</SPAN></SPAN>

Regards</SPAN></SPAN>,</SPAN>
Kishan</SPAN></SPAN>

Hi, found a code under the link below modifying it solve my query here it is may help someone.
https://www.mrexcel.com/forum/excel...al-formatting-multiple-cases.html#post5135670</SPAN></SPAN>

'https://www.mrexcel.com/forum/excel-questions/1069270-vba-conditional-formatting-multiple-cases.html#post5135670
'VBA - Conditional Formatting multiple cases
Sub ResetFormatting_1()
For Each ar In Range("C5:C100").Areas
    
    For Each Cell In ar
        
            Select Case Cell
                Case "A"
                     Cell.Interior.ColorIndex = 3
                     Cell.Font.ColorIndex = 2
                     
                     
                Case "B"
                     Cell.Interior.ColorIndex = 5
                     Cell.Font.ColorIndex = 2
                
                Case "C"
                     Cell.Interior.ColorIndex = 10
                     Cell.Font.ColorIndex = 2
                
                Case "D"
                     Cell.Interior.ColorIndex = 7
                     Cell.Font.ColorIndex = 2
                    
                Case "E"
                    Cell.Interior.ColorIndex = 9
                     Cell.Font.ColorIndex = 2
                
            End Select
           
        Next Cell
Next ar
 
End Sub

Regards,</SPAN></SPAN>
Kishan</SPAN></SPAN>