Comments on: Using Multiselect Listboxes

By: Dick Kusleika

Dick Kusleika — Sat, 18 Jun 2011 13:51:00 +0000

Greg: The code in this post relates to ActiveX controls while your code relates to data validation. They are different. I don’t think there is any way to select more than one entry in data validation.

By: Greg Whittaker - Australia

Greg Whittaker - Australia — Fri, 17 Jun 2011 03:57:00 +0000

I am afraid that I do not understand Macros a lot, but I have copied the "Same Cell" macro from http://www.contextures.com and modified the columns to suit my needs which is excellent (listed below). Where does the above go within this macro.
I would probably need #1.
Also does this remove the problem of when you go back to the cell to either add another item from the list or delete one where it adds to the cell the original contents plus the amended ones.
Thanks
Greg

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngDV As Range
Dim oldVal As String
Dim newVal As String

If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If (Target.Column = 13) Or (Target.Column = 17) Or (Target.Column = 21) Or (Target.Column = 24) Or (Target.Column = 49) Or (Target.Column = 50) Or (Target.Column = 51) Or (Target.Column = 52) Or (Target.Column = 53) Or (Target.Column = 54) Or (Target.Column = 55) Or (Target.Column = 56) Or (Target.Column = 57) Or (Target.Column = 58) Or (Target.Column = 59) Or (Target.Column = 60) Or (Target.Column = 61) Then
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If
End If

exitHandler
Application.EnableEvents = True
End Sub

By: Charles

Charles — Mon, 19 Oct 2009 20:30:00 +0000

Can you make a listbox = all files in a folder, so if you add or delete files they will be added or removed from the listbox? I could make a static list box for the values (filenames), but I would rather have it read them without needing to update.

By: Mui Hua

Mui Hua — Wed, 29 Jun 2005 09:26:00 +0000

I’ve a ListBox with the setting of MultiSelectExtended. I need to point the selected data to a series of cells in another spreadsheet for my further action. So far, I am only able to link to 1 cell but it’s not what I wanted. Can you help?

By: Dick Kusleika

Dick Kusleika — Fri, 15 Apr 2005 22:41:00 +0000

supergoat: Check out this post

http://www.dicks-blog.com/archives/2004/06/29/preserving-listbox-selections/

By: supergoat

supergoat — Fri, 15 Apr 2005 12:24:00 +0000

Eugene/Dick,

Can you explain a litter further how i ensure that items selected in a multi-select listbox are saved and retrieved when the worksheet is reopened.

Thanks

By: Eugene nae

Eugene nae — Tue, 29 Jun 2004 19:42:00 +0000

FIGURED IT OUT!!!

You use Shape.OLEFormat.Object to get to the original ActiveX object from the Excel control. From then on, it acts as a normal ActiveX control. (use ListBox.Selected(index) = False/True)

By: Eugene Nae

Eugene Nae — Tue, 29 Jun 2004 00:12:00 +0000

I notice that when you use MultiSelect Extended or Multi, Excel wipes out your selections. I link the list to an Excel range, select some items, Save, open the workbook again and nothing is selected. Please help if you know a workaround.