Delete Excel Rows Using Auto Filtering .SpecialCells(xlCellTypeVisible).EntireRow.Del

in reference to http://www.ozgrid.com/VBA/row-delete-criteria.htm

Specifically:

With rRange 'Filter, offset(to exclude headers) and delete visible rows
      .AutoFilter Field:=Col1, Criteria1:=strCriteria1
      .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With

Code works great for deleting visible rows until i try to remove rows based on a criteria of:

strCriteria3 = "*----*"

The data filters correctly using this criteria but when I get to the:

.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

Portion of the code. The rows are not deleted.

Do you know of any issues with having nothing but

[TABLE="width: 1000"]

------

-------------------------

--------------------------------

-----------------------------------------------------------

[/TABLE]

in a row and why this code would fail on those lines?

Thank you,
Donald

Re: Delete Excel Rows Using Auto Filtering .SpecialCells(xlCellTypeVisible).EntireRow

Hey Dangle,

Thanks.

Attached is the .xlsm and the .txt that is uses.

Donald

forum.ozgrid.com/index.php?attachment/44314/forum.ozgrid.com/index.php?attachment/44315/

Re: Delete Excel Rows Using Auto Filtering .SpecialCells(xlCellTypeVisible).EntireRow

When I get to this line while steping through the code:

.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

For strCriteria3

It does not delete visible cells. It does for you?

With rRange 'Filter, offset(to exclude headers) and delete visible rows
      .AutoFilter Field:=Col1, Criteria1:=strCriteria3
      .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With

This is what I am left with:
[ATTACH=CONFIG]44316[/ATTACH]

Re: Delete Excel Rows Using Auto Filtering .SpecialCells(xlCellTypeVisible).EntireRow

It is an issue with the number of records in my range. +20,000 is no good.

I gave you a small data sample.

found this on it:
http://www.ozgrid.com/forum/showthread.php?t=39623

Thanks for your help dangle.