stop macro if table is no data

[mark692]

i have this code that will filter a row on my table named "Table5" i want to stop the code if the Field 2 has no data, is that possible? thanks!

Sub Save_Detergent() Dim wbk As Workbook
Dim Fname As String
Dim pth As String
Dim Addr As String

pth = "C:\Users"
Fname = "Detergent.xlsm"
ActiveSheet.ListObjects("Table5").Range.AutoFilter Field:=2, Criteria1:= _
">0"
Range("Table5[[Name]:[QTY]]").Copy

 

[Yongle]

Hi

replace

ActiveSheet.ListObjects("Table5").Range.AutoFilter Field:=2, Criteria1:=">0"

with

With ActiveSheet.ListObjects("Table5")
    .Range.AutoFilter Field:=2, Criteria1:=">0"
    If .Range.SpecialCells(xlCellTypeVisible).Rows.Count = 1 Then Exit Sub
End With

 

[mark692]

Hi

replace

ActiveSheet.ListObjects("Table5").Range.AutoFilter Field:=2, Criteria1:=">0"

with

With ActiveSheet.ListObjects("Table5")
    .Range.AutoFilter Field:=2, Criteria1:=">0"
    If .Range.SpecialCells(xlCellTypeVisible).Rows.Count = 1 Then Exit Sub
End With

thank you sir, hmm what if i change it, instead of stopping the code, it will just do nothing if field 2 is empty?

 

[Yongle]

I do not understand your question