VBA ScrollArea = "Range"

[Pinaceous]

Hi All,

Is there a way to VBA ScrollArea all of the EVEN sheet numbers to

"A1:L80"

AND ScrollArea all of the ODD sheet numbers to

"A1:BK80"

??


Thank you!

Pinaceous

 

[My Aswer Is This]

Re: VBA scroll area for odd sheets

2013 Windows 10. I noticed it skips some sheets if I do not use activate. I tested on about 6 sheets.

@MAIT
Whilst I agree that the scrollarea is lost when you close the workbook, for me it works on on inactive sheets.
I'm running the 32bit version of 2013 on win7, what are you running?

 

[MARK858]

Re: VBA scroll area for odd sheets

I don't really see why this question hasn't just been put as a continuation of the thread below...
https://www.mrexcel.com/forum/excel-questions/1025813-vba-scrollarea-range.html

 

[Pinaceous]

Hi mrshl9898,

Thanks for updating your code!

-Pin

 

[Peter_SSs]

Re: VBA scroll area for odd sheets

I don't really see why this question hasn't just been put as a continuation of the thread below...
https://www.mrexcel.com/forum/excel-questions/1025813-vba-scrollarea-range.html

Me either, now merged.
@Pinaceous
Please refer to the Forum Rules (#12)

 

[Pinaceous]

Re: VBA scroll area for odd sheets

I appreciate that y'all by combining my posts. I really didn't know how to. I though by asking an opposite question that it should be a separate thread. Thank you y'all for your patients.

 

[Peter_SSs]

Re: VBA scroll area for odd sheets

I though by asking an opposite question that it should be a separate thread.

If it was a different question that would probably have been fine. However, the new question appears to be identical to part of the original question.

Is there a way to VBA ScrollArea all of ... AND ScrollArea all of the ODD sheet numbers to ??

.. set a scroll area for all of my odd sheet numbers in my workbook.

 

[Pinaceous]

Re: VBA scroll area for odd sheets

Hi Peter,

Thank you for clearing that up.

I'll be sure to link in the future.

Sorry about that!

Pinaceous

 

[Pinaceous]

Re: VBA scroll area for odd sheets

Okay Everyone,

How would I apply this code:

Sub SetAllScrollAreas()
Dim i As Long
 

For i = 1 To Sheets.Count Step 2
    Sheets(i).ScrollArea = "A1:BK80"
Next i
 

For i = 2 To Sheets.Count Step 2
    Sheets(i).ScrollArea = "A1:L80"
Next i
 

End Sub

To perform this code but OMIT it from happening on Sheet3??

Where Sheet3 will not have a scroll area lock applied to it??



Thanks,
Pinaceous

 

[Peter_SSs]

Re: VBA scroll area for odd sheets

To perform this code but OMIT it from happening on Sheet3?

Assuming that means Sheet(3)

For i = 1 To Sheets.Count Step 2
  If i <> 3 Then Sheets(i).ScrollArea = "A1:BK80"
Next i

 

[Pinaceous]

Re: VBA scroll area for odd sheets

Thanks Peter ! Your a gem !

PS your right to state that I meant sheet3 is actually sheet(3)