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!

 

[GWteB]

Not sure if this will work but try replacing this
.Offset(1).SpecialCells(12).EntireRow.Delete

with this

.Offset(1).SpecialCells(12).Columns.EntireRow.Delete

 

[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

View attachment 25620
Thanks in advance!

Sorry guys, I need to make an update, I was able to get the rows to delete, but I dont need the entire row deleted, just columns A:J, so in short, I want to filter off of row k, delete only rows A thru J of the filtered results.

 

[JoeyGaspard]

Not sure if this will work but try replacing this
.Offset(1).SpecialCells(12).EntireRow.Delete

with this

.Offset(1).SpecialCells(12).Columns.EntireRow.Delete

Thank you for the help, it helped me to see what I needed which I reposted on my original post. Thanks again!

 

[JoeyGaspard]

I am having a problem with this code, I believe it is because I am trying to autofilter a table, it will filter the table and remove the data, it just wont return to the remaining data, its as if it just stays on the filtered data, as if the autofilter is not "turning off". I have read that there is a difference in autofiltering a table, but I am unable to figure it out, any help is appreciated, the code is below:

'Clean up GrowthRate
With Sheets("GrowthRate")
.AutoFilterMode = False
With .Range("k2", .Range("k" & Rows.Count).End(xlUp))
.AutoFilter 11, "0"
On Error Resume Next
Range("a2:j2", Range("a2:j2").End(xlDown)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
.AutoFilterMode = False
End With

 

[Fluff]

Have a look here

VBA Help

Hi all, I have a spreadsheet where I am trying to use VBA to delete all rows if the cell in column B is blank, for some reason it is not working? The code I am using is listed below, any help is greatly appreciated! 'Delete Blank Rows if No Data in cells in Column B On Error Resume Next...

www.mrexcel.com

 

[JoeyGaspard]

Have a look here

VBA Help

Hi all, I have a spreadsheet where I am trying to use VBA to delete all rows if the cell in column B is blank, for some reason it is not working? The code I am using is listed below, any help is greatly appreciated! 'Delete Blank Rows if No Data in cells in Column B On Error Resume Next...

www.mrexcel.com

Thank you Fluff, but my problem still remains, the rows are being removed, but my issue is still that the sheet "GrowthRate", remains in a filtered state as if the autofilter is not turning off, even though those rows are gone, the sheet stays as if its filtered, see below:

 

[Fluff]

Have you modified your code to work in a table?

 

[JoeyGaspard]

Have you modified your code to work in a table?

That is what I was saying, I read up on it, but couldnt quite understand it or get it to work. I tried that before I posted here. So short answer, no, I am using the same code you helped me with last time, which fixed the problem i was having deleting the filtered rows, but now it is doing what my original statement says.

 

[Fluff]

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.