The below function that i have customized filter the blank cells using "=" as criteria, however it does not filter "<>" non blank cells. Please help.
Public Function apply_filter(wksht As Worksheet, filter_field As String, ParamArray criteria() As Variant) As Boolean
Dim fieldNo As Integer
Dim last_row As Integer
Set HeaderRow = wksht.Range("a1").EntireRow
'On Error GoTo error_hndler
fieldNo = match_columns(filter_field, HeaderRow)
apply_filter = HeaderRow.AutoFilter(Field:=fieldNo, Criteria1:=Array(criteria()), Operator:=xlFilterValues)
last_row = find_last_row(wksht)
If last_row > 1 Then
apply_filter = True
Else
apply_filter = False
End If
Exit Function
Public Function apply_filter(wksht As Worksheet, filter_field As String, ParamArray criteria() As Variant) As Boolean
Dim fieldNo As Integer
Dim last_row As Integer
Set HeaderRow = wksht.Range("a1").EntireRow
'On Error GoTo error_hndler
fieldNo = match_columns(filter_field, HeaderRow)
apply_filter = HeaderRow.AutoFilter(Field:=fieldNo, Criteria1:=Array(criteria()), Operator:=xlFilterValues)
last_row = find_last_row(wksht)
If last_row > 1 Then
apply_filter = True
Else
apply_filter = False
End If
Exit Function