Sheet synching

  • Thread starter Thread starter TeeSee
  • Start date Start date
T

TeeSee

How can I synch 12 monthly sheets at the same level ... Meaning if I
want sheet 1 to be at a level of cell A30, I would like all 12 sheet
to be at the same level as I go from one to the other.
Thanks
 
TeeSee presented the following explanation :
How can I synch 12 monthly sheets at the same level ... Meaning if I
want sheet 1 to be at a level of cell A30, I would like all 12 sheet
to be at the same level as I go from one to the other.
Thanks
Click to expand...

Group the sheets and select A30 on any 1 sheet.

To group sheets:
Non-contiguous
Hold down Ctrl and click the tab of each sheet you want in the group.

Contiguous
Select the 1st sheet and hold down Shift and click the tab of the
last
sheet you want in the group. (All sheet between 1st/last will be
selected)

To ungroup sheets:
Right-click the tab of any sheet in the group and select
"Ungroup Sheets".

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
TeeSee presented the following explanation :


Group the sheets and select A30 on any 1 sheet.

To group sheets:
  Non-contiguous
  Hold down Ctrl and click the tab of each sheet you want in the group.

  Contiguous
  Select the 1st sheet and hold down Shift and click the tab of the
last
  sheet you want in the group. (All sheet between 1st/last will be
  selected)

To ungroup sheets:
  Right-click the tab of any sheet in the group and select
  "Ungroup Sheets".

--
Garry

Free usenet access athttp://www.eternal-september.org
Classic VB Users Regroup!
  comp.lang.basic.visual.misc
  microsoft.public.vb.general.discussion
Click to expand...

Garry Thanks for your response. You are of course quite correct and I
had tried that but didn't quite "get it" that the A30 cell was off
screen. The question I should have asked is ....
Is it possible to get the A30 cell at the top left corner of my
screen? The twelve individual monthly sheets are identical in layout
and I would like to be able to view the same data on each sheet as I
move from month to month.

Many thanks again.
 
Try using ScrollRow and ScrollColumn...

Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
wks.Activate:
With ActiveWindow
ScrollRow = 200: ScrollColumn = 1
End With 'ActiveWindow
Application.GoTo Range("A30")
Next 'wks

Note that if row 30 is visible there will be no shift, so scroll deep
and bounce back. (This also works with FreezePanes)

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Rather than scrolling and bouncing back, this slight modification worked well for me:

Sub ScrollSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
wks.Activate:
Application.Goto Range("A30"), True
Next 'wks

End Sub
 
It happens that Ben McClave formulated :
Rather than scrolling and bouncing back, this slight modification worked well
for me:

Sub ScrollSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
wks.Activate:
Application.Goto Range("A30"), True
Next 'wks

End Sub
Click to expand...

Ben,
Yes, I forgot about the Scroll arg for Goto(). Much better approach!
Thanks...

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Back
Top