J
JayJay
Well, I am stumped. Does anyone know how to take items from a listBox
that contain multiple columns (4 to be exact) and transfer them into
multiple columns in an excel worksheet? Any help would be greatly
appreciated!
Here is the code I have developed, but it only gets the first column
entered:
Private Sub OKButton_Click()
Dim lPart As Long
Dim lItem As Long
Dim CellX As Long
Dim CellW As Long
Dim CellY As Long
Dim CellZ As Long
Dim I As Long
Dim RangeRow As String
Dim ws As Worksheet
Set ws = Worksheets("Order Form")
lPart = Me.ListBox1.ListIndex
CellX = 12
RangeRow = "C"
With Me.ListBox1
For lItem = 0 To ListBox1.ListCount - 10
' If ListBox1.Selected(lPart) = True Then
If ListBox1.Selected(lItem) = True Then
CellX = CellX + 1
Range(RangeRow & CellX).Value = ListBox1.List(lItem, 1)
End If
Next lItem
End With
Unload SEARCH
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
that contain multiple columns (4 to be exact) and transfer them into
multiple columns in an excel worksheet? Any help would be greatly
appreciated!
Here is the code I have developed, but it only gets the first column
entered:
Private Sub OKButton_Click()
Dim lPart As Long
Dim lItem As Long
Dim CellX As Long
Dim CellW As Long
Dim CellY As Long
Dim CellZ As Long
Dim I As Long
Dim RangeRow As String
Dim ws As Worksheet
Set ws = Worksheets("Order Form")
lPart = Me.ListBox1.ListIndex
CellX = 12
RangeRow = "C"
With Me.ListBox1
For lItem = 0 To ListBox1.ListCount - 10
' If ListBox1.Selected(lPart) = True Then
If ListBox1.Selected(lItem) = True Then
CellX = CellX + 1
Range(RangeRow & CellX).Value = ListBox1.List(lItem, 1)
End If
Next lItem
End With
Unload SEARCH
End Sub
*** Sent via Developersdex http://www.developersdex.com ***