Trying to write a VBA code to add a new menu item with submenus on the Standard toolbar when Workbook_Open and then deleting it (_Before close). Just having trouble with the creating of the menu item. Here is what I have so far:
Sub Workbook_Open() ... Dim menuitem As CommandBarPopup Set Menu = Application.CommandBars("Menu Item").Controls.Add (Type:=msoControlPopup, Before:=13) ... End Sub
which of these toolbars provides the better 'controls' to paste onto worksheets (as opposed to UserForms)? For those wondering, both toolbars contain some apparently similar controls, e.g., combo box, radio button, spinner etc. but there are differences in their behaviour it would seem...
I have been using this code and just noticed that it resets all of my options buttons to false when I exit and then re-enter (activate) the sheet with the option buttons.
I see where this is going on, but don't know how to correct it. I only want the option buttons changed to false if
The Sol named range is something other than "Primary Vendor". It seems to call the macro ClearOB whenener the sheet is activated.
Private Sub Worksheet_Activate() If Range("Sol").Value = "Primary Vendor" Then For Each OB In ActiveSheet.OptionButtons OB.Enabled = True Next OB ClearOB ActiveSheet.ScrollArea = "A1:K58"
I've created a custom toolbar via Excel's toolbar wizard, to which I have added several macro buttons. However, when clicked, instead of running the assigned macro, Excel instead attempts to open my already open file?? I think I read something about having to manually change the buttons to refer to a .xla ??? Not sure though.
What I'm trying to achieve.I'm trying to create a toolbar to have visible in excel which provides me with shortcuts to a selection of functions and some other useful documents.
I've created a document "Toobar 1.xls" in column B of which I have the file locations of the documents I want to open, the documents are moved from time to time and it is easier for other users to update the spreadsheet than vb.As you can see below I've written a piece of code to open up a document, I've created a function because there are a few documents I want to create links to and thought it would be cleaner to do it like this. This code is stored in "Module1" of "Toolbar 1.xls".
I've then created a new toolbar in excel and added a custom menu item and allocated it the macro "Pension_Credit_Calc".
When I run the code from within "Toolbar1.xls" it works fine, however if I try to run it from another workbook I get "run time error 1004". I suspect it's probably something to do with where I've stored my code,
PS. The reason I have not simply created a shortcut in the quicklaunch bar is that I will also be altering the workbooks once opened.
Code.
VB: Function OpenUp(FileLocation) As String Workbooks.Open (FileLocation) End Function [code]....
I have created some macros that need to be used in several workbooks by more than one users, so I put them in an add-in and gave them instructions on how to get the add-in. I also created a toolbar with buttons calling those macros, attached it to a workbook the users can open, and instructed them to open that workbook once to get the toolbar.
Both the add-in and the toolbar workbook are on a network drive that my users can access, but when they get the add-in, it gets copied to their own add-in folder.
Here's my problem: When a user tries to click on one of the buttons in the toolbar, the button tries to call the macro using the path that would be valid on my computer to get to my add-in folder. This path includes my user name, so it doesn't go to their own add-in folder: it goes to my add-in folder on that computer if I ever logged in on that particular machine, or it goes nowhere.
When I created the button, I attached the macros by referring to the add-in workbook by name only, without referring to a path, so I don't know why MY path ended up defined on that toolbar.
How can I go around this? I manually relinked all the buttons for that user, and I can do it for the other users (there aren't that many users nor that many buttons), but I'd rather avoid it: I'll have to re-do it if the toolbar is updated and it just seems like more work than should be necessary.
I'm also opened to suggestions on a better way to share those macros. They can't be attached to the workbooks because we use new workbooks every year - they're emailed to us by the people who create them and for a variety of reasons, pasting everything into a workbook of our own is not a good option.
When I try to record macro, the small toolbar which has two buttons "stop recording" and "relative reference" do not appear. I need to turn relative reference on. Can you please guide me how can I make it visible to turn relative reference on?
I have a custom toolbar containing several buttons which run several macros. Works fine except on exiting the programme and re-opening the workbook, if I try to use the custom buttons I get an error message which tells me it cannot find the ' name of workbook, name of macro' macro I then have to re-assign the macro which has been there all the time but without the file name in front of it.
I have written a macro. The macro in question simply shows a user form. There is far more code within the user form itself. It is designed to automatically format a workbook.
I saved the macro as an .xlam add-in file to the default folder. I then added a button for the macro to my Quick Access Toolbar. This seemed to work great.
However, when I open a new file that I want to run the macro on, the button disappears. In fact, a 2nd Excel window opens up on my task bar. The original window still has the macro button, but the new window does not.
I have finally come up with a macro and would like to install it to around 10 people's "Personal Workbook" in my department. Let me explain a bit further...
We use web-based software which has an "Export to Excel" option which we all use. The resulting data populates into a spreadsheet automatically.
I would like the user to be able to click on Tools/Macro/Run Macro and then run that particular macro. I assume that this macro should be in the "Personal Workbook" so that the macro will be visible no matter what worksheet they may have open?
Can this be done automatically/with a macro or must this be manually done?
VB: 'enables user to click [U]highlight and select[/U] an item in ListBox1 and ListBox2 item (same row in index) is also [U]highlighted[/U] (highlighted only not selected) Private Sub ListBox1_Click() ListBox2.ListIndex = ListBox1.ListIndex End Sub
Question: Is it also possible to enable a user to click to select an item in ListBox1 and ListBox2 item is also selected simultaneously (same row in index). Is there excel vb code to do this?
I think the code may be along the lines of the ListBox SelectedIndex property. What would be the Excel VB code equivilant for the ListBox SelectedIndex property, if so?
I need a macro to add the last 2 items in column G, if they are both positive or negative. If one of the values is either positive or negative, then they must be subtracted.
In the example below the formula in G45 = G43+G44
The data is imported so the range will allways change foe rg G45 must become G75, then the formula will be G73+G74 if they are either both postive or negative or if either one is positive and the other is negative then G73-G74 ....
I have 1 macro that i would like to be activated as soon as i select any item from a form control listbox (doesn't matter which item). i am not using an active X control but rather a form control.
How do I select the first item in a listbox via code (userform).
Scenerio: A user starts with listbox3 and makes a selection for a font type. If the font selected doesnt exist on there system (code already taken care of, true or false) I want to automatically set the font to the first item in listbox3 as a default value transparently so the user can continue.
I am wondering if there is any code to SELECT (DESELECT) A MENU ITEM using VBA? I have an Excel Add-in program installed, which adds a Menu "Easycal" to my Excel menu bar. Under "Easycal" (drop down list), I have the following items:
I am using "Easycal"'s functions in various cells of my sheet "Final". When I select "Refresh worksheet" from "Final", "Easycal" fetches (or calculates) me the data from the "Easycal" database. I have a macro (on "Final") that pulls together data from other sheets of the same workbook. I there anyway to include a code in my existing macro, so that when I run the macro, the following are completed in sequence:
1. Select "Turnoff Easycal" menu item 2. Run my existing macro (to pull the data from other sheets to "Final") 3. DeSelect "Turnoff Easycal" menu item 4. Select "Refresh worksheet" menu item
I need some way that can identify when the item in the description column doesnt match the first item of the same number- for example, here the 1-blue and 3-orange would be flagged because they should match the 1-yellow and 3-green.
I need to do this on a much larger scale (approximately 20,000 data points), so I wanted to create a formula or macro that could do this for me.. I thought making a reference page with would work but I keep getting an error.. I haven't done VBA in a while, so I may have syntax errors.
If Range("A2:A9").Sheets("Sheet1") = Range("A2:A6").Sheets("Ref") And Range("B2:B9").Sheets("Sheet1") = Range("B2:B6").Sheets("Ref") Then Range("C2:C9").Sheets("Sheet1") = "x" End If
I am getting close to finishing the drop down menu capability when filling in column L in tab Transactions. However, there is a snag. When I enter part of account say "fin" (the important part here is that the part of the word should not be the beginning of the account name) - then I select an account from the menu - but it does not stay in the cell if the part of the name is the beginning of the account name - all is fine.
I created a drop down list (of various Input Groups) and I need to show the selected group's responsibilities on a separate sheet; is there an easy way to do this?
I manage an monthly inventory spreadsheet with over 100 various items in the master list. However in any single month there may be only 5 or 10 active items that need to be reported on. How do I develop a macro that will check the "items on hand" column and delete the entire row if the quantity is "0". My report is limited to showing only items on hand and not the entire list of items.
You can find attached the workbook I am working on.
In my workbook I have four sheets. Only two sheets are relevant in this case: "Sheet1" and "List". On "Sheet1" there in column A there is big range of codenumbers (highlighted with red). On the "List" worksheet I have a smaller list (highlighted with green).
I have a code also in module1 but the code is not working.
I would like my macro to do the following. Check the code number from the "List" worksheet (green) and search for it in "Sheet1" column A (red). If this codnumber can be found in column A then leave the number on the green list. If it cannot be found in column A then, delete it from the green list. If you open the file, you can see on the "List" worksheet that there are three code numbers in the green range. The upper and the bottom code number can be found on the "Sheet1" column A (red) range, but the middle number cannot be found. So if the macro would work correctly then it would delete the middle number, and leave the other two untouched!
I created a macro that will do a subtotal and copy the value then undo the subtotal and delete all the values(i dont need the actual raw data, just need the subtotal). i noticed when i do a copy, i have to paste from the office clipboard. is there a macro i can use to paste from the first item on the list?
I have a normal data validation box on excel, but I want to be able to navigate my way through it using a macro. I can select & opent the drop down list with the following SendKeys "%{DOWN}"
but then an action like
SendKeys "{UP}"
Does not navigate itself up the menu as a normal keystoke would. Any ideas on how to solve this? Basically, I want to select a cell, open the drop down menu, select the first choice in it (so thinking SendKeys "{HOME}{ENTER}" ) all using a macro.
I am looking for a macro that will combine qty's of item codes when first 6 out of 9 numbers in the item number match. Please see example of data below. In this case, the macro looking at the first 6 numbers in used and new. I should get a total of 26 - new and 45 -used.
A B C D E Item Name yard Item Numb Inv New Inv Used Frami panel 3x6 416-100 588801000 6 27 Frami panel 3x6 416-150 588801000 10 Frami Xlife 3x6 416-100 588801500 20 8
I am trying to accomplish is to display a dropdown or combobox with a list of choices. I want the backcolor to be shaded light green to match instructional text that appears in the cell above. That I have working with the selections appearing. Once a choice is made I want a separate procedure to run that will somehow know which choice was made.
I can't put the code within the module for this particular sheet as it is dynamically recreated each time the data is refreshed and the code will disappear. This may seem to be an odd practice but this is how 25+ workbooks are coded within this system for my employer's customer and it is a required practice.