I have a userform with 5 listboxes on the first page, each with multiple options. They are all set up so any number of options can be chosen.
2 are populated by the 'add item' method, and the other 3 pull data from 3 columns of the database when it's initialised to ensure all possible options are included.
My question is this - as there may be many options in each listbox to scroll through, if someone wanted to search on all the options in the listbox, it would be easier to have a 'Select All' option at the top, but I have no idea if this is possible, let alone how to do this -
I have made a simple procedure (which will extend to make something that I have to make but for time being) it asks user to select a chart type in a userform using option buttons and then the chosen chart type is taken as the chart type and makes the chart.
problem is that the typechart - variable to identify the chosen chart type - is not being recognised. Here's the coding, the variable is not passed (in yellow bolded) from one procedure to another?
Private Sub NextButton_Click() Call ShowType If bFlag = False Then MsgBox "Not Selected" Call ShowType Else Call MakeChart End If End Sub
A custom UserForm pops up when a cell is double-clicked. The form contains a ListBox that presents the user with a list of values to select. When the UserForm first pops up I want the item that matches the value of the activecell to be highlighted/selected.
I want to add a user-form on a chart, which will have check-boxes that will allow me to select series(lines) that I want see and compare in a chart. Currently my line chart has 24 series (Lines) which makes the chart very difficult to view and looks very busy. How do I add list of check-boxes that will allow me to select one or multiple lines that I want to see at a time?
I have 2 userforms. UF1 and UF2. UF2 has a rowsource set to its Listbox. UF1 has a search function that searches the original sheet. Now I want to double click on an entry in UF1's Listbox and select the same entry in UF2's Listbox. I want to then work with that entry in UF2.
[Code].....
I do all of this to circumvent Excels restriction. I can't search in a rowsource Listbox, but any edits done to my new Listbox wouldn't be made to the Excel sheet.
I have a multiselect listbox with values that gets populated from a sql statement, and I would like to get is the first or second index from the selected item. I know how to get the listindex from a combobox by using:
VB: cbnumber.List(.ListIndex, 0)
How can I loop through and get the 1st index number for the selected items only from the listbox? I want to pass this index number to another sql statement.
I have a COUNTIFS function that, among other criteria, only counts cells in which the value is "P". I now want to modify this function to count cells in which the value is "LA" in addition to cells in which the value is "P". I'm not sure how to work this into the argument. I tried using OR("P","LA"), but that's not working.
I want to set up a cell so that when the cursor is on the cell a drop down option appears allowing the selection of a yes or no to be shown in the cell. What's this called and how do I set it up?
I have a button in a template file (.xlt) that will save the file as the customer name in cell C4. That template file feeds an Access database and when you save the template file you are prompted with the following system message:
I have a named range on a hidden sheet which populates data validation lists on 'sheet 1, cells b5-b55. My question is this...Is it possible to, upon entering a new item in b5 (for example), to have that item automatically added to the named range? (preferably through a button on a pop up form that opens w/ the question 'would you like to add to the list?, similar to an access form)...I've seen one example in the past which I found with a link from this site, but couldn't make it work. If the answer to my question is yes, could you also suggest a location of an example if you know of one?
The below code works well. However I would like to give the users an option to opt out of running the code when the message box appears.
Code: Sub delete_sheets() Beep MsgBox "This will delete All Sheets but the active sheet"
*****this is where I would like to use an additional message box or include it in the above message box an option for the user to cancel this code****
Range("XA1") = ActiveSheet.Name ActiveSheet.Name = ("Delete_Sheets") Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In Worksheets If Not ws.Name = "Delete_Sheets" Then ws.Delete Next ws
I have a drop down list that is dependant on another drop down list, all this works fine, however if the user changes the first drop down list the second still continues to display the last option chosen by the user, is there a way to make the 2nd drop down list display "Please Use Drop Down List To Select An Option" instead, also is it also possible to do this without code?
I have a userform with 3 option buttons. Each buttin is set to display another userform.
Private Sub OptionButton1_Click() Userform1.Show End Sub Private Sub OptionButton2_Click() Userform2.show End Sub Private Sub OptionButton3_Click() Userform3.Show End Sub Private Sub UserForm_Click()
End Sub
Right now the form is running perfectly. If I select an option with the mouse the correct form shows right up. The issue I have is that, the excel file will be running on a computer that will have no mouse. It will be using a barcode reader as its primary input source. What i would like to do is have the user swipe a 1,2 or 3 will the barcode reader or keypad.
I have a userform that I'm using to add data to a worksheet, with the following
Private Sub CommandButton1_Click() Dim OutSH As Worksheet Set OutSH = Sheets("Sheet1")
OutSH.Cells(nextrow2, 1).Value = Surname.Value OutSH.cells(nextrow2,2).value = ID.value OutSH.cells(nextrow2,3).value = Date.value ...... I need to ensure that duplicate entries are not made for the same person on the same date. The ID is unique to each person.
IF statement that can check for a duplicate and then come up with a dialouge box with some custom text, and then exiting the sub?
What I want to do is select other options in IE html drop down list. But somehow the other methods I read online doesn't work with my situation. I got either "Variable or Block Variable not set yet" or "Property or Method doesn't apply" errors. The following is the VBA code I have so far:
i want to type 1-1 in my excel sheet and it is automatically coverting to 1-Jan and then i checked for formatting to the way i want then i founf excel automatically selecting custom option in format then if i select general my 1-jan is converting to 41640 number. Now i want excel sheet should show what typed in it i .e. 1-1 only.
I'm using the select sheets to print code from: http://j- walk.com/ss/excel/tips/tip48.htm. I need to add in another option to select whether to print the page as horizontal or landscape. I've been able to add the checkbox, but am having a hard time with the loop to process correctly. I also have the landscape changing code as well. Here is my Option Explicit Sub SelectSheets() Dim i As Integer Dim TopPos As Integer Dim TopPos1 As Integer Dim SheetCount As Integer Dim PrintDlg As DialogSheet Dim CurrentSheet As Worksheet Dim cb As CheckBox Application.ScreenUpdating = False If ActiveWorkbook.ProtectStructure Then MsgBox "Workbook is protected.", vbCritical Exit Sub End If Set CurrentSheet = ActiveSheet............
having trouble with the details of actually making these features work for me. I figured out how to create a UserForm with a ListBox and 2 buttons, but I don't know how to proceed from here.
1. Populate the ListBox in the UserForm with a list of names from the sheet "Totals_Dropdowns", cells K2:K11
2. Make the UserForm pop up and enter the user's selection into cell C40 of the "Regenerate Request"
I know these are very basic operations, and I'm pretty sure I can figure out the rest of my problems once I can get past the above.
I have two option buttons on a user form, one for a temperature of <250 & one for a temperature >250. I want the option button >250 to be greyed out or have it so that you cannot choose it & option button <250 selected if a certain criteria in a list box is selected. The list box is called Valve_Model & the criteria i want it to work on is if the valve model HPBV Soft is selected & HPBV Soft AC.
I have a simple user form with 8 frames each containing four option buttons. I need a routine to validate that a each frame has had a single option button selected once a command button is clicked.
Here is the code I'm currently using but it isn't working correctlt.
Private Sub CommandButton2_Click() Dim Cnt As Integer Dim Ctrl As MSForms.Control Dim WS As Worksheet For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "OptionButton" Then
If Ctrl.Value = False Then
MsgBox "Please answer ALL questions"
Exit Sub End If
Else MsgBox "Thankyou for completing the questionnaire"
I have a userform with Option Buttons. I have them all initialized as deactivated except for one at a time as the user performs certain tasks (e.g. Create a new worksheet with the name "database"). Once each task is completed, the previously activated option button becomes deactivated and another option button becomes activated. That works fine. My problem now is that I can't change the default tab index settings to put the black dot next to the activated option button:
This doesn't seem to work:
Code: If Sheets("Database").Range("A1") vbNull Then Controls("OptionButton1").Enabled = False Controls("OptionButton1").TabIndex = 1 Controls("OptionButton2").Enabled = True Controls("OptionButton2").TabIndex = 0 End If
I have a userfrom with 2 textboxes used for entering dates. would like to either force the user to enter the date as xx/xx/xxxx or have a calendar feature where they can select a date. I checked my 'additional controls' in my toolbox but do not see a calendar option.
I am using this code to hide or unhide rows of text on another sheet:
VB: Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String Dim sValue As String
'Get the address of the cell that changed without '$' signs sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB: If Target.Value = "Not Pursuing" Then ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I have an excel column that includes many numbers. I want to add them to the listbox. But there are same numbers in the list. What I want to do is to add each number to the listbox only once. Example:
This is what I have__________________This is what I want 622768____________________________622768 622768____________________________631215 622768____________________________635054 631215____________________________647461 631215____________________________681216 635054
