Use o mesmo criterio para pintar de vermelho para fazer a busca.

Use o mesmo criterio para pintar de vermelho para fazer a busca.

nao sei como fazer isso, vc pode me ajudar?

Fiz um exemplo sem usar o find:

Private Sub UserForm_Initialize()
Dim linha As Long

linha = 1

While Plan1.Range("A" & linha).Value <> ""


If Plan1.Range("A" & linha).Interior.Color = vbRed Then

Me.ListBox1.AddItem (Plan1.Range("A" & linha).Value)

End If

linha = linha + 1

Wend


End Sub

Fiz um exemplo sem usar o find:

Private Sub UserForm_Initialize()
Dim linha As Long

linha = 1

While Plan1.Range("A" & linha).Value <> ""


If Plan1.Range("A" & linha).Interior.Color = vbRed Then

Me.ListBox1.AddItem (Plan1.Range("A" & linha).Value)

End If

linha = linha + 1

Wend


End Sub

vo tentar adaptar aqui meu amigo. obg pela ajuda