Excel VBA Vurgula arama

Question

Tek hücrede bir sözcük kullanmaya çalışıyorum ve sonra başka bir sayfaya gidip bu sözcüğü başka bir hücrede bulmaya çalışıyorum. Zor olan bölüm, ikinci sayfanın birçok yerde bu kelimeye sahip olması ve sadece maviyle vurgulanan sözcüğün olmasını istiyorum.

Aşağıdakileri denedim, ancak döngü mavi vurgulanan kelimeyi geçmeye devam ediyor ve devam ediyor. Neyi yanlış yapıyorum?

Sen rengi hakkında daha spesifik olmak dikkatli olmak zorunda:

Sub TryingIt() 

Dim r As Excel.Range 
Dim strName As String 
Dim strFirstFound As String 

strName = ActiveCell.Text 

Sheets("Waiting For").Select 

Range("A1").Select 

Cells.Find(What:=strName, After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

Set r = ActiveCell 

If r.Interior.color = vbBlue Then 
r.Offset(1, 0).Select 
Else: 
    Do 
    Cells.Find(What:=strName, After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

    Set r = ActiveCell 

    Loop While r.Interior.color <> vbBlue 

r.Offset(1, 0).Select 

End If 

End Sub 

Answer 1

İşte cevabı. Benim durumumda, sadece vbBlue değil, RGB(0,176,240) idi.