Excel Filter

Private Sub Worksheet_Change(ByVal Target As Range)
' reacts to change of selected cells by setting filter of column
'  If Target = Range("C1") Then
  If Target.Row = 1 Then
    FilterByTyping Target
  End If
End Sub


Sub FilterByTyping(ByVal Target As Range)
  ActiveColumn = Target.Column
  If Len(Target.Text) Then
    Target.AutoFilter Field:=Target.Column, Criteria1:=Target.Text & "*"
  Else
    Target.AutoFilter Field:=Target.Column
  End If

' Example filter >{B1}00 and <{B1+1}00
' Criteria1:=">" & Target.Text & "00", Operator:=xlAnd, Criteria2:="<" & (Val(Target.Text) + 1) & "00" 

End Sub

Private Sub btnStatusNOK_Click()
  strFilterColumn = "F1"
  Range(strFilterColumn).AutoFilter Field:=Range(strFilterColumn).Column, Criteria1:="<>OK*", Operator:=xlAnd
End Sub