$20 USD. I need an ActiceX multiselect listbox to be filled from the Range "StartTimes" (Mon,Tue,Wed,Thu,Fri,Sat,Sun) with option buttons for each selection. .
Listbox should contain Ok buttion and Cancel button.
When Ok button is clicked, The final result will combine the items selected (say Mon, Tue,Thu, Fri) and place the result, MonTueThuFri, in Cell B1
I will take a look at this now.
Will the StartTimes range have unique values? If not, should the ListBox contain only unique values, or all the values, in the order given in the StartTimes range?
Check this file. I've given two listboxes, one on the sheet, and one in a userform.
I don't think you need a listbox.
Looks good. I have a few questions:
1. How, and where, does the ListBox and the Form get populated with the items in the StartTimes range? I looked for code but obviously missed it.
2. How would I add an additional Range to each?
2. How do I add Titles?
Thanks
Ed
Thanks snb. Yes, you could give 7 checkboxes, but the ListBox was given assuming that the StartTime items could be anything, and of any number of items, and not just the seven days of a week.
puts the value of the StartTimes range to the ListBoxCode:Me.lstStartTimes.List = Worksheets("Sheet1").Range("StartTimes").Value2
What do you mean by adding additional range? You mean you want to get items from multiple named ranges? Or do you mean you want to expand the range of cells in StartTimes?
Add titles to what?
Yep. Obviously I missed that piece of code.
And yes, I'd lilke to add an additional named range, EndTimes
In the list box (or form) the Title should be above the choices, eg. StartTime EndTime.
Ed
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNsaS3Lp1
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgR1EPUkhw
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNe_XC-jK
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNPOdiDuv
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm 9wlhQrYJP3M
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg
https://www.youtube.com/watch?v=DVFFApHzYVk&lc=Ugyi578yhj9zShmhuPl4AaABAg
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgxvxlnuTRWiV6MUZB14AaABAg
https://www.youtube.com/watch?v=_8i1fVEi5WY&lc=Ugz0ptwE5J-2CpX4Lzh4AaABAg
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxoHAw8RwR7VmyVBUt4AaABAg. 9C-br0lEl8V9xI0_6pCaR9
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=Ugz5DDCMqmHLeEjUU8t4AaABAg. 9bl7m03Onql9xI-ar3Z0ME
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxYnpd9leriPmc8rPd4AaABAg. 9gdrYDocLIm9xI-2ZpVF-q
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgyjoPLjNeIAOMVH_u94AaABAg. 9id_Q3FO8Lp9xHyeYSuv1I
https://www.reddit.com/r/windowsxp/comments/pexq9q/comment/k81ybvj/?utm_source=reddit&utm_medium=web2x&context=3
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm 9wlhQrYJP3M
ttps://www.youtube.com/watch?v=LP9fz2DCMBE
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg. 9wdo_rWgxSH9wdpcYqrvp8
ttps://www.youtube.com/watch?v=bFxnXH4-L1A
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxuODisjo6cvom7O-B4AaABAg.9w_AeS3JiK09wdi2XviwLG
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxBU39bTptFznDC1PJ4AaABAg
ttps://www.youtube.com/watch?v=GqzeFYWjTxI
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgwJnJDJ5JT8hFvibt14AaABAg
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
@Excel Fox
My suggestion answers post #1 for 100%, but used nor a listbox nor optionbuttons.
Thanks snb for being 100%
Nozitall, do you want an additional list box for that, or want to use the same list box and get all values from both named ranges to the same listbox?
Fox
I'm trying to set the listbox up for data entry so yes, I want to use the same listbox.
Sorry for doing this piecemeal but I thought I could replicate the code you provided for addition fields.
Ed
Here's the revised file
Code:Private Sub UserForm_Activate()
Dim var As Variant
Dim varArray As Variant
Const cstrRanges As String = "StartTimes,EndTimes"
With Worksheets("Sheet1")
For Each var In Split(cstrRanges, ",")
If IsArray(varArray) Then
varArray = Split(Join(varArray, "|") & "|" & Join(Application.Transpose(.Range(CStr(var)).Value2), "|"), "|")
Else
varArray = Application.Transpose(.Range(CStr(var)).Value2)
End If
Next var
End With
Me.lstStartTimes.List = varArray
End Sub
Fox:
I think we're getting there.
Sorry I didn't make myself clearer.
On the Form, the StartTimes and End Times should be in separate columns (with Titles) and
the selected items from the list StartTimes should appear in I1 and the selected items for the list EndTimes should appear in J1.
You can forget about the ListBox as I've decided to go with the Form
Ed
You are contradicting what you mentioned earlier. Could you please clarify.Quote:
Originally Posted by NOZITALL
Not only that, you cannot have separate selections for each column in a ListBox. Every item in each row is selected, across all columns, not one by one.
Ok. How about 2 ListBoxes?