VB Code Error When Workbook Loses Focus

Aug 30, 2008

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.

View 14 Replies


ADVERTISEMENT

Workbook Loses Focus When Opening From IExplorer

Aug 18, 2006

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
UnhideSheets

Dim initialname As String
Dim varAnswer As String

initialname = "DataGathering.xls"

View 6 Replies View Related

Error With Running VBA Code Module For Another Workbook

Mar 13, 2012

I have a workbook which I regularly upload that cannot have macros within it; however, to update and process the data, I must utilize VBA Code.

I tried to work around this by storing my macros in a module in another workbook. My process is to have the VBA Code Module from the other workbook open and have the active workbook be the one I want to change, then I run the VBA Code from the other workbook.

This used to work. However, I am recently getting problems with the Code not running correctly. Sometimes it only runs the code if the affected cells are not hidden; other times it will not run the code at all!

View 4 Replies View Related

Set Focus, If Thats The Correct Code

Nov 7, 2008

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.

View 9 Replies View Related

Changing What Workbook Gets Focus

May 2, 2009

I have 3 workbooks in XLStart. I want to change the workbook that gets the focus after they are all open. The workbook i want to have focus is DG_Tourny.xls

View 2 Replies View Related

Focus To The Activeworkbook And Not The Actual Add In Workbook

Oct 15, 2009

i am creating an add in that will allow me to display all pivot tables in a workbook, their name, sheet location and source data in al listbox (called LBPivot) on a form (called FrmPivot)

My problem is that i am not sure how to make sure it points the focus to the activeworkbook and not the actual add in workbook?

View 6 Replies View Related

Object Defined Error When Code In Workbook Open Event

Sep 7, 2007

I have a macro that checks if a username is in a particular list, and if it is, it unhides certain sheets in the workbook.

The code runs fine if I just run it as a macro or off a command button, but I am trying to execute it when the workbook opens and I keep getting a 57121, Application defined or object defined error.

The code is below;

Private Sub Workbook_Open()

DoEvents

Dim Res1 As VbMsgBoxResult
Dim GovRng As Range

For Each GovRng In Sheets("Map").Range("GovernanceMembers")
If GovRng.Value = Application.UserName Then Goto 111
Next GovRng

Exit Sub

View 6 Replies View Related

Set Focus Back To Workbook While Form Is Active

Nov 11, 2009

I have a userform, when using the form it has focus, once I click on my "Ok" command button I want to return focus to the workbook while I leave the userform open. I already have the userform open and on top of the workbook.

View 2 Replies View Related

Keep UserForm Linked To Particular Workbook Even If Focus Is Lost

Jan 19, 2010

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.

View 5 Replies View Related

ActiveX Textbox To Receive Focus On Workbook Open?

Aug 28, 2013

When the workbook opens, sheet 1 is selected. There is an activex textbox on sheet 1 that should receive focus.

using "textbox1.setfocus" or textbox1.activate" does not accomplish what I need. I have also applied this the setfocus and activate to the worksheet open event but without success.

VB:

Private Sub workbook_open()
Worksheets("regular sku").Select
TextBox1.SetFocus
Worksheets("regular sku").ScrollArea = "I1:T36"
End Sub

View 4 Replies View Related

Return Focus To Workbook/worksheet After Updating Form

Jul 24, 2009

I have a form that displays when i open a workbook. I enter data into the form's fields (listbox & textbox). When I click the form's "OK" button, the focus doesn't return to the current worksheet, and in fact, focus doesn't return to any of the open windows / applications I have open.

View 9 Replies View Related

Show Custom Error Message If Opening Workbook Macro Code Fails

May 17, 2008

I cannot figure out how to get my error handler to work, or actually, not work. It seems to work fine when there is an error, but the code still gets read even when there was not an error. Basically, I am trying to open a file, which may or may not be there. When it is not there I want a message to pop up informing the user. However, when the file is there and it opens, the error handler still gives the message box. Any ideas what I am doing wrong?

Private Sub btnOK_Click()
Application. ScreenUpdating = False
Dim LCSfile As String
LCSfile = frmSelectFile.Listbox1.Value
On Error Goto ErrHandler
Workbooks.Open Filename:=sPath & sDate & "" & LCSfile & "QUANT.CSV"
ErrHandler:
MsgBox ("File is not quantitated. Please select another file.")
Application.ScreenUpdating = True

End Sub

View 2 Replies View Related

Closing Loses Macros Until Reboot?

Aug 24, 2009

If for any reason I completely close excel during the workday, then when I restart the application none of my macros are active. Even if I manually open the PERSONAL workbook that contains my macros. Any fixes other than restarting the computer?

View 12 Replies View Related

Copying Cells Data Loses Commas And Changes Formatting

Feb 12, 2013

i am trying to import an excel document and then copy over some columns to another worksheet from the imported worksheet, using a macro. Everything imports and copies over fine except for one column that has cells that comprise of a list of number separated by commas. When these cells get copied over some of the values retain the commas but some of them (specially when there are a lot values separated by comma) gets changed to this format

From: 1,229,124,012,441,230
To: 1.22912E+15

From: 1044,1048,1052,1053
To: 1.0441E+15

From: 1279,1282,1286,1295,1299
To: 1.27913E+19

From:926,929,938
To: 926929938

I am trying to figure out whats happening here! Is there a max number of letters this column can take and if it exceeds that value, excel converts them to this format? Or is the formatting gets changed to something else while copying and pasting?

View 3 Replies View Related

Rename Macro In Properties Window Loses Shortcut

Dec 2, 2008

I recorded one that does a very simple task, converts formulas to values. I saved it in my personal workbook, all is well. I noticed that excel names them Module1, Module2 etc. I thought it would be better to name them, so in the properties window next to "name" i changed Module1 to ConvertFormulas.

However, when i go to a worksheet, the keyboard shortcut no longer works. Reverting back to the old name Module1 solves this. Clicking Tools -> Macro -> Macros, selecting ConvertFormulas and then Options and modifying the shortcut.

View 4 Replies View Related

Cell Text Loses Break Characters When Extracted

Oct 16, 2006

I'm trying to automate a very laborious process where text data is taken from a series of cells in excel 97 and is turned into HTML tables - I've got it all working except for one thing, when I extract the contents of the text the paragraphs are lost and are merged into one long piece of text - obviously I need to insert <br /> characters where the paragraphs are to get this working. how I can extract text from with some kind of marker for the paragraph sections? Or is there a way to insert characters where the excel cell has a paragraph mark (ie a return key has been pressed).

View 2 Replies View Related

2002 Code V 97 Code: Add A Small Workbook Open Event Code Which Works For Me But Debugs For The Others

Jan 27, 2009

I use excel 2002 but some of my office are on 97, i want to add a small workbook open event code which works for me but debugs for the others?? The code is basically, go to a tab, on that tab and that range sort..

View 2 Replies View Related

Macro Won't Execute Code To Put Focus On "print To X Pages Wide By X Pages Tall"

Feb 20, 2009

I'm trying to execute a macro and it won't put the focus (radio button) to select x pages wide by x pages tall in the Page Setup/Page/Scaling Area. I looked at the macro and can't find a setting in the code but yet the focus won't change. What can I do about this? In other words the radio button stays selected as "adjust to "" % of normal size. Here's the code...

View 2 Replies View Related

Creating New Workbook / Copying Sheets And Saving Workbook - Subscript Error

May 30, 2014

Trying to create a new workbook from another open workbook, then copying all the sheets that aren't called "Summary" to that new open workbook and then saving it. I get a subscript error on this line:

[Code]....

View 3 Replies View Related

Have Code To Block Save But How To Keep Code In Workbook Without Saving The File

Aug 1, 2013

My company has files that are already in use. I don't know too many details about how they work, but somehow saving the file will screw it up and my boss has to go back and reset something or other to correct it. Obviously it's connected to some other software somewhere. The code below will block Save and Save-As. BUT how do I get the file to hold onto the code without actually saving the file after the code is added (since the file shouldn't be saved)?

VB:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False Then
Cancel = True

[Code].....

View 1 Replies View Related

Save Single Sheet To New Workbook And Delete VBA Code From New Workbook

Jun 25, 2014

I'm trying to find a way to save a single sheet of an excel workbook and in the same process delete all vba code and shapes from the new single sheet workbook. I was looking around and found this code which does save only the single sheet to a new one sheet workbook but doesn't delete the vba and shape that I have used to assign macros to in the original.

Code:
Sub SaveSheetAsNewBook()
Dim wb As Workbook
Dim InitFileName As String
Dim fileSaveName As String
Dim wshape As Shape
InitFileName = ThisWorkbook.Path & Format(Date, "mm.dd.yy")

[code]....

View 2 Replies View Related

Insert Existing Working Code From Another Workbook Into Own Workbook

Jan 14, 2014

The amazing code I saw was from this thread Auto lock cells after data entry when file saved... where the code was made by Jafaar Tribak.

It basically locks cells that have had data inputted into them when the file is saved (with a nice prompt warning of the used cells being locked.

This is Jafaar's file [URL]

And this is my file where I'm trying to make it work in the "Employee data entry" Sheet:

[URL]

And finally this is the file after I tried to copy the code over : [URL]

Trying to make it so that in the employee data entry sheet locks cells after an employee inputs some data into said cells.

I thought that by setting an "inputrange" on the employee data entry sheet the code would track it down automatically but maybe I'm completely wrong. I cant see anything wrong with it (probably because I"m not that good at vba) but I fear I may have left out something really simple!

I seem to disable my other macros when i try to insert this code in (I have a macro that when you click on a cell a calendar pops up so you can click on a day from the calendar rather than typing out the date)

View 9 Replies View Related

Make Workbook Code/Macros Unique To Workbook

Sep 12, 2006

How is code or functions kept unique to a workbook? for instance i create a few toolbars that are relevant to "work book 1", however when i open another workbook "2" the toolbars do not function properly or are removed by the opening/closing of the work book, similarly other macros seem to struggle with more than one workbbok open at a time.

View 5 Replies View Related

VBA Error Code 400?

Feb 25, 2009

What does this code mean? I can't come up with any listing that includes it.

View 5 Replies View Related

VBA Code Error When Using F8

Jul 9, 2013

I am having trouble Stepping Into my VBA Code. The Macro itself is working fine (usually), but whenever I try to run through it step-by-step it creates an error near the beginning of my code. Here's the first few lines of my code.

Code:
Sub JLJ_DataEX()
'
' JLJ_DataEX Macro
' Extracts pertinent data from Joe Lamb Jr. Excel pasted property webpages
'
' Keyboard Shortcut: Ctrl+j

'Disable Alerts & Offscreening

[Code] .........

View 3 Replies View Related

Error Code 9

Aug 28, 2008

Within the workbook i have a variable declared as

Public ResultsSheet As String

in the workbookopen event I assign a value

ResultsSheet = "Search Results"

and in the Private Sub CommandButton1_Click()

I attempt to make the hidden sheet visible

Sheets(ResultsSheet).Visible = True

Now this works for eveyone except one person, when it fails with subscript out of range error 9.

If i email the workbook back to myself it all works fine

View 9 Replies View Related

Error Code 424

Jun 22, 2007

am using the code posted below and i get an Error code 424.

Dim i As Long
Dim Ans As Variant

Application. ScreenUpdating = False
If Not Intersect(Target, Range("E4:E7")) Is Nothing Then
If (Cells(i, "e").Value) > "0" Then
MsgBox "Calls In Queue " & Ans = ActiveCell.Offset(0, -1).Value
End If
End If
Application.ScreenUpdating = True

End Sub

View 9 Replies View Related

On Error Code

Jul 21, 2007

I have made a simple spreadsheet with different values going down one column. I would like to randomly select any value in that column and have that value show up in another cell on the same spreadsheet. How do I do this?

View 2 Replies View Related

VBA Code Error '1004' "Application-defined Or Object -defined Error"

Sep 18, 2009

In one worksheet i have created the following code, which adds date to
specific column when data is entered in colum A.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Target.Offset(0, 10).Value = Now()
End If
End Sub

The problem is that when trying to delete a whole row, error message pops-up.
Run-time error '1004' Application-defined or object -defined error. When click "End" actually everthing is ok, the row has been deleted, but was just wondering what is causing that error.

View 2 Replies View Related

Code Returning Error 400

Mar 9, 2009

I have the following code that opens a series of workbooks on a given day, However, if one of the workbooks has been renamed or is missing the code gives a "400" error and stops, is there a way of having the code retry the next workbook if it comes to an error?

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved