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
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