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.
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.
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".
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)
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
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!
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.
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.
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%.
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
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?
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.
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:
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)
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...
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]
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?
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:
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
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?
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.
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?
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?
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
