Active cell = visible cells

[Lorlai]

I have run filter through my data to make it smaller. However, when I run a loop

Do

ActiveCell.Offset(0, 1).Select

If IsEmpty(ActiveCell) Then
        ActiveCell.Offset(1, 0).Select
    ActiveSheet.Cells(ActiveCell.Row, 1).Select
    End If

Loop Until IsEmpty(ActiveCell)

This will loop through ALL of my data, not just my filtered data. Is there a way to make this so that the activecell will only become the visible filtered cell?


Thank you!

 

[Smitty]

Your code doesn't really do anything (nothing useful anyway), especially noting that it's rarely ever necessary to Select anything, and it's horribly inefficient.

If you're trying to select the Visible cells after filtering you can use Goto (Ctrl+G)-->Special-->Visible Cells only.

Otherwise can you let us know what you're trying to do?

 

[Lorlai]

That code was more of a test, what I am trying to do is explained in this post.

Basically I have two sheets that I comparing cell by cell, trying to find changes. My data is so large that my code breaks every-time I run through it. I am trying to reduce the amount of code by applying a filter. However, my code in the post still runs through EVERY cell, not just the visible ones.

Is there a way to just go through the cells I have made visible through the filters? This will reduce the data from 9300 rows to 800 (Much better!)

 

[Smitty]

Then please continue in your Original Post. That way everyone can see what got you to this point.

As for only working with visible cells look in the VB helpfile for the SpecialCells method.