VBA code autofilter

[jamesexcel1970]

Hello Experts.

Learnt lot of things from this forum.
Started writing code now a days but struck with some thing called auto filter.

When we do auto filter and no data found..how to stop shooting error.

Cheers!

 

[Marc L]

Hi !

Without a crystal clear explanation neither your code …

Just activate Macro recorder and operate manually :
you will get your own code base !
​

 

[jamesexcel1970]

Hello Marc.

Here is my macro which work great..but what if the value india not available in the autofilter?

Sub Macro1()

    Range("C3").Select
    Selection.AutoFilter
    ActiveSheet.Range("$C$3:$C$7").AutoFilter Field:=1, Criteria1:="=India", _
        Operator:=xlAnd
End Sub

 

[Marc L]

At least we are waiting your sample workbook as per forum rules …
​

 

[Monty]

Hello James.

Test it..

Sub test()
Dim r As Range, j As Integer
Set r = Range(Range("A1"), Range("A1").End(xlDown))
r.AutoFilter field:=1, Criteria1:="India"
j = WorksheetFunction.Count(r.Cells.SpecialCells(xlCellTypeVisible))
'MsgBox j
If j = 0 Then
MsgBox "there is not filtered data"
End If
ActiveSheet.AutoFilterMode = False
End Sub