Activate not Select, Apply special filter and delete visible cells

[Rowland Hamilton]

Folks,

How do I change this code so that it does not have to select the cells, but can activate them instead?

'Delete Filtered Rows
    Application.CutCopyMode = False
      Range("a2", Selection.SpecialCells(xlCellTypeLastCell)).Select
      Selection.SpecialCells(xlCellTypeVisible).Select
      Selection.EntireRow.Delete

I read activating also slows data processing, but I don't think I have a choice, there.

Thanks, Rowland Hamilton

 

[JLGWhiz]

Folks,

How do I change this code so that it does not have to select the cells, but can activate them instead?

'Delete Filtered Rows
    Application.CutCopyMode = False
      Range("a2", Selection.SpecialCells(xlCellTypeLastCell)).Select
      Selection.SpecialCells(xlCellTypeVisible).Select
      Selection.EntireRow.Delete

I read activating also slows data processing, but I don't think I have a choice, there.

Thanks, Rowland Hamilton

Be sure you try this on a copy first, or you might lose your data.

'Delete Filtered Rows
    Application.CutCopyMode = False
      Range("a2", Selection.SpecialCells(xlCellTypeLastCell)).SpecialCells(xlCellTypeVisible).EntireRow.Delete

 

[Rowland Hamilton]

Thanks, JLG Whiz. Your adjustment consolidates the code lines, but I was meaning to replace all selections with activations.

 

[JLGWhiz]

If you tried the code as modified and it worked, then the answer is to get rid of the Select and Activate altogether. They are not really needed for the code to work, if the code is constructed properly. But you can, in most cases use Ativate anywhere you see Select. The problem arises when you try to use Selection to reference an Active item that was not selected. That would throw an error. I would suggest that you search around on the web for articles on the subject or check some of the free tutorial sites to get a better understanding of how it works. It is too much to try and explain in this forum.