Populating Combobox 2 With Items That Match Criteria From Combobox 1

Mar 30, 2009

Am trying to get dynamic population of 2nd combobox based on match from criteria in combobox 1.

if column a = bears and column b = colours of bears then

when I select bears in combobox one, combobox 2 would populate with colors of bear.

I am think of having a combobox 1 change event that evaluates each row in a specific range (does it match the criteria?) if so, then add 2nd cell (column b) of that row to the combobox 2.

I know it would probably involve match and offset, add item and loop, but I am not sure what the syntax is.

ADVERTISEMENT

Populating Combobox From Value In Another Combobox

Dec 30, 2011

I am trying to populate a combobox (CboMilestones) based on the project number that appears in CboProjNum. I need the values of certain columns to be added to CboMilestones. My spreadsheet is laid out in a paticular order based on a SQL upload that I will have to perform (1st column = project number, 2nd column = milestone 1, 3rd column = must be blank, 4th column = forecasted date, 5th column = actual date, 6th column = Milestone 2, 7th column = blank, 8th = forecasted date, 9th column = actual date....this repeats all the way to milestone 160) I need CboMilestone to populate with all the milestones on the row of selected project number, and then I need TxtADate and TxtFDate to display the dates of the selected milestone for the selected milestone.

Below is a pic of my spreadsheet and a pic of the code i have so far.

[IMG]

[URL]....; base64,
iVBORw0KGgoAAAANSUhEUgAABLMAAALMCAIAAACQRGcbAAAgAElEQVR4n
Oy9W3TcxoHnDdmxdXmi33TO98KTp9nZmbN9xp+
/1cwoy86MM0PvjGc7m3jNxLkgjpzh2DMxkmhsbsaJkChKuFnHgmM7pmzJhmXKbut
iQTIlU9dGJFmkJEaCKImiRFEERV0oiZ
FAXWzqWt9DNUEQKBSARjcbTf5/53d40NWFQgFEs+
vPAroF4SvHha8cF77eJ3y9T/jWOeHJ88KT56c9ddFW+Oc/

[Code]...

View 1 Replies View Related

ComboBox Not Populating

Jun 1, 2007

I have a combobox that is not populating correctly. The design of it uses an existing list (which changes every month) to populate the contents of the combobox. I want the user to be able to select a location from the list if it is already on the worksheet, rather than having to key in the location name for every single record. This Sub worked just fine and dandy for me until I deployed the workbook to the end user. Then this particular combobox decided not to work.

I have been over this code many, many times and I am almost positive that it's just a matter of my not being able to see the obvious. Perhaps another set of eyes looking at the code will be able to see what I can not.

Sub get_Locations()
Dim allCells As Range, Cell As Range
Dim noDupes As New Collection

Sheets("Main").Select
' get the first from last row #--the last row is a row of record counts and sums.
endRange = ActiveSheet.UsedRange.Rows.Count - 1

ComboBox1.Clear ' This will clear the combobox.
If endRange 65536 Then ' If the row number is not the end of the worksheet, _
there must be something already on the worksheet, so build the list.
On Error Resume Next
' Get unique values in range by checking each cell in range.
For Each Cell In Range("D12:D" & endRange)
noDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0

' Sort the collection alphabetically within the combobox
For i = 1 To noDupes.Count - 1
For j = i + 1 To noDupes.Count
If noDupes(i) > noDupes(j) Then
Swap1 = noDupes(i)
Swap2 = noDupes(j)
noDupes.Add Swap1, before:=j
noDupes.Add Swap2, before:=i
noDupes.Remove i + 1
noDupes.Remove j + 1
End If
Next j
Next i

' Add items to combobox in their new alphabetical order.
itemIndex = 0
For Each Item In noDupes
UserForm2.ComboBox1.AddItem Item, itemIndex
itemIndex = itemIndex + 1
Next Item
Else ' otherwise there's no list to populate and the default row is 12
endRange = 12
Range("A12").Select
End If
End Sub

And just for the record, all object references (cell ranges, comboBox, etc.) are valid and correctly named, so I know it's not there. I also recognize that I have overspecified things by using "UserForm2", but I have done that in the hopes of finding the problem. And the code does execute at the proper times, populating "noDupes" correctly. The problem seems to occur near the end, in the block where noDupes is added to ComboBox1.

View 9 Replies View Related

Populating Combobox

Jul 3, 2006

I have a spreadsheet with loads of different columns on it, I am using a userform to control the spreadsheet. I have one form that allows me to add data to the spreadsheet and another that allows me to search it.

If one of my colums was a list of "counties" what I want to do is to have a combo box that displays all the counties listed so I can pick a specific one and and search it.

This I can do, the problem arises if a new county is added to the spreadsheet it will not be displayed in the combobox because I am using the additem "....." function to populate the box.

View 6 Replies View Related

Populating Combobox From Different Sheet?

Nov 6, 2012

I have an ActiveX Combo box - and Im trying to fill from a 2nd sheet (same workbook). I can get the box to work if the data is on the same sheet but what to I put in the ListFillRange to get it to populate from another sheet ?

View 2 Replies View Related

Populating Combobox In A Form

Feb 27, 2014

I have two types of lists that has to be populated into comboboxes. First type is in a column with a header - lets say A1:A20. For them I`m using a following script:

Code:
For Each cell In ThisWorkbook.Sheets("NACE").Columns(1). _
Resize(Rows.Count - 1).Offset(1). _
SpecialCells(xlCellTypeConstants)
UF1.industry.AddItem CStr(cell.Value)
Next cell

With them all is fine until I need to start for example from row 26. (lets say range to populate is T26:T32) Then I`m lost. changing Offset(1) to Offset(26) doesn't work and I`m getting an error. That however can be handled with a workaround - creating another list that starts from the top. So I gave up on solving that. I need to populate a list from a range that is a row - B5:B20

I've adjusted the script to:

Code:
For Each cell In ThisWorkbook.Sheets("prod").Rows(5). _
Resize(, Columns.Count - 1).Offset(, 1). _
SpecialCells(xlCellTypeConstants)
UF1.PS.AddItem CStr(cell.Value)
Next cell

Because of some strange reason the script doesn`t see the number 1 in cell B5 and unless there are some more numbers in the following cells, it gives the "no cells found error".

View 9 Replies View Related

Populating A Combobox Manually

Aug 1, 2006

I'm sure there is an extremely simple answer to this question, but I can't seem to find it anywhere.

I am adding a combobox to a userform using the controls toolbox. How can I populate the combobox without a macro?

I do not want to add extra code to the UserForm_Initialize() event because this would just add clutter (I have seen numerous examples using .AddItem)

I would like to just change the combobox by hand.

View 9 Replies View Related

Combobox Not Populating Correctly

Sep 12, 2006

I have a userform with a combo box that is populated from a list in a sheet called Clients. The userform is in the same workbook as the Clients sheet. This workbook called "Client List.xls" and is set to be hidden from view. I've created a menu bar icon that loads the "Client List.xls" workbook, and on open runs the initialize procedure. The problem seems to be caused by the "Clients List.xls" being not the active workbook. Is this the case? Is there a way around it? If I unhide the workbook and make it the active workbook, the code works great.

Private Sub UserForm_Initialize()
Dim rngClients As Range
Dim wsSheet As Worksheet
Set wsSheet = Workbooks("Client List.xls").Sheets("Clients")
With wsSheet
.Range("a65536").End(xlUp).Select
.Range(Selection, "A1").Select
End With
Set rngClients = Selection
With cmbClients
.RowSource = rngClients.Address
.ListIndex = 0
End With

View 3 Replies View Related

Combobox - Populating From Another Sheet

Mar 1, 2007

I am trying to populate a combobox located in sheet1 with data from sheet2.

View 3 Replies View Related

VBA Populating Combobox From Unsorted List?

Jan 26, 2014

I have built a Userform that is for a Liquor Inventory. I would like to scan each bottle's UPC Code and pull it from a range list that is set up in (Combobox "UpcBarCodeBox"). That information is stored on a sheet "Liquor & Wine Inventory" in Column "A" (Unsorted). Column "B" is the name of the liquor which is also the column that everything is sorted in alphabetical order. What I would like to do is populate several textbox's that I have set up so that I can input missing data or data that needs to be updated. The problem is I would LOVE to keep the list sorted by Liquor Names (Column "B") and not by UPC Bar Codes (Column "A"). From my research I have found that Index and Match might be the way to go but I can't seem to get it to work right. Since I am still learning VBA, Some things still escape my grasp.

VB:

Private Sub UserForm_Initialize()
Me.UpcBarCodeBox.List = Worksheets("Liquor & Wine Inventory").Range("A5:A205").Value
With ComboBox2

[Code]....

View 9 Replies View Related

Populating Worksheet Column From Combobox

Sep 3, 2009

I have a userform with comboboxes and listboxes etc. The comboboxes have drop down lists which are populated from data in columns from a worksheet.

1.) During the execution of the userform, a value is selected from the combobox, which is place in a column on another worksheet. So far so good. If I select the same value again, nothing shows up in the row below the first selection. If I choose a different value it shows up. I have tried using different properties of the combobox but have not been able to get around this.

2.) I would like, when the excel file is opened that the userform is ready to go, ie enter data. I have tried putting the
Private Sub Workbook_Open()
UserForm1.Show
End Sub

in "ThisWorkbook" module but have had no success with it.

View 12 Replies View Related

Populating Directory Information Into Combobox?

Jan 24, 2013

I am having an issue with some code that I am using. I am using the code below to pull a list of folders within a specific directory. I run the code two different times, once on initialization and then again when the combobox values change. The code works well when it is run in initialization. However when the combobox is changed I wind up getting all of the folders listed in the combobox twice. I do not understand why this part of the code gets executed twice.

Here is the initialization code

Code:
Dim FileList, FilePath As Variant
mypath = "c:"
MyName = Dir(mypath, vbDirectory)

[Code].....

View 3 Replies View Related

VBA Populating Combobox From Unsorted List

Jan 25, 2014

I have built a Userform that is for a Liquor Inventory. I would like to scan each bottle's UPC Code and pull it from a range list that is set up in (Combobox "UpcCodeBox"). That information is stored on a sheet "Liquor & Wine Inventory" in Column "A" (Unsorted). Column "B" is the name of the liquor which is also the column that everything is sorted in alphabetical order. What I would like to do is populate several textbox's that I have set up so that I can input missing data or data that needs to be updated. The problem is I would LOVE to keep the list sorted by Liquor Names (Column "B") and not by UPC Bar Codes (Column "A"). From my research I have found that Index and Match might be the way to go but I can't seem to get it to work right.

Code:

Private Sub UserForm_Initialize()
Me.UpcBarCodeBox.List = Worksheets("Liquor & Wine Inventory").Range("A5:A205").Value
With ComboBox2
.AddItem "0"
.AddItem "1"
.AddItem "2"
.AddItem "3"

[Code]....

View 3 Replies View Related

Populating Combobox (ActiveX) Using Variable

Mar 19, 2014

I have 100 combo boxes on an excel sheet, they are divided in three sets (1-25, 26-50, 51-100). Each set has the same value within the set, but is different from the other.

Right now I am able to populate the combo boxes using the following code

Code:
ActiveSheet.ComboBox1.AddItem "Value1"
ActiveSheet.ComboBox1.AddItem "Value2"
ActiveSheet.ComboBox1.AddItem "Value3"
^ This is time consuming and error prone. Is there a way I can use a variable to populate the combo boxes?

I have been able to find the following code, but it does not work.

Code:
Dim ComboBox As ObjectFor ComboBoxCalc1 = 1 To 25
Set ComboBox = ComboBox(ComboBoxCalc1).Select
ActiveSheet.ComboBox(ComboBoxCalc1).AddItem "Value1"
ActiveSheet.ComboBox(ComboBoxCalc1).AddItem "Value2"
ActiveSheet.ComboBox(ComboBoxCalc1).AddItem "Value3"
Next

View 6 Replies View Related

Populating Combobox In Userform - How To Filter

Mar 22, 2014

I have a Userform where I use a ComboBox to populate raw A from a worksheet.

I use this form to update new data that relates to the selected item in the ComboBox.

In that user form, when I select an item from the ComboBox, I idetifay it's raw and display the data from columns B,C...to I in text boxes on the Userform.

I then set the "Enable" property of the text boxes that has data to "False" so that field cannot be updated again.

What I do today is if all the fields where updated, a message box will say "All fields are full" and I clear the form.

Now I want to improve my selection by removing items from the ComboBox if all the "needing update" columns are field.

By this I want to filter out the items that where already updated before and only show the ones needing update.

Here is what I have, I need to change the UserForm_Initialize section so it will only show the rows needing update.

Code:

Private Sub UserForm_Initialize()
'Populate "Cards" Combobox.
Dim rngCards As Range
Dim ws As Worksheet
Set ws = Worksheets("Rejects")

[Code]..

View 7 Replies View Related

Populating Combobox On Userform With A Range

Aug 10, 2009

Sheets("Sheet1").Shapes("ComboBox1").Select
Selection.ListFillRange = "='Sheet1'!$b$15:" & comborange & ""
where comborange = cell reference of the last cell in my range..

I have moved this combo box to a userform now and I'm trying to populate the box via one of the userforms triggers.. My problem is I can't figure out the syntax to select the combobox on the userform.. it doesn't seem to be handled the same way as when it was on the worksheet..

View 9 Replies View Related

Populating Combobox Based On Selection Of Another

Dec 25, 2009

I have a problem involving two combo boxes in a user form.

I need to populate different “lists” to combo 2, based on a selection in combo 1.

I browsed through the forum but could not find any solution that made sense to me.

Here are the specifics:
Combo 1 (called Cbo_Act) is populated with a list based on a named range in one of the sheets. The range is named “activity” and holds 2 records (“Income” & “Expense”).

This list is loaded as part of the form initialization.

If the user select “Income”, I need combo 2 (called Cbo_Act_Type) to show a list of various income types (derived from a dynamic named range called “Income_type”) and if the user selects “Expense”, I need the same combo box (Cbo_Act_Type) to show a different list, specifically – a list of various expense types (derived from a dynamic named range called “Expense_type”).

I know that this should be with a Cbo_Act_Change () routine, but for the life of me, I can’t figure out how to do it.

View 9 Replies View Related

Populating Combobox Based On Selection From EXCEL Worksheet

Jul 25, 2014

I'm trying to do some userform development with multiple dependent comboboxes, but I am having trouble populating the third and last combobox. First, I populate the 1st combobox on the userform initialization. I can get the first 2 comboboxes to populate correctly, but I can't seem to get the 3rd combobox to populate correctly.

The 3rd combobox takes the selection from the 2nd combobox and searches column "A" in the worksheet "Chassis Specs" and populates the 3rd combobox with data from column "B", there will be repeat items in column "A", but all those occurances should populate the 3rd combobox with the data from "B".

I am attaching my whole workbook.

Chassis Specs Info_Build_REV B.xlsm

View 14 Replies View Related

Populating Textbox From Combobox Options, Then Clearing Form

May 5, 2009

Error Help.xls. An example is attached. If you open the attachment, you can see that I'd like to choose a date from the combobox and have the corresponding "date code" (that's what I'm calling it - it's for a different, more complex purpose) appear in the text box. For this to happen, I'm using the following

View 2 Replies View Related

Userforms - Populating Textbox Based On Combobox Selection

Oct 26, 2003

I am creating a Userform and one of the elements on it is a combobox where the user has to select their name. On the same Userform, I want to have a textbox (or listbox or another combo box if necessary) which will show the users default cost centre based on the initial combobox selection. I've tried doing this various ways, but I can't get the textbox to update when the combobox selection changes.

View 7 Replies View Related

Add Same Items To 10 Different Combobox

Mar 13, 2009

The below code shows the way I add items to 10 different comboboxes. However, the items to be added are actual the same.

Is there a way I can simiply it? I am worry that by the end of day, i might have up to 50-60 comboboxes and the code will be a relativity long and not efficient.

Taking into consideration the the comboboxes will be labelled as Jieyi_task_ComboBox1...to 10
jane_task_ComboBox1...to 10
Kenny_task_ComboBox1.. to 10

View 8 Replies View Related

Add/Delete Items To Combobox

May 30, 2009

I want to know the procedure of adding and deleting the items to a combobox or list box dynamically.

View 13 Replies View Related

Adding Items To Combobox

Jul 29, 2009

In my excel sheet, from B2 to B20 i have datas like,

aaa
bbb
ccc
aaa
ccc
ddd
rrr
ttt
bbb
rrr
ttt

I want to add this to my combobox1 with out repeation as, 'aaa' should be listed in combobox once. What is the macro for this or we can do it in Combobox properties itself?

View 12 Replies View Related

Alphabetize Combobox Items

Jan 19, 2010

I have a significant number of comboboxes on a multipage userform. Almost all of them are populated dynamically (it takes the user choice from one combobox, looks for that value on the spreadsheet and if it finds it, it takes whats in the next column and adds it to another combobox).

My problem is that all the items in these other comboboxes are not in alphabetical order. I'd like to find some code that will work for all my comboboxes so that I don't have to have the same code over and over again for each field.

I found the code below and that works to alphabetize the dropdown, but I still have to use it over and over again and change it for each fieldname (in red). I tried to use a variant and just make the value the same as each fieldname before it calls the sub and whats in red below was just my variable but that just crashes my excel.

View 4 Replies View Related

Items From Sheet In Combobox

Jan 12, 2007

C Attached file.

I want the items that appear in B9:B5000, automaticaly in Combobox_Category. How can I do this, so that every item stays unique.

example B9 = fat cow and B10= fat cow, fat cow will only appear 1 time in the combobox lista and not twice, how can I organise the combobox list Alphab?

View 4 Replies View Related

Calling Macros For Items In Combobox

Feb 9, 2014

I am trying to run macros for each item in combobox. These macros will insert text in a cell. The problem is that when i make a selection from combobox, save the file and reopen the file, it again runs the macro based on the value in combobox. I am getting the results twice in a cell.

I've written the following code.

[Code] .......

View 5 Replies View Related

Find Range For Items From An Combobox

Feb 24, 2009

I have an workbook with two worksheets: sheet1 and sheet2. In first sheet I have an combobox (with data from sheet2, range A2:end xldown). In second sheet I have:

column A: item
column B: item with range
column C: range

I need to select one item from combobox (for example 3) and after that to select a cell (for example D3).

In sheet2, column A, I need item 3 to be deleted.
In sheet2, column B, I need item 3 to be added.
In sheet2, column C, I need the selected cell (D3) to be added and so on for all the items!

View 3 Replies View Related

Loop Through Combobox Objects To Add Items?

Mar 27, 2013

method of looping through objects to make changes.

I have 12 comboboxes on a userform which I have set to dropdown list and want to populate during the userform initialization. Each combobox is called "pt*" where * is a number from 1 - 12. I have currently set up my code with 12 lines, one for each combobox to apply the same dropdown list to each of the 12 boxes.

ie
Code:
pt1.rowsource = ptsource
(where ptsource contains a range reference on the worksheet)

I'm interested to learn how to improve my code to loop through 1-12 and apply the rowsource to each combobox.

I did search through some past questions but could only come up with a method which seemed to step through every combobox on a worksheet rather than userform and in my case, I have two other comboboxes on the userform which I do not want to add this rowsource to, only the "pt*" named comboboxes.

View 4 Replies View Related

Combobox ADDING Only The Items That Are NOT In The Combo Already

May 2, 2006

I've got a database and want to put the names that are in one culumn of the Worksheet into a combobox.

I use a Loop and the addItem procedure.

The thing is that there are many names that are the same, just diferent records for the same company...

How do i do that every name only appears once in the ComboBox.

View 3 Replies View Related

Add Unique Items To ComboBox Control

Aug 30, 2006

I have a database of data that looks like this

Centre Name Training Type Expert 1 Expert 2 Expert 3 Expert 4
MyCentre MyTraining Me
MyCentre MyTraining Me
MyCentre MyTraining Me
MyCentre OtherTraining Me
NewCentre NewTraining NewPerson

I am trying to create a user form (in VBA) with a combo box that has each centre name appear only once (despite the fact that in the database each occurs multiple times). When a specific centre is selected, this brings up all the different training types associated with that centre in a separate list box. When that training type is selected, it should bring up all of the experts in that training type (for the specific centre). I should mention that the range is static (though the data is always contiguous) as the database is updated on a going forward basis.

View 2 Replies View Related

Ignore Duplicates When Adding Items To ComboBox -VBA

Dec 3, 2011

I need to add items to a combobox without adding duplicates or empty data. I am able to add without empty data but how to ignore the duplicates.

Here is what I have...

Code:
Dim GL As Range
Dim ws1 As Worksheet
Set ws1 = Worksheets("Main")
For Each GL In ws1.Range("MainGL")
If IsEmpty(GL) Then
'do nothing
Else
ComboBox2.AddItem GL.Value
End If
Next GL

View 3 Replies View Related

Populate Combobox List With ONLY Unique Items ()

Nov 16, 2006

Populate Adv Filter Criteria from Inputbox with valid data

I've set up a macro to extract 3 different sets of data using Advanced Filter (same data range, different criteria & extract ranges)

There are multiple options (different individual dates) to satisfy the criteria (a date) for each of the 3 extracts and I want the user to select the criteria (a specific date) from the range of unique values in the data range upon which the Advanced Filter criteria is going to be applied. (A bit like the effect provided by Autofilter)

My initial attempt was to capture the criteria date from the user and populate a cell, and then have a vlookup function in another cell check if that crieteria value exists in the specified range. I then ran a loop in the VBA code until the value is valid (ie. exists in the range). However, to streamline this I was hoping to allow the user to see a list of the valid (available) dates when they respond to my Inputbox request for the criteria.

View 9 Replies View Related

The ComboBox I Wait About 1-3 Seconds For About 40 Items In The Worksheet

Jun 2, 2007

My question is if it's possible to change the code and make it work faster. When I change the ComboBox I wait about 1-3 seconds for about 40 items in the Worksheet. I still didn't test it with more items. Here's the
Private Sub ComboBox1P2_Change()
If ComboBox1P2.ListIndex = 0 Then
ComboBox2P2.Style = fmStyleDropDownCombo
ComboBox2P2.Value = sign
ComboBox2P2.Enabled = False
ComboBox3P2.Clear
ComboBox3P2.Enabled = False
ComboBox1P2.SetFocus
ElseIf ComboBox1P2.ListIndex 0 And ComboBox1P2.ListIndex -1 Then
ComboBox2P2.Style = fmStyleDropDownList
ComboBox2P2.Enabled = True...........

View 9 Replies View Related

Adding Column Head As Items To Combobox

May 13, 2006

How do I add the column heads (e.g. A1, B1, C1....) as items to a combobox or listbox if they are not empty?

View 9 Replies View Related

Combobox Validation: Only Listed Items Can Be Chosen/Used

Oct 2, 2006

I have a Combobox with it's 'RowSource' set to two columns x 1500 rows on a spreadsheet. The Combobox is set to 'fmMatchEntryComplete'. When the user types in invalid text I get an "Invalid Value Property" error. I would like to validate the Combobox so that the user cannot type text other than available in the list, or not allow for the focus to be taken away away unless the item is a match to the list. At present due to the interaction of other controls on the userform, the only way to clear the error is by pressing the 'Escape key'. I have a button designed to reset the 'RowSource' of the Combobox but even after adding a 'MouseMove' event to this button with code

Application.SendKeys "{ESC}"

View 4 Replies View Related

Sort ListBox Or Combobox List Items

May 9, 2008

The code for sorting a multi-column listbox in Retain Selection After Sorting ListBox was really good, and I've used it a lot in an application I'm building.

What I'm hoping to do is reload a listbox in such a way that the items appear in the same order they were previously in. I'll describe two scenarios:
1. User edits a record
- user sorts listbox
- user selects a record
- user edits record
- listbox reloads, unsorted

2. User adds a record
- user sorts a listbox and sees a record is missing
- user adds the missing record
- listbox reloads, unsorted

ideally the last step for each would be "listbox reloads, sorted" and the user would go on down the list. the tricky part i think is when rows are deleted or added.

i'm starting on a solution, but if there's some existing code that will do this i'd appreciate if someone could point me to it (because, for example, the listbox sorting code i referred to above anticipated things i did not).

View 9 Replies View Related

List Box Depending On Combobox And Add Or Delete Items To Range

Jul 4, 2009

i had a user form with a Combo box,list box,text box and a command button. I need the code that works upon selecting:

1)An Item from the combo box should display the list in the list box.

eg: If Country is selected from the combobox then the list box should contain all the names of the countries from the country Column

2)An item should be added to the list in the worksheet when an item is entered in the textbox.

Like wise, when an item is selected from the combobox from "Delete Items List" all the items relating to the item selected from the combobox should be displayed in the list box and a choice to delete the items relating to the combobox item should be provided.

View 4 Replies View Related

Combobox List - Pivot Items Selection Code

Nov 23, 2006

I have a userform, on the user form I have a combo box. when i select an item from the combobox list. I want it to show only that item in the pivot table.

Code:
Dim i As Integer
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Description")
For i = 1 To .PivotItems.Count
If i = ComboBox2 Then
.PivotItems(i).Visible = True
Else
.PivotItems(i).Visible = False
End If
Next
End With

View 9 Replies View Related

Excel 2007 :: Adding Items To Combobox At Run Time?

Jan 12, 2012

Adding items to combobox at run time

Setup office 2007 win xp pro ie8

Further to my post relating to swaping jpgs

The code below scans from the column on the row of the worksheet till it finds a blank, this seems to work ok as I previously had a msgbox in that displayed the value of n once the loop finished

So I was hoping that the values in the columns on that row would be added to the combobox but for some reason I get a typing missmatch error.

Code:

Dim n As Integer
n = 1
Do While LValue6 "" 'find out how many alternatives there are
LValue6 = FoundISBN.Offset(0, 32 + n).Value
n = n + 1
DataInput.ComboBox1(n) = LValue6 - I was hoping that the value in the cell was added to the combobox
Loop

View 4 Replies View Related

Adding Items Into ListBox With Comboboxes Even Combobox Is Empty

Mar 21, 2013

I have a list box in the userform. I would like to add items into ListBox which correspondent with 4 combo box values. If all combo boxes is selected, that would be easy task. However, user might not need to select all combo boxes. If any of the combo boxes empty, my code fails that end up listbox is empty. I could write the code with all of the combinations, but that will be my last choice if there is nothing easier than that. Can I adjust the code such as if the combo box="" then skip then look at the other combo box if that is "" than skip again. If all combos are "" add all the items from the source.

My code is below:

AllStaffLB is listbox
StaffSrchCB is combo box
StaffSrchCB2 is combo box

[Code]....

View 2 Replies View Related

Adding Unique Items To ComboBox From Another File/Workbook

Aug 31, 2006

I need to add about ~200 items to Combo From Other Excel File (with no duplcates).
How to make it.

Private Sub UserForm_Activate()
With cboComp
.addItem "item"
End With
End Sub

View 3 Replies View Related

ADVERTISEMENT