Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Transfer Items From One Listbox To Another Listbox

I cannot find this information anywhere else in this forum...

Does anybody know how to transfer an item from one list box to another using code, on the click of a button.
The list box with the information in is called 'Team_ListBox'The list box i am wanting to transfer to is called 'Starting_Team_ListBox'The button to do this task is called 'AddPlayer_team_Btn'

View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Transfer Chosen Items From Multi-Select ListBox
I am trying to create a data entry form with a text field and a listbox. The list box is populated by another sheet and the text box will be used to enter names. I need to be able to enter a new name, select multiple options from the list box and then click a button to add this info to a sheet in excel.

I have read about changing the list options to allow this etc - the problem is I can't get the results to go back into excel - all I get is a name with nothing from the listbox.

View Replies!   View Related
Transfer Chosen UserForm ListBox Items Into Worksheet Textbox As Comma Separated List
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.

View Replies!   View Related
ListBox Transfer Code
I'm using this code to add items to another listbox, based on selections in the first listbox.

It's supposed to also remove the item from the original list (to prevent duplication), but causes an error on the 'removeitem' line. Anyone know why it would do this?

Also, is there a better way of doing this for a multi-select listbox?

Private Sub AddSingle_Click()
Dim iIndex
With ListBox1
For x = 1 To ListBox1.ListCount - 1
iIndex = ListBox1.ListIndex
ListBox2.AddItem .List(iIndex, 0)
ListBox1.RemoveItem .List(iIndex, 0)
End With

View Replies!   View Related
Multiselect Listbox Transfer
I have a multiselect list box in a userform and need to transfer all the selected items in the list to Sheet2 Column D starting in the first empty cell.

I am using the following

Private Sub CommandButton1_Click()

Dim iListCount As Integer
Dim iRow As Integer
Dim rStartCell As Range

Set rStartCell = Sheet2.Range("D65536").End(xlUp).Offset(1, 0)

For iListCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iListCount) = True Then
ListBox1.Selected(iListCount) = False
iRow = iRow + 1
rStartCell.Cells(iRow, 1).Value = _
ListBox1.List(iListCount, 0)
End If
Next iListCount
Set rStartCell = Nothing

End Sub

My problem is that this is transfering just the first selected item from the listbox to the first empty cell in Sheet2 column D but the rest of the selections are not transfered.

View Replies!   View Related
Multicolumn Listbox Selection Transfer To Cell
I have a activex multi-selection list box (on a worksheet). It has two columns, referenced from two columns on the worksheet (state abbreviation, state code) AA7:AB58. I'm using the following code below to transfer selections to cell A1.

View Replies!   View Related
Create Listbox: Select & Transfer To Range
ListBox Transfer

I have created a Listbox with 300 products in it - The user can only select a maximum of 10 of them - these 10 products then need to be transferred to another worksheet beginning at the range B13 and ending a B22, Once these have been transferred the product number (eg 1 = Meadowmin 12) is then linked to a vlookup allowing further information of that particular product to be displayed.The vlookup is working

I have tried to use the Ozgrid sample (ListBox Transfer,xls) - works until the range B13, but does not continue to put the other 9 products below my first choice.

This is currently the code I am trying to work on. It keeps on counting 13 rows and then adding the product, it must count only to first 13 rows and thereafter remaining product below one another (max of 10)

Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range

View Replies!   View Related
Deselect Items In Listbox
I can't seem to get my listbox to deselect an item. When the user clicks on a day of the week in the listbox, they are given a yes/no option to print the sheets for the day selected. If they select no and change their mind, they cannot click on the same day of the week without first cancelling the listbox and re-opening it.

Private Sub UserForm_Initialize()
Dim myarray As Variant
myarray = Split("Monday|Tuesday|Wednesday|Thursday|Friday|Saturday|Sunday", "|")
ListBox1.List = myarray
End Sub

Private Sub ListBox1_Click()
Call PrintRoutine(ListBox1.Value)
End Sub....................

View Replies!   View Related
Preselect ALL Items In Listbox
I have a Listbox with a varying number of items in the list.
90% of the time the user will select all the items in the list.
Is there a way to have all the items preselected?
Then the remaining 10% can unselect.

View Replies!   View Related
Copy Multiple Items From Listbox
I am trying to copy multiple items from a listbox.

I have a listbox which populates with all the email addresses in my global address list.

From this I select email addresses which move to another listbox.

I then want to copy these selected email addresses to a spreadsheet when I hit a button.

I can get it to copy the 1st one but that is it.

I know this will be very simple to do but I just can't think what it is.

View Replies!   View Related
Using A Listbox To Select Pivot Items
How to select pivot items in a pivot field based on choices from a MULTICOLUMN listbox?

At present, all I know is how to deselect pivot field values

With ActiveSheet.PivotTables("PivotTable4").PivotFields("MONTH")
.PivotItems("MAY").Visible = False

Because the pivot table automatically starts with all items selected?

View Replies!   View Related
Dotted Lines Around ListBox Items
ListBox2 (right) is a copy of ListBox1 (left), yet when I populate ListBox1 I get dotted lines separating each item (Photo #1.)

When I populate ListBox2 it comes out clean (Photo #2.)

what I might need to change so that ListBox1 does not have the dotted lines around each item?

Scrolling up and down w/ListBox1 will remove some of the dotted lines.

View Replies!   View Related
Move ListBox Items Up & Down
I have a list of items across 4 rows. It is a single select, not a multi-select list.

Row 1 is a Unique ID (1 to nth), Row 2 is a description, Row 3 is a Number Value for one requirement and Row 4 is a number value for another requirement. I have a listbox which captures the range and displays the data in a multi-column format. I want the user to have the ability to move records up or down in the order. I know you can do this for individual items in a colum using list index, but list index does not like to capture rows.

View Replies!   View Related
Display Items In TextBox From ListBox
I am confronting a problem with a ListBox that displays Item by the selection of a ComboBox in the same Userform.

All works like this in the column A from my data sheet I have a list of names and in the column J I have a list of years.

What my UserForm1 dose is to select the year column with the ComboBox and display in the ListBox the corresponding name from this year selection. Until there all work fine.

Now I have to display in the TextBoxes form the Userform2 all data form my (data sheet) and this dose not work properly.

What happens is that when I select and Item in my listBox.Userform1, Usrform2 kind of display Items from another person.

I will also attach an example on this thread for a better view of my problem.

View Replies!   View Related
Listbox To Filter Pivot Items
I'm running reports in one workbook on different types of spend for 12 business units using 1 worksheet containing the raw data, and 6 other sheets with pivot tables showing different levels of detail.

I've used simple VBA to prepare to standardise the raw data and refresh all the pivot tables with no problem

I need to filter the data to show spend for specific business units. I'd like to do this using a listbox showing the units where I can select the unit(s) to report on, which in turn will only make the units selected visible on each table in the workbookwith no other intervention.

There is another thread on here (showthread.php?t=55041) that shows how to use the list box to control 1 pivot table on one sheet but I can't find anything which shows me how extend this to cover multiple tables over multiple sheets.

View Replies!   View Related
Retrieve Selected Items In Listbox
I have a listbox with several items selected. Is there a way to automatically show the selected items in the worksheet (as values in cells)?

View Replies!   View Related
Add Or Remove Items With A Checkbox Into A Listbox
I have 10 checkboxes,

When the checkbox is checked, add the cell next to it to t a listbox in another sheet. (in the sample, the result ,must appear in sheet "relatorio", inside the yellow cells)

When the checkbox is unchecked , remove that item from the listbox.

View Replies!   View Related
Unwanted Values/Items In ListBox Control
I have an issue with some unwanted items in a listbox that gets its data from a pivot table, however it only happens with the one pivot field and for three of its pivot items.

I tried following a suggestion from an earlier thread to re-create the pivot table, but it did not work.

I'd like to post the file, but its too large, even in zip format.

View Replies!   View Related
Listbox Move Selected Items To Another Worksheet
I have listbox of information set up to have a user choose several items. I want the items to then transfer to another worksheet. I am using the code I found here:

Private Sub CommandButton2_Click()
Dim lItem As Long
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Sheet2. Range("A65536").End(xlUp)(2, 1) = ListBox1.List(lItem)
ListBox1.Selected(lItem) = False
End If
End Sub

But it is only moving The first item in a column, instead of all the columns of information. What do i do to get it to move all the information??

View Replies!   View Related
Add Items To Listbox Based On Criteria
I have created a listbox 'listbox1' and I wish to add some data to it based upon a customer number appearing in cell "D30"

In my spreadsheet, I have another hidden sheet called 'log', and, based upon matches of the customer number in column A (there could be multiple matches) I want to display all of the matching data in my listbox. Please could someone help me out with some code?

The columns I would want to bring into my listbox would be columns A,C,K and L

View Replies!   View Related
Sort ListBox Or Combobox List Items
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 Replies!   View Related
Move Multiple Selected Items To Another Listbox
The following code populates a forms' second listbox (Elements_lbx) with True. No amount of diddling (by me) can get the selected items from form's first listbox (Content_lbx) moved over to the second. (NB. the list box isn't the standard VBA listbox but an open source: ListEX from Marco Bellinaso.)

Private Sub CommandButton2_Click()
Dim lbx_Sel As Long
' loops through ListBox to test if it is selected
For lbx_Sel = 0 To Content_lbx.ListCount - 1
If Content_lbx.Selected(lbx_Sel) = True Then

Me.Elements_lbx.AddItem Me.Content_lbx.Selected(lbx_Sel)

'Clear the selected item
Content_lbx.Selected(lbx_Sel) = False
End If
End Sub

View Replies!   View Related
Add Items To RowSource Populated ListBox
Why is it when i try adding items to my listbox it comes up with the error Permission Denied. Im using rowsource just to have a heading tho when i want to add items it come up with the error.

Note my headings are in "K2:M3"
With Me.ListBox1

.ColumnHeads = True
.RowSource = "K3:M3"

End With

then i try adding an item with

me.listbox1.additem Test

i get the permission denied error.

View Replies!   View Related
ListBox Retaining Old List Values/Items
I have a listbox which is populated with filenames from a specific folder when the userform is acivated. The user can choose any filename in the list to open it or adversly to delete it. When delete is used (ListBox is set to MultiSelectExtended) the selected files are 'Killed'. The filename list is then refreshed and listbox repopulated and resized ready for the next action. The problem is the recalculated ListBox.Height works fine and the ListBox shrinks in height as expected, but a vertical scroll bar appears as the number of lines is still that was prior to the files being deleted. This happens despite code having run an instruction to make the ListBox.Height = New Number of entries * line height. This doesn't stop the application to perform as expected but is an annoying cosmetic thing.

View Replies!   View Related
Add To Listbox Items Not Found In Range
What I am trying to do is for example Sheet 1 has a range of names A1:A20 and on sheet 2 on non contigious ranges some values from the range on Sheet 1 shown here and there. What I would like is on a form ListBox1 shows all names used in Sheet2 and on ListBox2 all names that were not used.

View Replies!   View Related
Deselect Selected Items In MultiSelect ListBox
When i tranfer my listbox content to sheet the selected item remain selected in listbox

Dim i As Long, j As Long
For i = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(i) Then
j = j + 1
Worksheets("Workings"). Range("AA" & i + 2).Resize(1, 1).Copy Worksheets("Print").Range("B" & Rows.Count).End(xlUp).Offset(1)
ListBox1.Selected(i) = False
End If
Next i

View Replies!   View Related
Multi Select Listbox, Remove Selected Items.
i have a multi select listbox that i want to be able to remove the selected items in one hit.

i have not been able to convert code for removing single selected items and could not find a working example.

this is probley the closest though cos its removing items it plays havoc with the listcount

View Replies!   View Related
Removing And Replacing Items In Multi Column Listbox.
Ive been having lots of trouble programing a multi column listbox to play ball. On the form there is 1 tree view and two listbox's. The object is to double click a list 1 item and have that go into the list 2.

Connected to the listbox2_dblClick.. Takes the selected list item and adds to columns 1 intergra value. This places a annoyance to me where listbox 2 is not fully populated (you will see ive fully populated the list during my own testing) and a item is selcted if double click on a blank part of the listbox it will increase the int value of the selected item. I though of populating the list with blanks (used "." as visual) so a cheek could be made on the double click item and if blank do nothing.....

View Replies!   View Related
Add Items: Multi Column ListBox: Non-Contiguous Range
i have several listbox with two columns in a userform in a sheet i have several columns whith values and i'm trying to put the values from the columns in the respective listbox. down is the code i wrote but is stressing with column command

Private Sub UserForm_Initialize()
Dim contar, j, i As Double
contar = 0
For j = 1 To 15
linha = j
For i = 3 To 65536

View Replies!   View Related
Setting Up A Validation Of Data Listbox To Provide The Unique Items Within A Range
I am trying to insert a listbox by the way of data validation and would
to only have unique data displayed in it. I was wondering if anybody
has done this before or if it is possible. I would like it to remove
any and all records that are blank.

This is what I have got so far.................

VBA Function UniqueItems(ArrayIn, Optional Count As Variant) As Variant
' Accepts an array or range as input
' If Count = True or is missing, the function returns the number
' of unique elements
' If Count = False, the function returns a variant array of unique
' elements

Next i

' If not in list, add the item to unique list
If Not FoundMatch Then
NumUnique = NumUnique + 1
ReDim Preserve Unique(NumUnique)
Unique(NumUnique) = Element
End If

Next Element

' Assign a value to the function
If Count Then UniqueItems = NumUnique Else UniqueItems = Unique
End Function

Then I input an array with a few duplicate Item and us the function to
determine the list. So far I found that it worked for the following
but this only gives me the number of unique items in the array. The
problem is when I try to use the following function:
This now only returns a zero and if I fill down they all are zero.

I would like to get a list of unique items from this formula. Example
list would be:
{Array = Lorem, Lorem, foo, bar, bar} {Formula_returns = Lorem, foo,
I haven't a clue how to display this in a regular excel cell box so I
thought that using a validation list box would inherently work.

View Replies!   View Related
Indentify Selected Items In Multiple Multi Select ListBox Controls
changing two variables a various amount of times and running the same procedure and copying the resutls into another sheet. Seems like a perfect place for a macro. However, these variables can be chosen from a list that the user wants. So why not build in a listbox for each one. Now I have two listboxes one for variable A and one for variable B.

The procedure in theory goes something like this we change variable A from the base case and then run the procedure for variable B, get the results, then run the scenario again but changing only variable B abnd repeat. Then once, all of the variable B scenarios are done, I want to change the variable A and then repeat and so forth.

That is the background and my main problem at this point, is that have these values in two listboxes, I know how to do the for each loops and such, however, I do not know how to do them for values in the listbox.

How do I identify the values selected in the respective listboxes and then pull them so I only use them for the for each loop?

View Replies!   View Related
Move Listbox Line To Another Listbox With A Command Button
I have two sheets and two listbox's(ColumnCount8) and one command button.

lstInYard rowsource is set to sheet1
lstMilled rowsorce is set to sheet3

Iam trying to cut and paste the selections in lstInYard to lstMilled as well as the corrosponding row values in sheet1 to sheet3 by using cmdMoveSelected click event.

View Replies!   View Related
Populate 2nd Listbox With 1st Listbox Selection
I have the following sheet which functions as a table to store values for files that have been created using the application which this table is in. In this app., I have a form with 2 listboxes. When the form loads, I have the first listbox list values which each of these files are listed under (i.e. - "sub-directories"). With a selection of one of the list values and clicking of a button, I want the second list box to list the values of cells listed in a range directly below where the selected value in the first listbox came from.

I'd prefer, in the first listbox, to have only the values of the ranges that have a value in them in the listbox. However, this would cause my listbox.selected(array) not function properly. But since my current offsets (in the second sub) do not seem to be working anyway, maybe I am going about this totally wrong.

View Replies!   View Related
Setting Listbox Value Doesn't Set Listbox Value
The following line highlights the first selection in the listbox visible and calls the listbox click event

myListbox.Selected(0) = True
myVal = myListbox.Value 'after this line executes, instead of being set to the actual first value in myListbox, myVal is ""

Why is myVal not set to the first selection in the listbox? After I execute the following code, myListbox.Value still equals "" and not "Counter 1".

myListbox.Value = "Counter 1"

Why can I not set myListbox.Value?

View Replies!   View Related
Vba Listbox Lookup To Populate Another Listbox
I have 1 listbox (lisbox1) that retrieve it's list items from a worksheet range (imported/database query from access). This works fine.

I have a second listbox (listbox2) that should display results from clicking a value in listbox1.
Listbox1 contains companynames (1 column), listbox2 needs to be populated with quotes.

Range A3:D4800 contains company ID's, Company names, Quote Numbers. When I select a company name in listbox1, I need listbox2 to be populated with all quotes for that company.

I have tried (using vba) to do a vlookup using the listbox1 value, but I cannot seem to figure out how to populate listbox2 with "all" quotes. I get 1 quote and that's it. I realize I probably need to have the vlookup loop through each cell in the range to find the value, but when I try this, I get a type mismatch when using the .additem (only for the 2nd and subsequent passes).

View Replies!   View Related
Create "Master" Listbox From Choices In Another Listbox
I have two listboxes on a userform. One is the "choice" listbox, the other is the "master" listbox. Each item selected is a billing object on a sales invoice.
problem: The master list works fine when the item is selected in the choice list. But when it is deselected, how can you REMOVE it from the master list? question: How can I add a text box automatically to the userform to allow the user to enter quantity info?

For I = 0 To CodeList.ListCount - 1
If CodeList.Selected(I) = True Then
obj = CodeList.Column(0, I)
p = 6
test = 0

Do While test = 0 And p <= 25
If sheetsales. Range("C" & p) = obj Then
test = 1
test = 0
End If
p = p + 1
If test = 0 Then.........................

View Replies!   View Related
No Value In My Listbox
I have a bit of code for a user form I am doing but I cannot seem to get the mathematics to work. When I step through the code I get the correct values for Tbox 5 & 8 but I cannot get the final part (the LISTBOX to pass its value and)to work.

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo InvalidTypes:
TextBox9.Value = CStr(CDbl(TextBox5.Text) * CDbl(TextBox8.Text) * CDbl(lstUnitP.Text))
TextBox9.Value = "Non-Numerics in Either Textbox 5 or Textbox 8"
End Sub

View Replies!   View Related
Different Colors In A Listbox
The following code is the code "behind" the run button on my userform. The last section reads in a column ( of numbers and text) into a listbox based on the users choice. Is there any way I can have only certain rows in a different color - based on either if the value in that row is greater than a certain number of if the text in that row is a particular sentence?

Private Sub CommandButton1_Click()
'Dimension all variables
Dim fqc As Long
Dim eptg As Long
Dim newlabel As String
Dim BorC As String
Dim now As Long
Dim secondorthird As String

'Collect User Choices
fqc = TextBox3.Value ' Final Quiz Choice
eptg = TextBox5.Value ' Expected Post Test Grade
BorC = TextBox4.Value ' Is desired grade a B or C
now = TextBox6.Value ' Number Of Weeks after term has started
secondorthird = "second"
If (now = 3) Then secondorthird = "third" .....

View Replies!   View Related
UserForm ListBox
i have a ListBox in my userform i want to enter n items in the listbox at runtime
i also want to have a delete button,so that if i think i dont want that particular item in my listbox,by selecting that item from that listbox and clicking delete,should remove/delete that item from the listbox.

View Replies!   View Related
Update Listbox
I have a combo box, when I make a selection in the combobox it filters the selection in the listbox but I want it to list Column B & C data - it only lists column B data. I did make the column count 2.

View Replies!   View Related
Make The Listbox
How can I get the results, not in column D but in a textbox,so I can choose one of the
names from that text box?

Sub concatvals()
Dim strvalue As String
Dim strsearch As String
strsearch = InputBox("What Number do you want :?")
For Each c In Range("A1:A100")
If c.Value = strsearch Then
If Len(strvalue) < 1 Then
strvalue = c.Offset(0, 1).Value
strvalue = strvalue & ", " & c.Offset(0, 1).Value
End If
End If
Range("D1").Value = strvalue
End Sub

View Replies!   View Related
Populating A Listbox
I have a spreadsheet that continuously is having data input in columns A-F. I want to have a listbox automatically populate each time the worksheet is opened. I would like to have a macro that will search for all rows that have data in columns A-F that DO NOT have data in column L. I would like the macro to populate a listbox when the worksheet is opened with the data from columns A-F of all rows that meet the previously stated criteria.

View Replies!   View Related
Listbox Selections
I have a userform with multiple buttons and a listbox. When any button is clicked on, a listbox is created. The user selects various items on the listbox. Then the user clicks another button and selects other items based on a new list. If user goes back to click the original button, the original list shows up, but the selected items are not highlighted. Is there any way to keep those original selections highlighted (selected)?

View Replies!   View Related
Listbox Crashes
I'm trying to use a listbox and wanted to have the data sit in a different sheet. When I do this, I get a message about low memory and then excel says it has an error and shuts down. When I move the data to the same sheet as the listbox, there is no problem.

I'm using excel 2000 and that's all I can get (at work). Any thoughts? Should I just put the data on the same sheet and hide it? Is there a way around this?

View Replies!   View Related
Filling Up A Listbox
How can you fill up a listbox on a form with data from a couple of cells.

For example you have the worksheet Colors and you have these values in the cells of column A

A1 = red
A2 = yellow
A3 = blue

Now I want red, yellow and blue to be in the Listbox.

View Replies!   View Related
Listbox Clearing
I have 4 listboxs on a Userform populated by rowsource

I have code that will not allow conflicting selections of the list boxs

EG listbox1 conflicts with listbox3
listbox2 conflicts with listbox4

What I am trying to do is when the user clicks on listbox1 and listbox3

I clear the selections from 1 and 3 leaving no highlted blue in the boxs

My code runs it clears the first listbox and not the second

I have tried using boolean to clear them but it is the same thing

here is my code below

If shOptions.Cells(r, c) = "" Then
MsgBox "You have selected conflicting Alterations"
UserForm1.Controls(h.Name).ListIndex = -1 *this works
UserForm1.Controls(lb.Name).ListIndex = -1 * this does not fire
Exit Sub
End If

If I change the code to
UserForm1.Controls(lb.Name).ListIndex = -1 * this works
UserForm1.Controls(h.Name).ListIndex = -1 *this does not

View Replies!   View Related
More Userform Listbox
I have a listbox that is populated based on a named range from another workbook. Below is the code that populates it:

Private Sub UserForm_Initialize()

Dim InvDB As Workbook

Set InvDB = Workbooks.Open("C:Documents and SettingsPATSYSDesktopInvoiceDB.xls")

With InvDB

ListBox1.RowSource = .Name & "!rng"


End With

End Sub
My problem.

When I scrollbar down, no data appears.

This leads me to think that I need some kind of userform event to keep populating the listbox (similar to my code above) as I scroll up or down.

My questions:
1. Is it possible to specificy a rowsource in the properties window for the listbox that is pointing to an external workbook? If so, how do I write the rowsource?

I know that if the source workbook is open, I can use the rowsource:


But if source workbook is close, the below does not work:

C:Documents and SettingsPATSYSDesktopInvoiceDB.xls!rng

2. What is the userform event when you click the listbox scrollbar up or down?

View Replies!   View Related
Listbox Array
I'm trying to load an array for a list box using sheet "ZIP Codes", cells A3-A? for the ZIP Codes, and cells B3-B? for the city/town associated with the ZIP Codes.


A2 B2
00000 ThisCity
11111 ThisTown
I need to load sheet "ZIP Codes" A3-A? as MyArray(i,0) and load B3-B? as Myarray (i,1), but after putting in soooooo many hours in at work I can't get my brain working right.

View Replies!   View Related
Listbox Copy
How do I modify the following code to copy the whole row of data in the listbox and not just the data from the 1st column. My listbox has 4 columns in it:

Here's the
Private Sub CommandButton2_Click()
Range("TEST!A1").End(xlUp)(2, 1) = ListBox1.Value
End Sub

View Replies!   View Related
Listbox With Checkboxes
Is there any way to recreate a list in the way a pivotfield works? It would be like combining a listbox, but with check boxes next to each item.

View Replies!   View Related
Tooltips For A Listbox
Is there a way to have a tooltip for each individual item in a listbox. I know how to have a tooltip for the overall list box object, but not for the individual line items.

View Replies!   View Related
Copyright 2005-08, All rights reserved