Populating combo box via the workbook open event

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Internet Explorer 7 jpeg and gif blurry after tools/internet options/advance/reset There are two solutions to this problem. 1. Adjust the DPI back to the standard settings. --> Right-click your desktop and go to Properties --> Click on the settings tab --> Click on advanced --> Change the DPI setting back to "Normal" 2. Edit the registry. --> Go to Start, Run --> Type regedit and click OK --> search for "UseHR" --> Adjust the value from 1 to 0 Depending upon whether or not you want to use the High Res DPI scaling or not do one of the two options. This link descibes it in a little more detail. Tag: Populating combo box via the workbook open event
  - 2
    - API and OpenGL in VBA for Excel Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Until tomorrow.. JR Tag: Populating combo box via the workbook open event
  - 3
    - Referencing objects from different reports Hi, I have 2 Access Forms, Frm1 & Frm2. In Frm1 I have a cmd button which when clicked should open Frm2 and refresh a combo box in Frm2. How can this be done as the below is not working. Private Sub cmd_cmp_Click() DoCmd.OpenForm "frm2" Me.frm2.Form.cbo_1.Refresh End Sub Tag: Populating combo box via the workbook open event
  - 4
    - Saving a pic I think you have pasted ALL the code into the userform code module. The first part goes in a standard code module. The code after the line in the userform module: goes in the userform code module. Sorry I should have made that more clear. Tag: Populating combo box via the workbook open event
  - 5
    - Error with Excel Application Object Hello ladies and gentlmen, this is a very specific error I'm dealing with, and one of the stranger ones I've run across. First of all, I am attempting to open an excel file from MS Access using an Excel Application Object. If Excel is not open, the file will open fine. If Excel is open and there is no workbook open, the file will open fine. If Excel is open and there is a workbook open, then the file will not open. Here is the code I'm using. Set appExcel = GetObject(strFilePath & strFolder & "\" & strFileName) appExcel.Application.Visible = True If blnIsWorkbookOpen(strFileName) = True Then appExcel.Application.Workbooks.Open strFilePath & strFolder & "\" & strFileName Else appExcel.Parent.Windows(1).Visible = True End If Set appExcel = Nothing The thing of it is, when the database is not locked against user modification, the code works fine. The other sticky bit is that it works fine in a database that is even more heavily locked than this database. The question is then, how do I get the code to work correctly when the DB is locked Tag: Populating combo box via the workbook open event
  - 6
    - Obtain Unique Work Units via SQL Just Add: GROUP BY WorkUnitsFaultsMainTBL.WorkUnit HAVING COUNT(WorkUnitsFaultsMainTBL.WorkUnit) = 1 Adamus Tag: Populating combo box via the workbook open event
  - 7
    - Copying Named Ranges I have a worksheet with a number of named cells (so that I can put data in them or retrieve data from them with VBA and not have to change anything should rows / columns be added or removed). I have a sort of template file from which I copy and paste the spreadsheet with all the named ranges to create a series of new files. The problem is, the cell names do not copy, so they do not appear in any of my new files. I also notice that on my original file, the range names are defined locally, like with ="Sheet1!$U$33". I imagine that if the sheet was to be renamed something other than Sheet1, I would have a problem. So I guess my question is, a) How can I name ranges in such a way that the name will stick even when I copy and paste the sheet to other workbooks. b) How can I go about naming ranges relative to the active spreadsheet, such that calling Range("my Range name") will always work no matter what spreadsheet I am in, so long as there is such a named range in the worksheet. Thanks! Tag: Populating combo box via the workbook open event
  - 8
    - how to code an EDI transation with VBA Hi, I am looking for some documentation and advise on how to handle EDI within an Access2002 (VBA) app. Thanks if anyone can provide feedback, Jay Tag: Populating combo box via the workbook open event
  - 9
    - Date set and iteration I want to create a spreadsheet to go to the first day of the current month and set a date if the day is a weekday and not a weekend(or holiday if that is possible). I will also want to check against the sheets in the spreadsheet as I have sheets numbered 1 through 31 and will be hiding each day that is not a regular business day. I basically just need to know how to find the current day in the month and iterate through it as well as set the format for the date in excel. Tag: Populating combo box via the workbook open event
  - 10
    - System.Web.UI.WebControls not serializible in Web Parts (MOSS 2007) I create System.web.ui.webcontrols in CreateChildControls and I get error messages that they cannot be serialized. Scott Hillier's book shows examples of this yet I cannot get them to work. Thanks Tag: Populating combo box via the workbook open event
  - 11
    - encrypting and decrypting passwords for application (two-way encryption) Hello there. I have an application that needs to store a password used to connect to SQL. The problem is that I want to be able to encrypt it and decrypt it. One of the things I noticed while googling is that when you are going to decypher something you need a key. so basically where can I store this key so I can decypher the encyption. And which encryption techniques should I use I know encrypting doesn't solve all problems but hey, at least it will buy me some time. Tag: Populating combo box via the workbook open event
  - 12
    - Dusting up on VBA - Excel/Powerpoint I have a few projects requirying knowledge of VBA for PPT and XLS - can anyone recommend any online guides to get me updated and back into VBA ...... tis been so long since I have touched this language! Cheers Tag: Populating combo box via the workbook open event
  - 13
    - ActiveWindow, Macros, and Outlook 2007 So for the past couple of days I have been working on updating my companies outlook auto-responce macros for Outlook 2007. I am almost done but I have hit one hurtle. So far, it is doing everty thing I want it to do, but the last part, which is paste of information in to the original window I executed the Macro from. What this Macro does is it opens a word doc, copies it's content and ads it to the Email I have open. Only thing is, when it get to selection.paste I get a runtime 91 error. Only thing I can assume is that when it gets to TargetDoc.activate it doesnt understand what TargetDoc is, even though the first line in the macro is set TargetDoc = ActiveWindow. I am guessing, the new Outlook does not understand what ActiveWindow means. Any clues on how to fix this Tag: Populating combo box via the workbook open event
  - 14
    - How to write code for dynamically (programatically) generated combo boxes (excel-shape object) in excel? Make a ClassModule and name it "clsCtrlArr". Write in it Code Snippet Public WithEvents ctl As ComboBox Private Sub ctl_Change() Cancel = True MsgBox ctl.Name End Sub Make a Module and write in it Code Snippet Public cmbArea() As New clsCtrlArr Sub InsertMyComboBox() Dim MyRange As String MyRange = ActiveCell.Address(0, 0) 'Cells(3, 3).Address(0, 0) Set MyComboBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ Left:=Range(MyRange).Left, Top:=Range(MyRange).Top, _ Width:=Range(MyRange).Width + 2, Height:=Range(MyRange).Height + 2).Object ActiveSheet.Shapes("ComboBox1").Name = "cmb" & MyRange Range(MyRange).Offset(2).Activate Application.OnTime Now + TimeValue("00:00:1"), "AreaShape" End Sub Private Sub AreaShape() Dim sh As Shape, i As Long i = 0 For Each sh In ActiveSheet.Shapes If Left(sh.Name, 3) = "cmb" Then ReDim Preserve cmbArea(i) Set cmbArea(i).ctl = sh.OLEFormat.Object.Object i = i + 1 End If Next cmbFill End Sub Private Sub cmbFill() For Each sp In cmbArea() With sp.ctl .Clear .FontSize = 8 .AddItem "First" .AddItem "Second" .AddItem "Third" End With Next End Sub Tag: Populating combo box via the workbook open event
  - 15
    - WER wish list for developers 8-) Many support contracts with customers promise a reaction within 24 hours - that would be the upper limit for the processing delay which makes the Winqual portal a viable tool for customer support in crash situations. However, it is very desirable to have turnaround times even significantly lower than that (less than an hour). I realize this is asking a lot of the Watson/Winqual servers; after all, they probably have to process huge amounts of data each day. This is why I would love to see an option for ISVs to set up their own local "Watson servers" to which customers could send crash data when the WER dialog appears. For instance, an application could use a WER API configuration function to specify an alternate WER server. In our case, this could be something like watson.cocreate.com. When a crash occurs in one of our apps, WER would display its usual dialogs. Instead of presenting the simple choice between "Don't Send" and "Send", the user would be informed that he can send the crash data both to Microsoft (default), or to us, or both. From a WER API point of view, this is probably a simple feat. However, it means that we would have to set up a publicly accessibly CER/AEM-like server - which could be a little challenging, for example from a security point of view. Also, since the WER API needs to change, it would mean we wouldn't see any improvement at all before at least Vista SP1 or SP2, probably even later. But alternatively, what if we could tell the Winqual portal that crashes reported for our applications should be routed immediately to one of our servers This way, the WER API wouldn't need to change at all, and since only Microsoft would know about the whereabouts and details of our server connection, secure operation would be easier to achieve. So once we'd register our own Watson-like server with Microsoft, here's a typical sequence of events: Application crashes at customer site WER dialog is displayed, customer chooses to send crash data Watson server at Microsoft checks if there is an ISV registration for the crashing app, and whether the ISV has also registered an ISV-local Watson server If so, the crash report is immediately forwarded to the ISV's server. Process the crash reports as usual, and make them available through Winqual. In this scenario, Winqual delays of 3-4 days or even a week wouldn't be a big issue anymore for an ISV. Claus http://www.clausbrod.de/Blog Tag: Populating combo box via the workbook open event
  - 16
    - Ajax in CRM Read this blog entry I think it has the answer to your question http://geekswithblogs.net/guentersblog/archive/2006/07/05/84130.aspx Tag: Populating combo box via the workbook open event
- Next
  - 1
    - LCS 2005 Internal Vs External Hey all, I am trying to get our LCS2005 server setup in a way so our Communicator 2005 settings are the same. I would like to have only have one naming channel to use, as opposed to 2, so that those on laptops can come in or be out on the road and connect using the same connection name that EVERYONE else uses, while ensuring that everyone goes through the proxy server. LCS Server's FQDN: lcsserv.domain.local LCS's Access Proxy FQDN: aproxy.domain.local Setting within Comminicator 2005: Server name used to configure the connection to a communcations service: inside people: lcsserv.domain.local road warriors: com.domain_pseudoname.com For our DNS, I have the settings configured/alias setup so that if anyone types in or tries pinging com.domain_pseudoname.com; the correct internal IP address is associated and IS pingable. Also, if you do an nslookup on com.domain_pseudoname.com, it resolves to aproxy.domain.local. So as far as I can see, my DNS isn't an issue as of yet. On the outside, if I were to type in com.domain_pseudoname.com, the correct Public ip address resolves. At this point, my inside and outside people can connect to the Commincator's service, however they are using two seperate "servernames used to configure the connection to a communications service." Anyone have any ideas Thanks all in advance! Tag: Populating combo box via the workbook open event
  - 2
    - How do I update a cell in a closed workbook? Hey again Andy, Great thanks for the reminder! I forgot that�� it works fine. And to your question, for the curiosity reason, if it could be done, I wanted to try out this method instead of opening the workbook. It could be useful one day�� Cath Tag: Populating combo box via the workbook open event
  - 3
    - iexplore.exe - Application Error Hi Bennett, How did you remove the yahoo tool bar I have the same error message. Thanks, Eric Tag: Populating combo box via the workbook open event
  - 4
    - Using a Check Box in Excel I have never written any code before so I need some help. I would like to insert a check box on a sheet in excel. If that box is checked I would like to copy specific information from a range of cells from another sheet to the sheet with the check box in it. For example, I would like to copy data from cells D7 through CO7 in sheet 1 to cell D1 in sheet 4. I know how to insert the check box but I don't know how to write the code. I would also like to know if the code is affected by the name of the sheet. For example, if sheet 1 is named "quizzes" rather than "sheet 1" will that affect how I write the code Thanks in advance for your help. Tag: Populating combo box via the workbook open event
  - 5
    - need help writing a vbscript to open a spreadsheet and run a subroutine in a macro Actually, I need help coding the "running a macro" part. I have a spreadsheet with a macro called "snafu" on sheet2 that contains a private subroutine called "runme" tied to a button. I just need to script up something that opens the spreadsheet and runs that subroutine and closes the spreadsheet. Sounds simple, huh Six hours of googling and reading the Microsoft Excel Visual Basic Reference could not clue me! I don't think I'm stupid... but I've been wrong before. Here's what I tried: Set objExcel = WScript.CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("fubar.xls") ' I don't know what to do here. I tried: ' objWorkbook.Sheets(2).Activate ' objExcel.Run("runme") ' but I got an error about not being able to find "runme". ' please clue me in! thanks!! objWorkbook.Close objExcel.Quit Tag: Populating combo box via the workbook open event
  - 6
    - Verifying completion of a file's creation from VBA I need a way to monitor a file in a folder (created by an external application, such as Word or Acrobat), and verify that the process of writing to the file has completed (in Windows 2000 or XP). I.e., that the file is finished, and can be opened by Excel. It's easy to verify that the file exists, and what it's file length is, but the file length continues to increase as the file is written to (especially for a large file). Anyone know of a way in VBA to verify that the file is complete I assume that Windows sets some kind of bit in the file to indicate completion. Thanks... Tag: Populating combo box via the workbook open event
  - 7
    - "StackHash" crashes Hi all, this is probably not the right place for this question, but I'm giving it a shot anyway, counting on the fact that we have experienced people here who crash applications for a living I recently noticed APPCRASH report data which specify something like "StackHash_1703" in the "faulting module" parameter of the Windows Error Reporting crash data. When this type of crash is reported, the fault offset in the module always seems to be 0. Fault bucket 42424242, type 1 Event Name: APPCRASH Response: None Cab Id: 0 Problem signature: P1: foo.exe P2: 1.42.42.42 P3: 46b17782 P4: StackHash_1703 P5: 0.0.0.0 P6: 00000000 P7: c0000005 P8: 00000000 P9: P10: There does not seem to be a module (=DLL) called "StackHash", so I assume it rather specifies a special class of crashes. When I search the web, I find lots of other similar incidents, but (so far) no good explanation of what this crash class means. There seems to be at least a weak connection with DEP (data execution prevention) in practice, but this may be coincidental, of course. My current hypothesis is this: The application crashes. The kernel's top-level crash handler tries to walk the application's stack, or at least checks stack consistency. The stack has been corrupted beyond recovery, or at least so badly that the faulting module cannot be determined anymore. Lacking the module data, the OS crash handler inserts "StackHandler_xxxx" as the name of the faulting module, indicating that the stack has been corrupted. "xxxx" seems to vary and either indicates the type of stack corruption, or some kind of (hash ) value representing stack configurations. Any hints most welcome! Claus http://www.clausbrod.de/Blog Tag: Populating combo box via the workbook open event
  - 8
    - VBA in Excel - organizing charts as objects in a sheet I am using a macro to create multiple charts from data on a separate sheet in the Excel file. However, the program places each new chart on top of the previous one in the sheet I select. I would like to place these charts apart on the sheet so that they are viewable. 1) Is there an command to order the charts down and across the sheet 2) Alternatively, can I select and move each sheet without using the actual object name in the while loop, "Chart1," for example. 3) Specifiying the object name would only work for the first chart. Is there a way to number the charts with a variable Here is the while portion of my code as it is now ( red text indicates the portion I am having difficulty with ) : While j < 243 Charts.Add With Sheets("TRESULTSdmp_3") ActiveChart.SetSourceData Source:=.Range(.Cells(i + 1, j + 1), .Cells(i + m, j + 1)), PlotBy:=xlColumns End With ActiveChart.ChartType = xlXYScatter ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Test point to the right" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ActiveWindow.Visible = False <----- question 2 above) want to move object to a specific location ActiveWindow.WindowState = xlNormal (will have to make Range a variable) ActiveWindow.WindowState = xlMaximized Range("A1").Select ActiveSheet.ChartObjects("Chart 8").Activate ActiveChart.Paste ActiveSheet.Shapes("Chart 3").IncrementLeft -123.75 <--- question 3 above) want to make object # variable ActiveSheet.Shapes("Chart 3").IncrementTop -8.25 j = j + 1 Wend Tag: Populating combo box via the workbook open event
  - 9
    - Special cell does not work I have one Excel file. In One sheet I have written 34898 formulas. I m using office 2000. but when I used SpecialCells method of Used Range of Excel Sheet, It just hangged out. The code is working fine, if i run from macro. But if I run the code from VB and if Application.Visible and Interactive mode is set to "FALSE", It is getting hanged. So plz suggest me possible solutions Thnxs, Viren Tag: Populating combo box via the workbook open event
  - 10
    - 2 Small Macro problems. Try this: Sub CloseOtherFile() ' ' CloseOtherFile Macro ' Macro recorded 3/13/2007 by Gary Beckwith ActiveWindow.ActivateNext ActiveWindow.Close SaveChanges:=True End Sub Tag: Populating combo box via the workbook open event
  - 11
    - iexplore.exe - Application Error (EVERY TIME I CLOSE IE7) :( I had the same problem. I had recently installed Norton 360 and I use IE7 so I imagined the problem was something to do with a conflict between the two programs. However for me (and I can only speak for myself) it turned out to be a newly installed Add-on from my new ISP which was causing the problem. I went into Control Panel - Internet Options - Programs - Manage Add-ons and disabled the new add-on and the problem went away immediately! I would imagine the same thing is causing the problem for you too. I recommend you go into the above menus and try and spot anything that looks new, something which relates to a new program you may have installed, and try disabling it. For me it was a toolbar (which I didn't want or even ask to be installed) from my new broadband ISP but I guess it could be anything. You might have to do some experimenting before you find the right one; if you're not sure which is the offending program I��d try them one at a time. Disable the add-on, close IE and open it again then close IE again and see if the problem has gone away. If it hasn't then it's fair to say the add-on you just disabled wasn��t to blame so you can then go back in, enable the add-on and then try the next one! Laborious but it should work.....assuming it's just one add-on that's causing the problem that is!! Anyway have a go and see how you get on. If you find it you'll need to do the same thing with any other user profiles set up on your machine as these will still have the offending program enabled. Don't bother trying to reinstall IE7 as your add-on settings will probably just reappear when you reinstall IE7 again anyway. I��d be interested to know if this works for you. Good luck. Tag: Populating combo box via the workbook open event
  - 12
    - Sharepoint alerts (email) not opening in Outlook 2007 (error)... Also.. if you goto tools.. rules and alerts.. manage alerts.. and double click on an alert.. then click modify alert.. do you get this error: "An error occurred while browsing files." This is what I get. Tag: Populating combo box via the workbook open event
  - 13
    - SQL Express 2005 Expiration Hello, I downloaded SQL 2005 Express from the microsoft website and I have browsed for an expiration date of the software but haven't found one. So just to be safe, does anyone know if this software is only a trial period and has an expiration date or if the usage is unlimited Tag: Populating combo box via the workbook open event
  - 14
    - 0x62304390 referenced memory This is definitely a matter of Yahoo Toolbar and/or Browser. Uninstall them and the displayed error will vanish instantly and permanently. Good luck Tag: Populating combo box via the workbook open event
  - 15
    - Execute a Macro at Print Event in a Mail Merged Document. (New instance named Letter1 gets creted) Hello All, I want to execute a macro on a mail merged document at a Print Event . Some Info reg my dev. My program is in SAP-ABAP. It transfers its data to word file in a mail merged manner. In this process it creates a new instance of a document and this is "Letter" document. Through ABAP i can print the whole "Letter Document" but not the partial print. So i write a macro (with the help of previous posts) which can do the partial printing with the data from ABAP. Now the problem is that the macro do not trigger when i am printing this "Letter Document". I am really stuck here. I have tried no of ways to trigger this macro automatically like writing it on Document Open, Writing the macro in Normal . dot file , but this doesn't workout. Kindly let me know if there is some other method through we can execute a macro on this document. Please bear with me if am asking silly question/s. Thank you, Vinod. Tag: Populating combo box via the workbook open event
  - 16
    - Obtain Unique Work Units via SQL Just Add: GROUP BY WorkUnitsFaultsMainTBL.WorkUnit HAVING COUNT(WorkUnitsFaultsMainTBL.WorkUnit) = 1 Adamus Tag: Populating combo box via the workbook open event

Signon77

Hi all,

I have a worksheet with a combo - box embedded in it of type 'form' rather than active x.

I have written a function to populate it via the worksheet_activate event, passing the combo-box to a module function by reference. However I find that if the workbook opens to that page because it was active when last saved the worksheet event does not fire. As a workaround I have thought of using the workbook_open event instead instead but don't know how to pass the combo-box by reference to the module function as it is not visible using the 'me.combobox' syntax I used for the worksheet event.

Anyone have any ideas

Rob

Top

Re: Populating combo box via the workbook open event

bi-lya

IMHO, you may open workbook in some fixed page:

Code Block

Private Sub Workbook_Open()
Worksheets(1).Activate
End Sub

Top

Re: Populating combo box via the workbook open event

Andy Pope

Hi,

If that sheet is already active the Activate event will not fire.
Either place the code in the event in a separate code module, adding a call to the routine in the activate event, which you can then call directly. Or activate another sheet first before activating the required sheet.

Top