find and select based on cell value and font color

[prasz]

Hi, I need a button to search in excel sheet A column based on value and the value font color and select the first match.
Example:

A column
Test
Test
Any other
Other
Test
Any
Any
Other
Test

I need to find scroll to it and select the first Test value, where the font color is the default black color

 

[Micron]

maybe

Dim Lrow As Long
Dim i As Integer

On Error GoTo errHandler
Application.EnableEvents = False 'in case there is selectionchange event code that could interfere
Lrow = Range("A" & Rows.count).End(xlUp).Row
For i = 1 To Lrow
     If Range("A" & i).Value = "Test" And Range("A" & i).Font.Color = 0 Then
          Range("A" & i).Select
          Exit Sub
     End If
Next
exitHere:
Application.EnableEvents = True
Exit Sub

errHandler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume exitHere

I don't exactly know if 0 is the default value or not. That code would find the first cell in A that satisfies the parameters regardless of which is the selected cell, which is basically what you asked for. I'm also assuming that the button is on the sheet you're looking in.

 

[prasz]

maybe

Dim Lrow As Long
Dim i As Integer

On Error GoTo errHandler
Application.EnableEvents = False 'in case there is selectionchange event code that could interfere
Lrow = Range("A" & Rows.count).End(xlUp).Row
For i = 1 To Lrow
     If Range("A" & i).Value = "Test" And Range("A" & i).Font.Color = 0 Then
          Range("A" & i).Select
          Exit Sub
     End If
Next
exitHere:
Application.EnableEvents = True
Exit Sub

errHandler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume exitHere

I don't exactly know if 0 is the default value or not. That code would find the first cell in A that satisfies the parameters regardless of which is the selected cell, which is basically what you asked for. I'm also assuming that the button is on the sheet you're looking in.

Thank you verry mutch works like a charm. Have a nice day

 

[Micron]

If you consider that the solution, maybe mark your thread as solved?
Thanks.