How do I modify this VBA, to filter specific cell Values.

[russelldt]

I have this VBA in place.

Sub BS()
With Sheets("PD List")
If .FilterMode = False Then
With .Range("f:i").EntireColumn
.Hidden = True
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:= _
"<>"
End With
Else
With .Range("f:i").EntireColumn
.Hidden = False
ActiveSheet.ListObjects("Table2").Range.AutoFilter
End With
End If
End With

End Sub

Field 4 contains numeric values, and a . (point or dot).

I want the VBA to exclude "0" and "." in the result.

Please can someone help me other,

Thanks

 

[nemmi69]

These are all the table commands
Entire Table = ActiveSheet.ListObjects("Table1").Range.Select
Table Header Row = ActiveSheet.ListObjects("Table1").HeaderRowRange.Select
Table Data = ActiveSheet.ListObjects("Table1").DataBodyRange.Select
Second Column = ActiveSheet.ListObjects("Table1").ListColumns(2).Range.Select
Third Column (Data Only) = ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Select
Select Row 3 of Table Data = ActiveSheet.ListObjects("Table1").ListRows(3).Range.Select
Select 3rd Heading = ActiveSheet.ListObjects("Table1").HeaderRowRange(3).Select
Select Data point in Row 4, Column 3 = ActiveSheet.ListObjects("Table1").DataBodyRange(4, 3).Select
Subtotals = ActiveSheet.ListObjects("Table1").TotalsRowRange.Select

 

[russelldt]

These are all the table commands
Entire Table = ActiveSheet.ListObjects("Table1").Range.Select
Table Header Row = ActiveSheet.ListObjects("Table1").HeaderRowRange.Select
Table Data = ActiveSheet.ListObjects("Table1").DataBodyRange.Select
Second Column = ActiveSheet.ListObjects("Table1").ListColumns(2).Range.Select
Third Column (Data Only) = ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Select
Select Row 3 of Table Data = ActiveSheet.ListObjects("Table1").ListRows(3).Range.Select
Select 3rd Heading = ActiveSheet.ListObjects("Table1").HeaderRowRange(3).Select
Select Data point in Row 4, Column 3 = ActiveSheet.ListObjects("Table1").DataBodyRange(4, 3).Select
Subtotals = ActiveSheet.ListObjects("Table1").TotalsRowRange.Select

Thanks for the response - apologies, with my limited knowledge of VBA I can't follow the logic.

I am also limited with the version of Excel that I am using (2019) which does not have the advanced data functions.

 

[Fluff]

How about

Sub BS()
With Sheets("PD List")
   If .FilterMode = False Then
      .Range("f:i").EntireColumn.Hidden = True
      .ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:="<>0"
   Else
      .Range("f:i").EntireColumn.Hidden = False
      .ListObjects("Table2").Range.AutoFilter
   End If
End With

End Sub

 

[russelldt]

How about

Sub BS()
With Sheets("PD List")
   If .FilterMode = False Then
      .Range("f:i").EntireColumn.Hidden = True
      .ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:="<>0"
   Else
      .Range("f:i").EntireColumn.Hidden = False
      .ListObjects("Table2").Range.AutoFilter
   End If
End With

End Sub

Magic, Once again, thanks Fluff.

 

[Fluff]

You're welcome & thanks for the feedback.