lam90
10-30-2011, 04:53 PM
Hello,
I'm wanting to populate a worksheet row from listbox2 after making choices from listbox1. I look forward to solving this little query.
Option Explicit
Private Sub ToLeftButton_Click()
With ListBox2
Dim itemIndex As Integer
For itemIndex = .ListCount - 1 To 0 Step -1
If .Selected(itemIndex) Then
ListBox1.AddItem .List(itemIndex)
.RemoveItem itemIndex
End If
Next itemIndex
End With
End Sub
Private Sub ToRightButton_Click()
With ListBox1
Dim itemIndex As Integer
For itemIndex = .ListCount - 1 To 0 Step -1
If .Selected(itemIndex) Then
ListBox2.AddItem .List(itemIndex)
.RemoveItem itemIndex
End If
Next itemIndex
End With
End Sub
Private Sub UserForm_Activate()
With ListBox1
.Clear
.AddItem ("0.5")
.AddItem ("0.625")
.AddItem ("1.0")
.AddItem ("1.25")
.AddItem ("1.5")
.AddItem ("2.0")
.AddItem ("2.5")
.AddItem ("3.0")
.AddItem ("3.75")
.AddItem ("4.0")
.AddItem ("5.0")
.AddItem ("6.0")
.AddItem ("7.0")
.AddItem ("7.5")
.AddItem ("8.0")
.AddItem ("9.0")
.AddItem ("10.0")
.MultiSelect = fmMultiSelectExtended
End With
With ListBox2
.Clear
.MultiSelect = fmMultiSelectExtended
End With
End Sub
Private Sub OKButton_Click()
Range("G2").Value = ListBox2.List
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
_______________
I currently know only to fill a single cell "G2", or a column "G2:G15". However I need to populate across a worksheet so I'm able to keep the size of my form conservative.
Cheers.
I'm wanting to populate a worksheet row from listbox2 after making choices from listbox1. I look forward to solving this little query.
Option Explicit
Private Sub ToLeftButton_Click()
With ListBox2
Dim itemIndex As Integer
For itemIndex = .ListCount - 1 To 0 Step -1
If .Selected(itemIndex) Then
ListBox1.AddItem .List(itemIndex)
.RemoveItem itemIndex
End If
Next itemIndex
End With
End Sub
Private Sub ToRightButton_Click()
With ListBox1
Dim itemIndex As Integer
For itemIndex = .ListCount - 1 To 0 Step -1
If .Selected(itemIndex) Then
ListBox2.AddItem .List(itemIndex)
.RemoveItem itemIndex
End If
Next itemIndex
End With
End Sub
Private Sub UserForm_Activate()
With ListBox1
.Clear
.AddItem ("0.5")
.AddItem ("0.625")
.AddItem ("1.0")
.AddItem ("1.25")
.AddItem ("1.5")
.AddItem ("2.0")
.AddItem ("2.5")
.AddItem ("3.0")
.AddItem ("3.75")
.AddItem ("4.0")
.AddItem ("5.0")
.AddItem ("6.0")
.AddItem ("7.0")
.AddItem ("7.5")
.AddItem ("8.0")
.AddItem ("9.0")
.AddItem ("10.0")
.MultiSelect = fmMultiSelectExtended
End With
With ListBox2
.Clear
.MultiSelect = fmMultiSelectExtended
End With
End Sub
Private Sub OKButton_Click()
Range("G2").Value = ListBox2.List
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
_______________
I currently know only to fill a single cell "G2", or a column "G2:G15". However I need to populate across a worksheet so I'm able to keep the size of my form conservative.
Cheers.