VBA Help

[JoeyGaspard]

Hi folks, having another little problem with VBA. I am trying to filter a selection from a worksheet, and delete those rows, my filter is working fine, but its not deleting the rows. Here is the code and a screenshot:
'Clean up GrowthRate
With Sheets("GrowthRate")
.AutoFilterMode = False
With .Range("k2", .Range("k" & Rows.Count).End(xlUp))
.AutoFilter 11, "0"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With

Thanks in advance!

 

[JoeyGaspard]

The code you supplied in post#5 is not using a table, so if that is not the code you are trying to use, please post the code that you are using.

I am sorry for all this confusion, here is the code I am trying to use, and its not for a table, that was my issue, I couldnt figure out how to do it. That is why I started a new thread earlier.

'Clean up GrowthRate
With Sheets("GrowthRate")
.AutoFilterMode = False
With .Range("k2", .Range("k" & Rows.Count).End(xlUp))
.AutoFilter 11, "0"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
On Error GoTo 0
End With

 

[Fluff]

What is the name of the table?

 

[JoeyGaspard]

What is the name of the table?

Input

 

[Fluff]

with the code I supplied before

   With Sheets("GeneralJournal").ListObjects("Table1")
      .Range.AutoFilter 1, ""
      Application.DisplayAlerts = False
      .DataBodyRange.SpecialCells(xlVisible).Delete
      .Range.AutoFilter
   End With

Just change the sheet name to suit, the table name (the bit in brackets after ListObjects) to Input & then modify the autofilter column & criteria to suit.

 

[JoeyGaspard]

with the code I supplied before

   With Sheets("GeneralJournal").ListObjects("Table1")
      .Range.AutoFilter 1, ""
      Application.DisplayAlerts = False
      .DataBodyRange.SpecialCells(xlVisible).Delete
      .Range.AutoFilter
   End With

Just change the sheet name to suit, the table name (the bit in brackets after ListObjects) to Input & then modify the autofilter column & criteria to suit.

Thank you very much, again, so sorry for the confusion, your help is appreciated.