Synchronize Scroll And Zoom Level Across Sheets Automatically
Feb 4, 2013
I'm looking for a code to have all the sheets in my workbook scroll together and adjust their zoom level. For example, if I zoom to 70% on Sheet 1 and scroll down to display cell J93 in the bottom left corner, I would like Sheet 2 to also be at 70% and have J93 be at the bottom left corner when I click on it.
Preferably, I would like for the sheets to adjust accordingly only when I click on them and for the macro not to have to loop through each one whenever I change one sheet (my workbook has 52 sheets for weeks of the year, plus summary sheets, so it would be very draining for it to loop through each).
I've already found a macro to have the scroll match across sheets as I adjust and click on them, but I was hoping for a code that would incorporate synchronized zoom into it as well.
View 1 Replies
ADVERTISEMENT
Dec 22, 2013
I've created a shared spreadsheet with multiple sheets. All the content was created to be visible without having to scroll at 87%. My question is can I protect or lock the zoom level so that when anyone else opens the spreadsheet, it will only be visible at 87%? I have my screen resolution at "Smallest" so not sure if that too will affect the viewing level.
View 7 Replies
View Related
Dec 8, 2006
I have a workbook of 6 Sheets, what i want is that if i scrolled or zoomed one of the sheets i want all other sheets to be scrolled and zoomed accordingly identically.
to explain more: say I'm on "sheet1" and I scrolled down so i'm seeing range(K225:X250), now if i switched to any of the other sheets i want them all scrolled to the same range. so whatever sheets i choose i want to see range(K225:X250) in the same viewing properties "zooming".
View 9 Replies
View Related
Jun 30, 2008
Sub CreateRectangles()
X = 1
Do Until ActiveCell.Offset(X, X).Value = 0
X = X + 1
Loop
variable = Round(-0.026 * (X * X * X) + 0.56 * (X * X) + 24.7 * X + 5, 0)
Set Box = ActiveSheet.Rectangles.Add(ActiveCell.Offset(0, 0).Left, ActiveCell.Offset(0, 0).Top, variable, variable)
With Box
.ShapeRange.Fill.Transparency = 0.3
.Font.Size = 18
.Font.Name = "Trebuchet MS"
.Text = ActiveCell.NoteText
End With
End Sub
View 3 Replies
View Related
Feb 21, 2008
I've used various "zoom" searches and can't find what I need. My users have different amounts of toolbars so the amount of screen space changes. I need to zoom so 4 graphs show. Am looking to enable the user with a scroll bar where the user could click / slide the control to change the zoom size on the screen so they can see the 4 graphs at their preferred "zoom".
I would prefer a control on the sheet and link it to a macro (or line of code if that's the proper phrase) and let the user decide (some people will want bigger zoom due to eyesight etc).
Private Sub ScrollBarZoom_Change()
ScrollBarZoom.Value = ActiveWindow.zoom.Value
End Sub
But I get Runtime error '424': Object required. Auto Merged Post Until 24 Hrs Passes;Nevermind. I found it. Answer was:
Private Sub ScrollBarZoom_Change()
ActiveWindow.zoom = ScrollBarZoom.Value
End Sub
View 2 Replies
View Related
Dec 14, 2007
I am created a very simple account plan for colleagues in my team which is proving to be very poular with the exception of one thing.
I created the plan which is around 30 sheets on my laptops highest resolution setting. 1400 x 1050. Only one other colleague has this res available so of course when the rest of the team open it, it looks huge.
I need help with this as I'm still very new to excel, although learning very fast!
My preference for finding a fix for this would be to insert a scroll bar on each sheet that, when scrolled, changes the zoom of the page between a range of 50% and 100%. This may not be the best way of doing it but I'm trying to make the sheets as simple to use as possible as some of my colleagues are only just compuetr literate, let alone excel competent!
View 9 Replies
View Related
Feb 19, 2008
i have one main sheet, and two resource sheets. In main sheet i have resource and project Matrix and in top of the cell i can select the week number. in other sheets, i have week and project matrix for resource. Now what i want is if I enter some details in main sheet, those values should be automatically posted to Resource sheets.
View 2 Replies
View Related
Aug 7, 2008
I have two sheets: Sheet1 and Sheet2. I want the Column A in sheet 1 to look exactly like Column A in Sheet 2 so I enter to A1 in Sheet 1 ='Sheet2'!A1 and drag it down. However, when I enter a new row -let's say between row 4 and row 5 - in Sheet2, then A5 in Sheet 1 keeps the value of old A5 (new A6) in sheet2. I, on the other hand, want it to have the value of new A5.
View 2 Replies
View Related
Aug 31, 2009
I would like to link students for the 1st Nine Week list to the correct grade level as shown. I have attached a file.
View 2 Replies
View Related
Nov 28, 2008
I know you can predefine the level of zoom you want by using the ActiveWindow.Zoom control. I'm trying to find some code to Zoom in by a particular percentage. For example +10% zoom, so if you are currently on 90%, excel zooms to 100%, click again and then get a zoom of 110%.
View 3 Replies
View Related
Jun 8, 2009
I have a report with 5-8 sections on it. What I am trying to do is scroll down the worksheet when the first cell in each section is selected so that the user can see the whole section. I tried a something like this
View 3 Replies
View Related
Jun 3, 2008
Private Sub Workbook_Open()
Dim ws As Worksheet
Application. ScreenUpdating = False
For Each ws In Worksheets
ws.Select
ActiveWindow.Zoom = 75
ActiveWindow.ScrollIntoView Left:=0, Top:=0, Width:=100, Height:=100
ws. Cells(1, 1).Select
Next ws
Worksheets("Summary Form").Select
Application.ScreenUpdating = True
End Sub
This works dandy, except for one thing - it will select Cell (1,1) in each sheet, but when you go there, the view is still where it was last time. (Given the nature of the sheet, usually scrolled down to the end.) How do I make sure that the view is at the top of the page? So that A1 is not only selected, but at the upper left corner of the page? Is there a "Scroll to top" type of function?
View 2 Replies
View Related
Jul 31, 2014
Just to see how calculations were working out, I was trying to get a macro to scroll down the window as it calculated data.
Sadly, ActiveWindow.SmallScroll Down:=2 was too fast and =1 was too slow!
That's the only command I know to get this to work.
demonstration of a different command. Any way to get the window to scroll automatically to the cell which has just had information inserted into it?
Here's the VBA:
Sub CustomerCategory()
Dim Rng As Range
Dim Dn As Range
[Code]....
View 2 Replies
View Related
Sep 27, 2011
I have 25 sheets in the workbook and a combobox on the main page, The combobox references a range of 1-25 that represents the 25 hidden pages. right now i can get the sheets to unhide one at a time based on the selection e.g. combobox option 1 will unhide sheet 1 but the sheet are representing sites in a design so i need to have the option to select multiple sites in the combobox option so for example if i select 5 then sheets 1-5 should unhide. I hope I've explained that clearly.
The other question or option would be to just duplicate sheet 1 based on the combobox selection e.g. selection 5 duplicates sheet 1 5 times.
View 9 Replies
View Related
Oct 4, 2006
I am trying to keep two columns in my workbook "in-sync". I have two ways of representing this particular part of my data, and depending on the situation I would either edit numbers or edit the associated strings. Example: In one of my columns I have integers. In another those integers can be represented as Strings. Here is an example of the relationship:
integer string
0 C0
1 C#0
2 D0
3 D#0
4 E0
....
12 C1
13 C#1
etc................
View 6 Replies
View Related
Jan 4, 2008
I am trying to sync two spreadsheets. Say for example. I have Intl and finance spreadsheets. My header is row 1 in both the files.
1) I want to copy missing fields in header to desired spreadsheets
2) I want to copy the data as well.
View 3 Replies
View Related
Jun 6, 2009
I am trying to track price and status changes from week to week.
If a # appears in columns A, D, G simultaneously, then change in price (plus or minus) needs to be calculated.
If a # appears simultaneously in columns A and G, but not in D, then column H should read "SOLD" for those entries.
If a # appears simultaneously in columns D and G, but not in column A, then column H should read "NEW" for those entries.
The desired results (shaded yellow) need to be sorted in chronological order using column G.
This is a small excerpt from a much larger data set which includes 100s of rows and the number of rows vary each week....
View 12 Replies
View Related
Nov 26, 2007
I am using the toolbox/ properties method to restrict the scroll area in the sheets of my workbook. However, for some sheets when i keep the right hand arrow pressed, the screen will not scroll to the last column. (i.e. the screen display will not move with the selected cell box)
View 2 Replies
View Related
Jan 17, 2008
I am trying to write a macro that can copy the shading from another cell for me automatically. I would like to look for certain text strings within a serial number, and when found, copy that cell's shading in another cell.
I am using INDEX, MATCH to copy the corresponding value needed, but that doesn't give me the shading...
View 6 Replies
View Related
Apr 25, 2008
Range B9:B58 and I9:I58 data set 1 (worksheet Deal Selection)
Range J5:J18 and L5:L18 data set 2 (worksheet Tables)
Identical tables. Taking worksheet Deal Selection as our starting point column(s) B and I
If the user adds a new supply customer in column B then I would like this new customer to be
Reflected in worksheet Tables column J5 at the end.
And visa versa for column I add to column L5 at the end same work sheet.
I am guess that this could be done by amending the current macro button
Add Supplier and Add Demand on both side(s). but not removing it current functions
I have also added the question to another forum experts exchange as i am have difficult completing this task.
View 5 Replies
View Related
Apr 19, 2013
Working with Windows 7 and Office 2010
I've created a Excel workbook with VBA code to synchronize an Access database between a laptop and a server. One of the fields in the database is a shortcut to a jpg for each record. (The Access stuff is not too important here)
Now I'd like to add the ability synchronize the photos between the laptop and the server; so people who use the server can view the photos added by the laptop and vice versa.
Something like:
Code:
For each [JPG] in [LaptopFolder]
If not [JPG] exists in [ServerFolder] then
filecopy [LaptopFolder][JPG], [ServerFolder][JPG]
end if
next [JPG]
That code wouldn't work.
View 4 Replies
View Related
Jan 13, 2007
In the menu via TOOLS-->OPTIONS-->VIEW I am trying to remove the scroll bars from just one worksheet but when unticked, this option affects all of the worksheets in my workbook. Is there a way to just nail this selection down to one sheet via properties?
View 2 Replies
View Related
Feb 5, 2014
How do I get sheets names automatically? I.E. I want to get in A2 sheet number 2 name. In A3, sheet number 3 name...
View 1 Replies
View Related
Jul 20, 2013
I am working on a macro which transfers data from one sheet to another. The code starts by taking cells M1:P1 from sheet SL_Background and moving them to B9:E9 on sheet CreateSL. It then moves to the next set of four cells on SL_Background (Q1:T1) onto the next line down on sheet CreateSL (B10:E10). I am repeating this process about 180 times right now and it is all coded like this:
VB:
Sheets("SL_Background").Select
Range("M1:P1").Select
Application.CutCopyMode = False
[Code]....
So what I would like to do is to make something that automates this process and will eliminate more than 1000 lines of code.
View 9 Replies
View Related
Nov 30, 2008
I have a sales sheet that records every sale as it comes in. I want it to copy the relevant information (only that sales reps sales) into each sales reps individual sheet automatically so that I can send each rep his own sheet. Can this be done? SEE ATTACHMENT
View 2 Replies
View Related
Dec 5, 2007
I have made a daily planner for each month. The dates are on separate sheets which are titled 1st Dec 07, 2nd Dec 07 and so on.
This is also included on the actual sheet as well in the form of a heading. I want to know if it's possible to automatically rename the text on the sheet to what the sheet is called?
Or if the first sheet has a title of '1st Dec 07' how can I get the other sheets to automatically be titled in sequence so I don't have to do it manually?
View 14 Replies
View Related
Nov 25, 2008
I'll be as succinct as I can, and I'm sorry if this question has been answered already. I've had a look at past posts and can't seem to find anything.
My service has an Excel workbook of patient details. These details are separated across three sheets called 'Generic', 'Heart Failure' and 'Falls and Fracture Management'.
The columns in each sheet are the same. Every month I produce a single report of data from columns A, B, L, Q and R in each sheet.
I've been doing this by copying/pasting each of those columns from 'Generic' individually into a new sheet, then putting the same data from 'Heart Failure' underneath, etc., then manually deleting all rows that contain a blank in any cell.
Is it possible that VBA code can be written to do this? I don't know anything about codes; I know I could achieve the same effect with linking, but it seems that this would be unreliable.
View 12 Replies
View Related
Jun 30, 2012
I am trying to copy data from three separate tables (from sheet 1, 2 and 3) into 1 table (sheet 4). I do not want to combine the data, instead have all of the data in one place.
I have tried the consolidate function, but am not having much luck?
View 6 Replies
View Related
Sep 14, 2009
Our company has designed a Excel Document for quoting purposes. The problem we are having is that certain sheets that are needed to do the quote do not need to be used after the quote is finished and saved. These extra worksheets are taking up a lot of room on our server. In the document I have already disabled the save feature so that the saveas has to be used. Is there code that can delete sheets 3, 5, 6, 7, 8 upon doing a save as?
View 4 Replies
View Related
Dec 28, 2006
I would like to be able to use the before save event to hide some sheets before the save then after unhide some sheets. So that the user carrys on with the sheets they had before saving but when the document is reopened the correct sheets are hidden.
This is what I have so far but unfortunately when you click close and then save changes it runs the before save code and then goes around in circles, reasking the user if they want to save changes
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
Cancel = True
Application.EnableEvents = False
Sheets("Protected Content").Visible = True
For Each ws In Worksheets
If ws. Name <> "Protected Content" Then ws.Visible = False
Next ws
Me.Save
For Each ws In Worksheets
ws.Visible = True
Next ws
Sheets("Protected Content").Visible = False
Application.EnableEvents = True
End Sub
View 3 Replies
View Related
