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]

Thanks for that, not sure whether it's something to do with the conversion from pdf, or the unicode characters, but try this

Sub stillg()
   Dim r As Long, c As Long, i As Long
   Dim Flg As Boolean
   
   For r = 3 To Range("A" & Rows.Count).End(xlUp).Row
      Flg = False
      For c = 3 To 6
         For i = 1 To Len(Cells(r, c))
            If Cells(r, c).Characters(i, 1).Font.Color = vbBlue Then
               Range("G" & r).Value = c - 2
               Flg = True
               Exit For
            End If
         Next i
         If Flg Then Exit For
      Next c
   Next r
End Sub

It may take a couple of minutes.

 

[stillg]

Thanks for that, not sure whether it's something to do with the conversion from pdf, or the unicode characters, but try this

Sub stillg()
   Dim r As Long, c As Long, i As Long
   Dim Flg As Boolean
  
   For r = 3 To Range("A" & Rows.Count).End(xlUp).Row
      Flg = False
      For c = 3 To 6
         For i = 1 To Len(Cells(r, c))
            If Cells(r, c).Characters(i, 1).Font.Color = vbBlue Then
               Range("G" & r).Value = c - 2
               Flg = True
               Exit For
            End If
         Next i
         If Flg Then Exit For
      Next c
   Next r
End Sub

It may take a couple of minutes

 

[stillg]

Thanks for that, not sure whether it's something to do with the conversion from pdf, or the unicode characters, but try this

Sub stillg()
   Dim r As Long, c As Long, i As Long
   Dim Flg As Boolean
  
   For r = 3 To Range("A" & Rows.Count).End(xlUp).Row
      Flg = False
      For c = 3 To 6
         For i = 1 To Len(Cells(r, c))
            If Cells(r, c).Characters(i, 1).Font.Color = vbBlue Then
               Range("G" & r).Value = c - 2
               Flg = True
               Exit For
            End If
         Next i
         If Flg Then Exit For
      Next c
   Next r
End Sub

It may take a couple of minutes.

Work like a charm.
Thank You very much.

 

[Fluff]

Glad we could help & thanks for the feedback.