Fill D1:D4 format all the way below

[motilulla]

Hello,

Here is original data

Book1
	C	D	E
1		A - A
2		A - B
3		C - A
4		C - C
5
6		C - A
7		C - C
8		C - A
9		A - A
10		A - B
11		C - A
12		C - A
13		A - B
14		A - A
15		A - B
16		C - A
17		A - A
18		A - A
19		C - A
20		A - A
21		A - A
22		A - A
23		A - A
24		C - A
25		A - A
26		C - A
27		C - C
28		A - B
29		C - C
30		C - C
31		A - A
32
Hoja1

I want to fill D1:D4 format as per text find all the way below D6 to end of the column

Example after i want it looks like as below

Book1
	C	D	E
1		A - A
2		A - B
3		C - A
4		C - C
5
6		C - A
7		C - C
8		C - A
9		A - A
10		A - B
11		C - A
12		C - A
13		A - B
14		A - A
15		A - B
16		C - A
17		A - A
18		A - A
19		C - A
20		A - A
21		A - A
22		A - A
23		A - A
24		C - A
25		A - A
26		C - A
27		C - C
28		A - B
29		C - C
30		C - C
31		A - A
32
Hoja2

Thank you all

Excel 2000
Regards,
Moti

 

[motilulla]

You are welcome.

The "C - C" font color was black (automatic) on my test sheet,
but here is a modified version that explicitly sets the font color to black:

Sub ColorCell()
    For Each cll In Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row)
        With cll
            .Font.Color = vbBlack
            Select Case .Value
                Case "A - A": .Interior.Color = vbGreen
                Case "C - C": .Interior.Color = vbRed
                Case "A - B": .Interior.Color = vbGreen
                    .Characters(Start:=5, Length:=1).Font.Color = vbRed
                Case "C - A": .Interior.Color = vbRed
                    .Characters(Start:=1, Length:=1).Font.Color = vbWhite
                    .Characters(Start:=5, Length:=1).Font.Color = vbGreen
            End Select
        End With
    Next cll
End Sub

Tetra201, all is working fine!!

Thank you for your help

Regards,
Moti