i'm trying to build a GUI-only application using Excel Userforms, with File and Help menus on the form. i'm coming from Java where i know getting a menu on a GUI is possible, but i haven't seen any resources for it in VBA Excel Userforms. is it possible to place menu items in a userform?
View 4 RepliesSuppose I delete a (unknown) number of items from the Worksheet Menu Bar. This can vary because of the fact that my excel sheet is being used by a different number of people, all with a different Worksheet Menu Bar configuration. Is there a way of counting how many Menu items are still left in the Worksheet Menu Bar?
So, suppose all that is left (after using the program) in the Worksheet Menu Bar are Excel, File, Tools, Help. How can the porgram find out that there are only 4 items in the menu?
Came across an example in a VBA book, wrt adding custom menu items. This example included code for deleting the menu item before closing the workbook.
Is there a reason you'd want to do this? The example already had provisions to delete the menu item if it already existed before the code ran, so you wouldn;t end up with multiple items...
One can create additional menu items for the right click, and these will show up always at the bottom. Is it possible to force them to appear at the top of the menu list above cut? This is specific to Macro created items.
View 4 Replies View RelatedWhat's the easiest/best way to add a menu containing menu items so that a user can easily access custom vba-functionality?
View 2 Replies View RelatedI have created a menu called "Temp" and a sub menu called "Temp1". When the user click on Temp1, I need to dynamically add some menu items under Temp1. Is this possible in Excel?
I need to do this on the right click menu. for example, along with "Cut", paste" etc menu's I need to add a Menu Item, Temp and under this menu, I need to add a SubMenu, Temp1. When the user click on the Temp1, I need to populate the child items.
I have created an Addin from one I found on this site which creates a menu on the CommandBar. On this menu I can add my Macros. The Menu is initially supposed to perform a delete function then an add, just in case the menu already exists on the CommandBar. It is also supposed to Uninstall the menu when you de-select the Addin. At the moment it doesn't seem to be doing either, as I have now got 5 CommandBar menu's all the same and I can't delete them?
This also creates a problem of when I add another macro, the menu on the CommandBar doesn't update with the addition?
I have attached the .xla file for you to look at and see where I'm going wrong.
VBA Macros & Creating An Add-in For Them
How do I disable a custom menu item when a user is entering data in a cell?
For example... when the formula bar in Excel has focus, and a user tries to select Data > Sort, the Sort item is disabled. But when the focus is back to the worksheet, Data > Sort is enabled.
I need to do the same thing for my custom menu items.
How can I disable the SAVE and PRINT options under Office Button, in excel 2007??? I've tried a macro that I used in 2003 version, but it not works (problem: "File" menu)!!!
View 2 Replies View RelatedI've got several add-ins that I'd like the end user to install and have accessible under one menu item ("Assessments") in Excel 2003. So far, the code below successfully adds the item, but it only shows the item of one add-in. How can I get it to show all the items under the "Assessments" category?
Private Sub Workbook_Activate()
Run "AddMenus"
End Sub
Private Sub Workbook_Deactivate()
Run "DeleteMenu"
End Sub
Sub AddMenus()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl
Is there a code or a way to make it impossible to make permanent changes to a file without first saving it as something else? I have a master report that is done monthly.
I do not want anyone to be able to save any changes on the master report. How do I go about disabling save and the save as funtions in excel? I have a save as command button that I only want people to use.
Also is there a way to set up a print command button to print to any computers default printer? I have set up a print command button on my computer and it works fine on mine, but I have sent the file to another person and the button is not doing anything on their computer. I assume because we don't have the same computers.
I cannot figure out why this setting has changed. When I right click my tab worksheet in Excel to copy or rename, it does not allow me. I will need your advice to re-activate that options so it is visible and not gray. I tried in the VBA workbook properties settings with no luck and also Tools, Options.
View 6 Replies View RelatedOption Explicit
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCustomMenu As CommandBarControl
'(2)
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
'(4)
Set cbcCustomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup)
'(5) Give the control a caption................
I have created several spreadsheet with customized menus. In step 5 when I type
a period the options for selecting Caption does not appear. In step 6 the 'Control' word didn't appear in list. Sometimes the options in step 6 do appear BUT not the option for Controls. I have created spreadsheets with menus that work but the only way I could do it was to cut and paste from the website and then modify it.
I would like to create a simple right mouse button popup menu for the text box on a userform. I just want Copy and Paste and the functionality that goes with them if possible.
View 2 Replies View RelatedI used the commandBar to create a right-click menu on a userForm but unfortunately I get an error 400 every time I click on the option "Edit" and I don't understand what I did wrong.
Sub CreateCmdBar()
Dim st As CommandBar
'delete the pop-up if it exists
On Error Resume Next
Application.CommandBars("flexgrid_rc").Delete
'Disables enabled error handler in the current procedure and resets it to Nothing. On Error GoTo 0
On Error Goto 0
Set st = CommandBars.Add( Name:="flexgrid_rc", Position:=msoBarPopup, Temporary:=False)
'add two menu items to the new commandbar
With st..................
I currently have a VB macro written where under certain conditions user forms are shown for the user to select options, display messages, etc. When any of these forms are on the screen, and someone drags them, the menu image is 'dragged' across the screen. Is there a way from preventing this from happening?
View 14 Replies View RelatedI am trying to create a "mainmenu". On a Userform using API calls.
Created a Userform and named it Form1.
Added a command button to the form and named it Command1.
In THISWORKBOOK code:
Private Sub Workbook_Open()
Form1.Show
End Sub
[Code] .........
I open the file and Form1 is shown with its command button. When I click the command button I get an error:
Run-time error 49:
Bad DLL calling convention.
What is the correct convention?
I am using the following code to add an item to the right click " cell" shortcut menu.
I placed it in a Worksheet_Activate module in ThisWorkbook. I'm pretty sure the code is correct but it seems something is preventing the code from executing properly because no item is added to the menu. Is there some setting in a workbook that might prevent changes to the right click menu from being made? How can I get this code to execute properly?
'Set NewItem = CommandBars("Cell").Controls.Add
'With NewItem
' .Caption = "MACRO1"
' .OnAction = "MACRO1"
' .BeginGroup = True
'End With
I have one Popup Menus in Userform, But i want to to Open Popup menu in Specific Position in userform, In Fixed Position,i want to specific a position which opens Popup Menus in Userform.
Look In Example in Attach.
[Code]....
menu_1.xls
I am working on a time table worksheet and I need to insert a time Offset that can range from 5 minutes to an hour with 5 minute increments. The message box or user form will prompt, "How long is your Offset:"
The problem is that I only know how to do make a drop down list that is populated from cells on a sheet. Do I have to use a user form?
I've create a userform1 that sends information via email. I have seen userforms that do the same, but that after sending, the sent email doesnt show in the sent items from outlook.
The userform has 2 tectboxes and when the person sends the email the text from the second box comes right after the first one, no space or anything. How do I separate the text by space or paragraph.
I have a (MultiSelect) ListBox1 that is populated with Customer Names for the user to select from. I want the user to be able to hit the CommandButton1 adjacent to the ListBox1, and the selected Customers copy into/get added to the ListBox2.
I have the following code, adapted from other code, but it is not working:
[Code] ........
I would like to populate the captions of checkboxes in a userform with the items listed in a drop down menu located in cell A1. Lets just say I don't know exactly how many items in the dropdown there will be, but I do have an estimate number. Maybe between 20 and 25.
View 9 Replies View RelatedHow to get a listbox to populate from a database sheet the code I am using to do this is posted here and it works great. My problem is now I want to get the Listbox1 results to populate my UserForm5 textboxes from the row selected in the ListBox1 of Userform4, but I am getting the error "variable not defined" and the "rw" gets highlighted. as seen in the code below it.
UserForm4 portion of the code that does the search of the sheet that holds the data
Code:
Private Sub CommandButton1_Click()
Dim sFindText As String, sFirstAddr As String
Dim i As Long, lFindCol As Long, lCol As Long, lRow As Long
Dim rMyData As Range, rMySearchField As Range, cFound As Range
Dim vArray() As Variant
[Code] ......
Userform5 issue is this rw in red doesn't seam to be right
Code:
Private Sub UserForm_Initialize()
TextBox1.Value = SrcWks.Range(UserForm4.ListBox1.List(rw, 0)).Offset(0, 0) '
TextBox2.Value = SrcWks.Range(UserForm4.ListBox1.List(rw, 0)).Offset(0, 1) '
TextBox3.Value = SrcWks.Range(UserForm4.ListBox1.List(rw, 0)).Offset(0, 2)
TextBox5.Value = SrcWks.Range(UserForm4.ListBox1.List(rw, 0)).Offset(0, 3)
[Code] .........
Returning items selected from a ListBox. I have a Multiselect Listbox with 15 items. Additionally, I have a worksheet with 15 columns (each one corresponding to the 15 ListBox items). I'm looking for code that will do the following:
After a user selects values from the ListBox (can be more than 1, thus the Multiselect), I would like for "TRUE" to appear in row 2 of the worksheet for each column. (IE: Column A is for Bikes, if a user selects "Bikes" from the ListBox and hits a CommandButton, I would like for A2 to say "TRUE".
As shown in the sample attachted Excel spreadsheet, I have a UserForm set up to display 2 colums of the range "Elist" using a ListBox. The Userform is called by a Button. I want my UserForm to display subsets of the "Elist" range thus restricting the users choices based on the results of a Filter operation performed on the Elist range. I wrote some filtering code that does select my intended subset of "Elist". I then use the initialize event of UserForm to set the RowSource of the ListBox to "Elist" hoping to display the filtered subset of "Elist". However, the ListBox continues to display the full range "Elist", not the desired filter subset.
View 2 Replies View RelatedI would like to insert the count of items selected in a listbox in a Userform into a cell. I have been scowering the internet and all of the solutions seem pretty clunky (or don't work).
An alternate way that I could do this is if I have the values selected be entered into a column and then I can use the =count() formula, but I can't figure out how to do that either...
I would like to know whether it is possible to change the background colour of items in a dropdown/combobox on my userform?
I have a series of times at 15 min intervals and i want, if possible, to distingish between 'working hours' and 'non-working hours' by making the background of these numbers 'grey'.
Maybe looping through from 00:00 to 07:00 i.e 28 times (28 x 15min intervals)?
I want to select items in a listbox and transfer those items via command button in a textbox. The listbox is already filled. I have no idea how to realize that.
Attached is the form I created so far. I copied everything together and matched it up for me. It's probably not the best way but it works. I marked the section where I need help in yellow.
I have created a sub to add new controls to the "Cell" shortcut menu. Can I remove the standard "Cell" shortcut menu controls? if so how do you do it?
[Code] ......