Worksheet Get Focus
I've got a worksheet with a cell called "cellName" and a button "cmdSearch". When I enter a string in cellName and press cmdSearch a query is done on a database and the result is returned to the form. Now, when I enter text into cellName I then have to click on a different cell before I can click on cmdSearch. What I'd like to do is have cmdSearch take focus if I press enter in cellName. I know how to do this with a UserForm, but I like having all of this on the worksheet and not dealling with a popup box.
View Complete Thread with Replies
Related Forum Messages:
Returning Focus To The Worksheet
I've made a non-modal 'Toolbox' form that floats over my worksheets. When a button is clicked a graphic item is copied from a hidden sheet and pasted into the current sheet. The graphic remains selected but the toolbox form takes the focus away from the sheet. When the user wants to move the graphic there is no problem in mouse-dragging but I'd like the user to be able to nudge the graphic using the keyboard arrow keys without having to click to give the sheet the focus. So, I guess the question is: How can I give focus to the worksheet following the Paste action?
Return Focus To Worksheet From Userform 2007 Vs 2000
I have a workbook developed in Excel 2007 (compatibility mode) that contains Userform4. This form can be displayed (or not) depending in the wishes of the user. What I am trying to do is return focus to the worksheet after the UserForm is displayed.
When the worksheet is activated, I have the following .........
Next Row Focus
I have the following code which copies specified cells from one sheet to the next available row on another sheet. I would like to keep the next available row somewhere near center focus on the display. Can I use the variable 1Row to do this, or maybe 1Row plus or minus 20 depending on how I want it displayed on the screen?
Which Control Has Focus
is there any way to know if a COMBObox has the focus?
* * *
I have a ComboBox and when I press ENTER inside this comboBox a run a Macro
Private Sub CbFormularios_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
some times I am inside the ComboBox and one of the Item whithin this combobos is Selected, but stead of pressing the enter keyboard I press a commadButton but to run the macro attached to this command button I have to know if the cursor of my mouse is whithin the ComboBox "Over the comboBox". kind of:
If ActiveSheet.Cbox1.Value Is Not highlited Then call Macro1
Textbox Set Focus
I am using the following code to validate text entry in Textbox1 of a userform. I want that if the user enters a numeric value than a msgbox should popup and then cursor should get focus on Textbox1. But with this code, it is setting focus on textbox2 and not on textbox1.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1.Text) Then MsgBox "Please enter TEXT value only.", vbInformation + vbOKOnly
Takes Focus When Printing
I am running software that calls an Excel macro using DDE. The macro populates a sheet with information to be printed, then prints the sheet.
I would like for this to take place in the background with Excel never taking focus from the software that calls the Excel macro. Currently Excel some times takes focus from the software and some times does not. The macro also takes the information it prints and stores it to another sheet, but I don't think that's the culprit stealing focus from the other software.
Focus Not Setting Correctly
I have a userform with several inputs which are validated, and should the input be invalid an ErrorProcedure is run. This basically displays a message telling the user what is wrong, and it should also be highlighting the text in the relevant field, but for some reason it is not doing that.
Giving Back Focus
I've got a Macro that generates three reports for me, one at a time.
After a report has been generated it creates an Email and attachs the report to the Email, I then check the report is ok before sending out.
The problem is, that once the first Email has been generated Excel is pushed into the background and the macro sloooooooows down.
I believe (though I will quite happily be wrong) this is because Excel is no longer the PC's main concern.
What I was wondering was, is it possible to bring Excel back to the foreground once the Email has been generated.
Move Focus To The Control
I had to reset my excel on friday now today I'm getting an error when opening up an workbook. The error is " Cant move focus to the control because it is invisible ,Not enabled or type that does not accept focus. I have this code in a workbook when the workbook opens
Remove Focus From Form.?
I have an active form that is always in focus. I would like to be able to seamlessly transition back to the worksheets under it, and move back and forth between the worksheet entry and form entry. Is there some way to alter the focus between events to do so (like a mouse over type event)? Currently, I can only exit the form to get back to the worksheet. excel 03 sp3
Change Focus Between Applications
I am using MS Word to create a list to go into Excel, it seems advantageous to do it this way because I'm using the Heading Outline Numbering feature of Word.
Presently my macro assumes the word document is closed. How do I modify the macro to:
1. check if the file is open?
2. if already open, switch the focus to word?
3. switch the focus back to excel?
Dim FileToOpen As String
FileToOpen = ThisWorkbook.Path & "5Whys.doc"
' MsgBox "Active sheet is " & ActiveSheet. Name ' My check
ActiveSheet.Range("WordClear").Select ' Existing data to remove
Set appWD = CreateObject("Word.Application")
' here I would like to check if the word file is open
appWD.Documents.Open Filename:=FileToOpen '
appWD.Visible = True
Range("WTarget").Select ' Single cell range to start paste
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
' At this point word in the fore, excel in the back,
Focus To Return To Textbox
I have SS that I have 3 levels of users using/viewing data and at the moment it does not allow for errors when inputing password & sheet number to access. What I need is that if there is an error in password or sheetnumber ths user gets the choice to re-enter correct data with vbYesNo or similar. The problem I have is with these lines of code not getting the focus back to txtSheet to re-enter correct data (>0 & <13).
Private Sub CommandButton1_Click()
Dim shtNo As Integer
Dim R 'Response to msgbox
Dim rS As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Please enter a number 1-12." ' Define message.
Style = vbYesNo ' Define buttons.
Title = "Choose Month" ' Define title.
rS = Range("Scode").Value 'Staff password
Application. ScreenUpdating = False
If Not (txtSheet.Value > 0 And txtSheet.Value < 13) Then
Response = MsgBox(Msg, Style, Title).....................
Set Focus On Combobox
I have an application in excel in which a “combobox1” has been created on the main sheet of excel. Somewhere during the code execution the program requires input from the “combobox1”. What is the code required to highlight the “combobox1” allow the user to select from the box and then return control back to the regular code?
Change Sheet Focus From UserForm
I've got a userform for entering data in a workbook with sheets for each month. ie: Jan'06 , Feb'06, etc. I've added a combobox that looks at my list of these sheets and when a certain month is chosen I would like that months sheet to come up behind the userform, so that the data is entered there when the form is completed.
The other option is to not change the sheet focus but to direct the data to the appropriate sheet based on the combo box. (No matter what sheet is currently selected)
On a related note, I have a text box showing the last date entered and I would like to make shure that it is updated based on the sheet selected in the combobox.
Set Focus, If Thats The Correct Code
I have a userform with several fields located in it. For the most part, it looks like a user information form, Name, Date,, stuff like that. There is a field that the user enters some information, and using the afterUpdate function for the field, it searches to see if the value is unique. The problem is that when I tab from that field, if the value is not unique, I want the cursor placed back in that field (textbox). SetFocus doesn't seem to do what I want, unless I am using it incorrectly.
Hiding Focus Of PowerPoint Export
I am exporting from Excel into PowerPoint, and I am afraid of having a seizure after watching the export too many times. What is the best way to hide this or keep the focus on Excel?
I have tried many methods but have failed thus far. I have a modeless userform that opens up when the macro begins, but it always changes focus to PowerPoint. I have ScreenUpdating set to False.
Mouse Focus Changes After Script Runs
I have an annoying issue that occurs after running a reasonably long script involving a number of spreadsheets. The script all runs fine and leaves 4 output spreadsheets open for final manual formatting. However the mouse focus is changed by the script (somehow?) and no matter what I do the mouse wants to multi select cells. Clicking in a single cell always selects at least 3 or 4 cells and sometimes the whole column.
The only place in the code where I set any rules realted to selection is to set a file dialog to allow multi selection of files. That is
Retain Control Focus After Update
I'm trying to set the focus back to the field that triggers an AfterUpdate event.
Private Sub myField_AfterUpdate()
Code above sets the focus to the next field in the taborder instead of keeping the focus on the field (that didn't pass the validation) that triggered the AfterUpdate event.
Using Modeless Userforms And Losing Focus
I have an application where by the user only sees userforms which then writes the data to the back end worksheets. So the Menu or front useform I have set at vbModeless, which also means that the user can now open up or use an already opened spreadsheet. I believe I am correct in saying you can't do this if the userform is modal. Anyway this is what the user wants, i.e to be able work on multiple spreadsheets, whilst my app is open. The problem is when they click on one of the other open spreadsheets and then click one of the buttons on my application, you get an error.
I believe is because I use code such as
Where I haven't specified the actual workbook, so excel doesn't know where to go to find the userform. So how do I specify the workbook, without constantly having to change the line, when version numbers changes ?
For the next revision the file may be called Book1.1
Set Focus To TextBox On UserForm
On the summary page click on 'Enter Sale' and notice that Customer Advisor' text box gets the focus and the cursor is flashing. (Which is what I want). Enter any name and a sale value (say 'A' and '1') and click the 'OK' button
But when I tried to enter another sale the OK button still had the focus. So in the VBA Project / Forms / frm_sale / OK Click event - near the bottom
I added a set focus before the 'frm_sale.hide' - This removed the focus from the 'OK' box - but the cursor is still not in the text box, and it needs to be clicked in order to enter text. This is clearly something trivial I am missing - but the blinkers are on and I cant spot it
Determine Which Text Box Has Focus
I am using excel VBA userform and have the following elements:
(clicking on this button will insert today's date into either textboxA or textbox B. I use an accelerator 'D' so user can use Alt+D to insert the date conveniently.)
My question is: How can I determine which text box (A or B) is in focus when i execute Alt+D?
My objectives are: When focus is on textboxA, and user Alt+D, today's date will be inserted into textboxA When focus is on textboxB, and user Alt+D, today's date will be inserted into textboxB
My problem is: It seems that when I use Alt+D, the focus will jump to the command button instead, so none of the text box are in focus!
Trouble Setting Focus After Closing MsgBox
I am using the TextBox.Change method to test for numerical input. How can I highlight incorrect input after closing the MsgBox? The following code doesn't always work:
If Not IsNumeric(TxtStage1.Value) Then
Response = MsgBox("Numerical value required", vbExclamation + vbOKOnly, "Invalid input")
TxtStage1.SelStart = 0
TxtStage1.SelLength = Len(TxtStage1.Text)
Set Focus To A Textbox When Userform Opens
I'm creating a userform for editing membership records of a small organisation. So I want the focus to default to textbox tboxFind which is used for searching the data.
I've put tboxFind first in the tab order, and in subroutine Userform_Initialize, the last line is tboxFind.SetFocus
Using Excel2000 on Windows Vista, it works OK.
Opening the same workbook in Excel2000 on WinXP, no textbox has the focus when the form opens, but once the user has started to use the form, the focus defaults back to tboxFind, as it should.
So why is the focus not where it should be when the form opens in WinXP?
Return Focus To Sheet While Still Displaying A UserForm
I have a spread sheet where i want to display help text when cells are activated. I do not want to use comments as i both do not like the red triangle and also have not found a way to controll the position of the text box. When I use the event Worksheet_SelectionChange I can display a custom box but the box "retains focus" and i can not enter the data until i "reclick" on the cell in the sheet. The box then goes away when i select another cell. Is there a way to fix this or a different method entirely. I am using Excel 2007.
Inserted Picture Disappears After Losing Focus
I have the same problem as Paul C in the following post:
"Hi not a VBA problem, but when i insert pictures or logos into my workbook they disappear, i can insert a picture close the workbook but when i re-open it the picture has gone, i have to click on where it should be to get the border to appear, the move it to get it to appear.
I have tried inserting BPMS, JPGS, GIFS, but i have the same problem with them all, I have used the bring forward command but still have the same problem, I have even tried re-installing Office 2003 and installing all the latest updates but still get the same problem, any ideas?"
I have tried:
- Tools > Options > View > Objects > Show All
- Changing macro security level
- disabling macro security in my antivirus
Set Focus To Application After Hiding UserForm
I created UserForm with one TextBox and "Close" Button. And it's works like a real-time search with my criteria. He is using AutoFilter to show what he found. And when I'm pressing Close Button the Focus isn't on Application, but on Hidden window (know because when I'm clicking alt+space form's menu shows).
To show window I'm using (running from hot-key):
Private Sub CloseButton_Click()
To Set Focus To The RefEdit Control In Userform
I am trying to implement a simple userform using the RefEdit control.
So I have the RefEdit control and an Ok (which has code attached to it) and a Cancel commandbutton.
For some reason, I can't get the focus on the RefEdit control (i.e. when I activate the form, I have to actually click in the RefEdit box before it gets the cursor). Which property sets the focus in this control?
Right now I have the Ok button Default property set to True.
I have a commandbutton on the spreadsheet that activates the userform.
Cells Becoming Unselected When Window Focus Shifts
I would like to run some code against the currently selected range of cells in the worksheet, but when I click on the VB button that runs the code, the focus shifts from the worksheet to the VB app, and the cells in the worksheet are no longer selected.
I know this is probably not a question that's come up before, but does anyone have any idea how to retain the 'selected' status of the cells in the worksheet ?
Force Focus To Range From Modeless UserForm
A userform to move the curser to a column then activate the Excel App and keep the userform visiable.
The problem is when excution the code step by step (F8) works fine, but when excution the code by F5 the cursor moves to the Range("A65536").End(xlUp) and doesnot then move to the required column.
also this line
AppActivate ("Microsoft excel")
does not work , it gives me Invalid proceduers or call argument.
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = 0 Then Cells(ActiveCell.Row, "I").Activate
If ComboBox1.ListIndex = 1 Then Cells(ActiveCell.Row, "J").Activate
If ComboBox1.ListIndex = 2 Then Cells(ActiveCell.Row, "K").Activate
AppActivate ("Microsoft excel")
VB Code Error When Workbook Loses Focus
Overview: I have a workbook named MainPage.xls. This mainpage has several buttons and serves as a switchboard to launch other workbooks. Attached to this Main Page are two worksheets, "Source" and "Value1". The "Source" worksheet is graphical in nature and is used to collect data via a DDE channel to some production industrial processors and then on a timer "log" the data to cells in the "Value1" worksheet. Once the VB code is launched from the "Source" worksheet (via a start button), the code continues to run until it is stopped (via a stop button). The data is then graphed and printed out, etc.
This works very nicely and provides "live" graphing of some constantly changing data.
Once the "Source" worksheet data VB code is running, I need to be able to minimize the worksheets and return to my Main Page and further be able to open any one of the other workbooks on the Main Page and work with that page(s). Thus far, I can minimize the "Source" and "Value1" worksheets and return to the Main Page and the VB code runs along nicely in the background.
However... IF I attempt to open any other workbook from the Main Page, my data collection/graphing code stops and I get a Run-time error 9, subscript out of range... and Excel completely shuts down.
I know this must have something to do with the worksheet that runs the VB code losing focus when another workbook is opened.
Focus Activecell After Display Of Modeless Userform
I am using a technique to display a modeless userform to display to the user that the cell data validation has failed (or not) after checking cell data entry (with checks coded as required).
I am using this method for a number of reasons -
- enables more flexibility and more characters over that of in cell data validation error messages
- to reduce repeat of validation data (to reduce file size) as worksheet has large qty of rows with large qty of columns with variation of validation requirements for each column.
But in the event that data is invalid (fails validation), once the modeless userform is displayed, i want the focus to be on the current cell, not the userform, otherwise the user will always have to click the worksheet to to get focus to enable entry to cell of corrected data.
Keep UserForm Linked To Particular Workbook Even If Focus Is Lost
I have an excel program that uses a modeless userform. often times i will open other spreadsheets while the form is active or minimized. if i return to the form and run it without manually bringing focus to the appropriate workbook, i get an error because it references the wrong workbook. is there a way to keep that form tied to that workbook no matter what? also, it is important that this procedure works despite the workbook name changing.
Cell Focus When Opening A User Form
i would like to retain the focus of the current cell before the user clicks on a button to run a macro (see below) to open a userform...?
(the cell focus seems to disapper...after the button is clicked, but does stay on the cell when i run the macro from tools macros...)
Workbook Loses Focus When Opening From IExplorer
I have a workbook that prompts a user with a msgbox and then a SaveAs dialog. It works but when users intend to open the workbook from Internet Explorer, the SaveAs dialog stays behind the browser and everything freezes. Ideally I would want the workbook SaveAs to stay on top till user saves the workbook. Any help?. Here is my Open and Save code.
Private Sub Workbook_Open()
'Unhide Function for Macro protection
Dim initialname As String
Dim varAnswer As String
initialname = "DataGathering.xls"
Prevent Text Box Loosing Focus
I want to type some data into a text box on a form, after I press enter I want to do sothing with the data (add it to a list box, no problem) and then go back to the textbox for another entry.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
A = TextBox1.Value
' Do something with A
TextBox1 = ""
I can do somthing with the data but it does not jump back to the Textbox i.e. the setfocus does not work.
Control Losing Focus Switching Applications
I'm using a VBA UserForm (ShowModal=False) as the front-end on a spreadsheet for logging purposes. Here's the progression of the problem:
1. I have the UserForm loaded and the cursor is in any given textbox/ combobox on the form.
2. I switch to another program, then come back to the UserForm.
3. The cursor no longer appears in whatever textbox/combobox I was in when I left the UserForm. If I type, nothing happens (I have to click the field again first, then type).
However, if I TAB, it will go to the next field in the Tab Order just fine. It seems that the control has "pseudo-focus"--it knows which field to tab to next, but the control won't accept input unless you click it. The odd thing is--this UserForm has a button which launches another "child" UserForm. That "child" UserForm does not have this problem.
Set Focus To TextBox On UserForm Initialize
I am trying to SetFocus on a single textbox in a simple form. I am not sure if I am doing it right.
Private Sub UserForm_Initialize()
' On Error Resume Next
' Dim rheadings, cl As Range
' Set rheadings = Worksheets("CONTACT").Range("A1:F1")
' For Each cl In rheadings
' Me.cbxSearchWhere.AddItem cl.Value
' Next cl
Kind regards, Mentor Auto Merged Post Until 24 Hrs Passes;Hi: I answered my own query - just commented out the setfocus instruction and it defaults to the first, and only, textbox by default
Toggle Multiple Checkbox Values On Focus
I have a userform with 54+ textboxes and and a checkbox. I would like to change the value of the checkbox from true to false using the keyboard when any of the textboxes have the focus. I can do this using a 'IF keycode' routine but I have to paste the code into each textbox. Is there a way of having the code in one place only, to prevent duplication?
Modeless Userform :: Set The Focus Back On The Range
I call a userform (modeless), and then i'm trying to set the focus back on the range that was selected when i showed the userform. you would think i could just define the range and then use rnge.select like this....
set prevrnge = selection
but it doesn't take the focus off the userform....
Test What Control Will Be Receiving Focus In Exit Event?
I need to test what control will receive focus after the exit event
this test needs to be in the exit event so i am able to validate and cancel only if focus will be the enter button
Private Sub myTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If NextControl.Name = "EnterButton" Then
DoMyValidationTest 'and other stuff, such as set TabIndex
so what should "NextControl" actualy be???