How to set specific value if font is colored

[stillg]

Hello.
I need some help.
I have a test with 850 questions. Each row consists of starting from row 3 /number of the question (A3), the question itself(B3), Answer 1(C3),Answer 2(D3), Answer 3(E3), Answer 4(F3), Correct answer (G3).
The right answer among all 4 available answers is colored in BRG(0.0.255) Blue.
If the right answer is Answer 3/ colored in BRG(0.0.255) Blue/ - to appear 3 in Correct answer column G3.
If the right answer is Answer 4/ colored in BRG(0.0.255) Blue/ - to appear 4 in Correct answer column G3.
So I can apply this condition to all 850 questions.

Thank to all.

 

[Fluff]

Hi & welcome to MrExcel.
How is the font getting coloured?

 

[Saurabhj]

Hi,

Use below code:

Sub findTextColor()
Dim lastRow As Integer, rowno As Integer, colno As Integer

lastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For rowno = 2 To lastRow
    For colno = 3 To 6
        If Sheets("Sheet1").Cells(rowno, colno).Font.ColorIndex = 5 Then
            Sheets("Sheet1").Cells(rowno, 7) = colno - 2
        End If
    Next
Next
End Sub

 

[stillg]

Hi & welcome to MrExcel.
How is the font getting coloured?

Hi, the font is pre colored and it's RGB(0.0.255)

 

[Fluff]

Yes but how? manually, by conditional formatting, or some other method?

 

[stillg]

Hello Saurabhj.
The script returns the following error. I uploaded pictures.
On the original file, I have total 850 rows.

 

[Fluff]

Can you answer my question?

 

[stillg]

Yes but how? manually, by conditional formatting, or some other method?

Manually

 

[stillg]

The whole table is converted from a PDF file. And this color code appear when I enter inside the colors menu.

 

[Fluff]

In that case use the code supplied by Saurabhj but change "Sheet1" to "Table 1"