Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to parse a multi-colum multi-select listbox
Hello Everyone,
I need some help. I need to develop code to parse a multi-column multi-select listbox and put the values in a worksheet. This is the code I have but it's only giving me the last item selected and I need to capture all items selected in the multi-select, multi- column Listbox. With Me.ListBox2 For i = 0 To .ListCount - 1 If .Selected(i) Then UserForm1.Spreadsheet1.Range("a65536").End(xlUp) = sPrompt & .Column(0, i) UserForm1.Spreadsheet1.Range("B65536").End(xlUp) = sPrompt & .Column(1, i) End If Next i Again, any help would be great. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to parse a multi-colum multi-select listbox
This worked ok for me:
Option Explicit Private Sub CommandButton1_Click() Dim sPrompt As String Dim iCtr As Long Dim cCtr As Long Dim destcell As Range Dim wks As Worksheet sPrompt = "a-" Set wks = Worksheets("sheet2") With wks Set destcell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) End With With Me.ListBox2 For iCtr = 0 To .ListCount - 1 If .Selected(iCtr) Then For cCtr = 0 To .ColumnCount - 1 destcell.Offset(0, cCtr).Value = sPrompt & .List(iCtr, 0) Next cCtr Set destcell = destcell.Offset(1, 0) End If Next iCtr End With End Sub Private Sub UserForm_Initialize() Dim myRng As Range Set myRng = Worksheets("sheet1").Range("a1:b3") With Me.ListBox2 .ColumnCount = myRng.Columns.Count .MultiSelect = fmMultiSelectMulti .List = myRng.Value End With End Sub Jade wrote: Hello Everyone, I need some help. I need to develop code to parse a multi-column multi-select listbox and put the values in a worksheet. This is the code I have but it's only giving me the last item selected and I need to capture all items selected in the multi-select, multi- column Listbox. With Me.ListBox2 For i = 0 To .ListCount - 1 If .Selected(i) Then UserForm1.Spreadsheet1.Range("a65536").End(xlUp) = sPrompt & .Column(0, i) UserForm1.Spreadsheet1.Range("B65536").End(xlUp) = sPrompt & .Column(1, i) End If Next i Again, any help would be great. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Listbox Multi Select | Excel Programming | |||
Multi Colum Listbox in UserForm | Excel Programming | |||
Multi-select listbox help! | Excel Programming | |||
multi select listbox | Excel Programming | |||
Extract values from a multi-select multi-column list-box | Excel Programming |