Im using code from website: http://www.contextures.com/xlDataVal11.html
to display a combobox when I double click any cell that contains a validation list in it. I'm not great with VBA so I am having problems finding what each part of the code does. This is causing problems for another bit of code that I use to display a msgbox when certain values are selected from the list.
The MsgBox shows up great when I select an item from the validation list but does not work at all when I select the same item from the double-clicked combo box. It would be great if I could get the MsgBox to work both ways. This is the code that displays the MsgBox when target value is selected from list
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.AddressLocal(False, False)
Case Is = "B4", "B5", "B6", "B7", "B8", "B9", "B10", "B11", "B12"
If Target.Value = "H" Then
MsgBox "This is a pop for extra information. Savvy?", vbYesNo, "Yo!"
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 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 have a combo box(form control) and have it populated with data.
I want each item to do something so that when one is selected it triggers and event.
the items are:
Rounds 1 - 5 Rounds 6 - 10 Rounds 11 - 15...just like that all the way to 30
the worksheets are labeled "Rd 1", "Rd 2", "Rd 3" ...etc
When I click "Rounds 1 - 5" in the combo box, besides the "Summary" worksheet (which is where the combo box resides) only "Rd 1 - Rd 5" should be visible, I want all other sheets hidden, and when I click "Rounds 6 - 10" I want "Rd 6 - Rd 10" visible and all else hidden.
I use ComboBox to add items to the ListBox in userform
I am tring to loop through the ListBox to check each name in the ListBox, so ifthe name chosen by the ComboBox exists in the ListBox then donot add it, but both codes do check the number of the item in the ListBox.
I need to check the name of the item?
With ListBox1 For i = 1 To ListBox1.Value If i = ComboBox1.Value Then MsgBox "u cannot add this item" Exit Sub Next i
For i = LBound(ListBox1.List) To UBound(ListBox1.List) If i = ComboBox1.Value Then MsgBox " u cannot add this item" Exit Sub Next i
.AddItem tot.Value .List(.ListCount - 1, 1) = ComboBox1.Value End With
I want to use a msgbox to display the dim range of
r = "G" & endg & ":J" & endg
Should be something like G29:J29
How can I do this?
it's so I can investigate what is going wrong with my pie chart code
Sub Add_PVVrGChart() Dim co As ChartObject, endg%, i%, r$, sname$, suffix, r$, s$ '~~~ Suffix allows the code to be manipulated more easily with changing the sheet name but keeping the Suffix the same suffix = Array("A", "B", "C", "D", "E", "F", "G", "H") For i = LBound(suffix) To UBound(suffix)
I have a named range "Lines" (created using OFFSET fuction) in my worksheet. This named range is dynamic as it is created using OFFSET function and points to a particular region in column A only (so its just a 1 dim array). The named range works fine (it changes automatically as I change a dropdown list).
What I want is to display the contents of the array using MsgBox separating the contents using a newline character.
So suppose if the named range "Lines" points to A1:A4 and the contents of it are A1=A, A2=B, A3=C and A4=C, Then I want a VBA code to show: A B C D
I have a file with 2 tabs that linked 1) Input 2) Spread. The idea is for the user to spread the total number they keyed in the "input" by months. I need a code that will display a msgbox if the sum of the variance column in Spread <> 0, so it can prompt the users that they still have to do the spreads before closing the files. I want the action to happen when they attempt to save or close, just to remind them it's not done yet.
Before executing my code I want to check down a column to make sure there are no entries in it. If there are then I want to display a message and then exit the sub. If all the cells in the range are empty then the code is to be executed. What I have so far is
How can I break this onto 3 lines in Visual Basic Editior to make it more readable:
MsgBox "Only enter data in white cells." & vbNewLine & "Yellow cells contain formulas or dates entered automatically", & vbNewLine & "Do not insert blank rows. Copy row(s) and Insert/Paste" , vbInformation, "Spreadsheet by GJF"
I have a combobox on a form that uses match required. When the user selects this box and does not type in anything then decides to change something else on the form an "Invalid Property value" pops up. Is there a way to get around this. I have tried to add "" to the combobox list but it is still not working properly.
I have a list of 20 cities in K1:20 and they can be selected from a drop down menu in column A2:A22. I want then to randomly pick 6 out of 20 and these 6 cities must to appear in a line A1, B1, C1, D1, F1, and G1
On cell A1 I have used the
IF ( A2=K1,K1, IF(A3=K1,K1...................A22=K1,K1,IF(A2=K2,K2......A22=K3,K3)
It seem to be an endless formula is there another way to make it easy ???
I am struggling with work-schedule worksheet and I want to do this:
In my attached sample worksheet are cells coresponding to a day of the month (monday to sunday, and so on...), and cell for job positions. Each day I must assign 5 employees to a different job position (job positions are on drop down lists).
When I select first job (on specific day), I want a pop-up window where would show what job I have allready selected and what job hasn't been selected so far.
How can I do that, is It possible in VBA coding, maybe with Listbox or CheckedListbox.