Limit Scroll Area - Code Activates Only On Mouse Or Keyboard Input
Apr 21, 2007
I have a worksheet that serves as a navigation page for the workbook and use the following code to restrict from scrolling off the viewable content. The problem is that the code doesn't kick in until either a click if the mouse or keyboard input. This initially leaves the worksheet open for scrolling until input is received.
How do I make this code activate when the wb is loaded? Code in the Thisworkbook module already makes the menu the visible sheet, and code limiting the scroll area is in the sheet module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.ScrollArea = "A1:L11"
End With
Range("A1").Activate
End Sub
I've also tried using "Range("A1").Select", but it doesn't work either. How can I get this to work correctly?
I want users to be able to scroll top-down or sideways up to a certain point only. What is the VBA code to accomplish this? Let's say for example I want to limit scrolling from A to L rows 1 to 50 only.
I have seen some code around that allows scrolling in listboxes using the mousewheel. I have also seen some code here on the forums about scrolling through a combobox embedded in a workbook. I have tried adapting both of these to suit a combobox on a userform but I cannot get either to work.
Here is the code that I used for the embedded combobox; I added it to the base code for the userform
I then added the following code to a standard module as stated in the forum post;
In the first section of the code there is a msgbox that never gets shown so I don't think code is recognizing the mouse wheel at all.
The second set of code that I used was set up to work with a listbox and it works perfectly with a listbox control. The problem is I cannot adapt it to suit a combobox and if I use a breakpoint to see what is happening Excel freezes. The following code is added to the userforms code;
Then in a standard module I added the following code;
I added this section of the code;
I think this should only work on a Combobox but a Combobox does not appear to support the TopIndex value. Is there a way this can be setup to work with a userform combobox? Sorry about the huge amount of code.
Is there a simple way to trap mouse and keyboard events in Excel, only within a VB loop, and then return to normal behavior after exiting the loop? That is, I want to know if a key is pressed (and what key) or the mouse clicked and not have it affect the spreadsheet. I don't want the key pressed to type into the spreadsheet.
I recently upgraded to Excel 2007. I use Excel with "Allow editing directly in cells" unchecked. In previous versions, pressing F2 would not prevent me from using the mouse scroll, but in Excel 2007 I am unable to mouse scroll which makes it bothersome. Is there a setting somewhere that can enable mouse scroll after pressing F2?
I am having problems with an Excel workbook I am working on. I have a sheet that has a number of controls added to the top of it. Two of these controls are listboxes. My problem is, if I am in the listbox navigating through it, and I accidently move the Mouse Wheel, Excel crashes and I get the usual, "Send Error Report" form.
I have seen that there are other people having this problem and that there are a number of solutions out there but my problem is a bit different. I have a few forms with listboxes on them, and while mouse wheel scrolling doesn't work, it certainly doesn't crash Excel. It only seems to happen when I have a control permanently added to the sheet. Is there any event handler for mouse wheel scrolls or anyway to disable them through VB?
I'm trying to do a few things actually. I am somewhat a newb at programming, although I do understand how C++ and the coding works within Excel. To me, it's like the English language...knowing all of the vocabulary and formatting it right is important. If I don't know the vocabulary, I don't know what options I have.
This tool is being used in the call center I work in. It is to help eliminate repititious information used to notate accounts. I have attached a picture of what the tool looks like so you can have a better idea of what I'm working with. Here are a list of things I'm trying to do which I have searched and not found answers to:
1. I am trying to use a middle mouse scroll to scroll through validation list. This list information is located on a different locked tab. Basically, I have a few rows where a drop down selection can be made and it would be easier to scroll rather than manually moving the slider within the validation list.
2. As you can see, this "tool" an employee and I have created has many buttons. What I would like to do is to be able to click a button on the right and have it "stack" text within a single cell. In other words, if I click the button once, the text may be entered into the "actions taken" cell. If I click another button, I can have the option (or maybe a little "+" next to the button) to add this button's information to the end of the information already entered within the "actions taken" box. I've tried recording and using the keyboard and selecting "end" and then having the text added, but it didn't work. I've seen "loop" VBA code, but I don't want something to repeat, I want it to stack in the cell when clicked manually.
I'm sure there is a way to make the tool much better using VBA code and not use Excel, but I don't have an extensive knowledge of Excel to do something like that. I'm a very fast learner and understand how the coding works, so if you have an idea which may help, and you understand what I'm trying to do here, please provide your .02.
Basically, it's used so the Customer's name and phone number are entered manually, and then just about everything else is automated by the use of the buttons on the right. If I could get the 2 above options to work, it'd be perfect. I just figured out I could eliminate screen flicker and hide the macros working by using:
I'm using Excel 2007. When I try to scroll with the mouse wheel, it doesn't do anything. If I hold down the control key and scroll with the mouse, it zooms in and out. So that works fine, but I can't do the basic scrolling up and down the document with the mouse wheel. There is no "Tools, Options" menu in 2007 so I don't even know where to find this type of option. The options available from the Office button are completely different.
I've just inherited a load of Excel files I need to continue using, but my predecessor has done something that disables the middle-click scroll ability.
I can still scroll up and down by turning the wheel, but I want to be able to click it and scroll in all directions at speed - I didn't realise how much I used this until I couldn't. Can't see anything in the VBA sheet properties, and they are all .xlsx files. Nothing leaps out of the settings either. If I create a new file or a file of mine within the same session, they work fine.
I'm trying to set a variable for a range based on the cells selected. For example, I want variable "myrange" to be set to range("A1:D14") if I click on cell A1 and drag it to D14. So far everything I've tried ends up getting the good old "1004 - Application defined or object defined error".
I have a spreadsheet form with a bunch of cells receiving and writing data via vba. On the form is a search box. The data is on the same sheet as the form to prevent flickering by activating another sheet. The problem is that I cannot select the search area and set the scrollarea or the "Find" quits after the first find:
if I have 2 jacks then it will find the first and not the second.
If I don't set the scrollarea of course it goes to the selected cell and moves the form out of the picture.
If I select a cell in the form area after the search, the "Find" is reset to the beginning and locates the same cell again.
Ive tried disabling scroll on sheet 1 of my workbook by entering the cell range into the properties window in VBA. However when I save the sheet and reopen it, it seems to reset and are able to scroll again.
I tried using the following:
Private Sub Worksheet_Activate() Worksheets(1).ScrollArea = "A1:Q51"
End Sub
and a few variations of the above but this dosnt seem to be working. The only other code I have in the workbook is under "thisworkboko" which is this:
Private Sub Workbook_Open() Application.DisplayFullScreen = True
I use all of column A, B, and C, but i only use D1 to H44 other than that. Is it possible to hide everything to the right of Column I and below D44:H44, but leave the scroll area for columns A B C able to scroll to the bottom?
There are a series of input cells in a protected worksheet and when the user hits an enter, tab or arrow key, the selection cycles through them in order. The cycle also restarts when the mouse clicks one of the cells out of order. After I switch worksheets and return to the first worksheet with the code, first it says there is a "Compile Error: Sub or Function Not Defined" and the code "Call SetKeys" in Sheet1 is hilighted. When I ignore that and stop the debugger, there is a "Run-time error '13' Type mismatch" and the code line "If arrIndex > 0 And arrIndex < UBound(arr) Then" is highlighted.
My question is: why doesn't the code work after I switch worksheets? especially given that it works perfectly before I switch worksheets. (ie the file opens on sheet 1 and everything is perfect, click sheet 2 tab and back to sheet 1 - nothing works) I also have yet to figure out why it seems to be necessary to post the same code in both ThisWorkbook and Sheet1.
Private Sub Workbook_Open() 'This code allows the user to change the unlocked cells, but protects each worksheet Dim wSheet As Worksheet For Each wSheet In Worksheets wSheet.Protect Password:="mypassword", _ UserInterFaceOnly:=True Next wSheet............................
In the range A1:H89 I have expanding and retracting values - all of which is determined by the numbers in column A. Column A is simply A1+1 copied down. The value of A1 is determined by the value of another cell, based on age. If the value in column A exceeds a specific figure (let's say 50), formulas in columns B - H result in answers of "" (this is "nothing"?). Assume that the value of 50 is reached in A20. All cells from A21 (inclusive) down, including B21 - H21, will have the values "" in them and show up as nothing on my screen. When I print, I'd like to only print those cells where data is, i.e. cells A1:H20.
Sub Drukwerk() With ActiveSheet.PageSetup .PrintTitleRows = "$7:$9" .PrintTitleColumns = "" End With LastRow = Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = "A1:H" & LastRow ' ActiveSheet.PageSetup.PrintArea = "$A$1:$H$89" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "".......................
I am just starting to get my feet a little damp with VBA and I am trying to make a macro that will act whenever any text is entered in any cell within a 3x3 square. Whenever any text is entered in any of those cells I would like it to enter a text ( "X" ) in a cell which is specified by a cell in the spreadsheet (this cell will output which cell the macro should write the text in in this format "A:1" or "C:3"). How can I make the program act only in reaction to the user entering thier text, and also, how can I get the macro to read A:1 and enter the text into that specific cell? Any help would be so awesome, the book I have is really difficult to navigate.
I have problem with inputbox which I can not select the cell by dragging the mouse. Means user have to enter manually the range into the textbox. At below i attached the code and picture of inputbox dialog box.
i am using MS office 2003.
Set GetRange = Excel.Application.InputBox(Prompt:="Select a range:", Title:="Tes", Type:=8)
How do I adjust the VB code below so when the user clicks the command button they are prompted to set a limit. i.e the code only runs til it hits the limit and stop (instead of running until it there are no more x in the columns)
Row 2, Col 9 stores the column numbers (listed as 1, 2,.....100) so thought this could be used in some way.
1. how do i set up the code so a user can enter a parameter value e.g 50 (which is the limit but also includes the values in column number "50")
2. how do i adjust the code so it take the parameter value and stop when it reaches column number "51"...
I have a code that I need to limit the entries allowed on an input box. I have got it limited to a single value ("S1") but I need to add a second ("S2"). If "S1" or "S2" is not enter I need the input box to reappear until the right value is entered.
My code:
Code: Repeater: dbl = InputBox("Enter the S1 or S2 for the rack location you are using", "Rack", "S1", 5, 275) If dbl "S1" Then GoTo Repeater End If
Any way to limit the date a person can input to the fourth business day of the following month. So limiting the date the 06/05/2014 for instance. Would there be a way to keep this updating so manual updating would be unnecessary?
Is there a way to limit say a value to be inputted into a cell say between 1 and 10, and to have a warning message pop up if any other values are keyed into that particular cell?
In the attached file and when I click on Name or ID (B5 or B6) the input msg will appear on the same cell using the validation rule.
Actually I need any input msg to appear in the other area where i put the arrow. I tried to move the input msg to that Irea and it worked great each time i click on B5 or B6 but after closing the file and opening it later.. they will go back to the same place.
I need a way to divide-up an area exactly after user input. If an answer exists, once I know how to divide say the width, I can use the same solution to divide the height. In that case I'll concentrate here on the width only.
- The user puts in a width of say 11300mm [11.3 meters], I then need to divide that by a maximum with, say 2000mm [2 meters].
- Obviously that doesn't fit exactly coming to 5.65 and I need a whole number, thus I then need excel use a figure under my maximum of 2000mm until dropping about 1883mm, it gives me the whole number of 6 rather than 5.65.
I'm no expert with Excel but I do use things like LOOKUP, VLOOKUP, IF, ISNU, validation list and things like that.
Basically this is to divide the area of a flat roof into lead bays, and as lead bays have a maximum size, I need a way to calculate how many bays there are vertically and how many there are horizontally off user input (width & height).
