Ak bude scan do F1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pos
If Not Intersect(Range("F1"), Target) Is Nothing Then
On Error Resume Next
Pos = WorksheetFunction.Match(Range("F1"), Range(Range("B1"), Cells(Rows.Count, "B").End(xlUp)), 0)
If Err.Number = 0 Then Range("A1:B1").Offset(Pos - 1, 0).Interior.Color = vbGreen
On Error GoTo 0
End If
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pos
If Not Intersect(Range("F1"), Target) Is Nothing Then
On Error Resume Next
Pos = WorksheetFunction.Match(Range("F1"), Range(Range("B1"), Cells(Rows.Count, "B").End(xlUp)), 0)
If Err.Number = 0 Then Range("A1:B1").Offset(Pos - 1, 0).Interior.Color = vbGreen
On Error GoTo 0
End If
End Subcitovat