VBA to determine if rows are visible on the screen?

[Matty]

Hi All,

I'm after some code to test whether rows 1:7 and are rows 129:135 are visible on the screen. Since different screen sizes/resolutions show different things, I need this test to be carried out before further code executes.

Can anyone suggest how this could be done?

Thanks,

Matty

 

[Rick Rothstein]

Hi All,

I'm after some code to test whether rows 1:7 and are rows 129:135 are visible on the screen. Since different screen sizes/resolutions show different things, I need this test to be carried out before further code executes.

Does all rows of those ranges have to be visible or would knowing if at least one row of those rows is visible be enough?

 

[Matty]

Hi Rick,

If the test was just against row 1 and row 129, that'd be fine.

Thanks,

Matty

 

[Rick Rothstein]

Hi Rick,

If the test was just against row 1 and row 129, that'd be fine.

These lines of code will report True if Row 1 and Row 129 are visible, False otherwise...

IsRowOneVisible = Not Intersect(Rows(1), ActiveWindow.VisibleRange) Is Nothing

IsRow129Visible = Not Intersect(Rows(129), ActiveWindow.VisibleRange) Is Nothing

 

[Matty]

Thank you, Rick. I will try out your suggestion.

Matty

 

[Squirrel22]

These lines of code will report True if Row 1 and Row 129 are visible, False otherwise...

IsRowOneVisible = Not Intersect(Rows(1), ActiveWindow.VisibleRange) Is Nothing

IsRow129Visible = Not Intersect(Rows(129), ActiveWindow.VisibleRange) Is Nothing

Rick, your solution is simple, that's is what I was looking. Many thanks.