I am getting a "Invalid ReDim" error on ReDim Preserve MyArray(2,. What do
this mean?

"Per Jessen" wrote:

Hi

You have to build an array to be pasted to the listbox. Remeber to put
"Option Base 1" at the very top of the userform module.

Option Base 1
Sub test()
Dim ListArray()
Dim counter As Long
ReDim ListArray(2, 1)

For Each c5 In dbeWS.Range("B2:B" & rngSAPlines).Cells
If c5.Value = ufrmsiteInfo.cmbSiteID.Text And c5. _
Offset(0, 1).Value = ufrmsiteInfo.txtbox3.Text _
And c5.Offset(0, 4).Value = False Then
For Each SAPc In smlWS.Range("B2:B" & smllastRow).Cells
If CStr(SAPc.Value) = c5.Offset(0, 3).Value Then
If ListArray(1, 1) < "" Then
ReDim Preserve MyArray(2, UBound(MyArray, 2) + 1)
End If
ListArray(1, UBound(MyArray, 2)) = SAPc.Value
ListArray(2, UBound(MyArray, 2)) = SAPc.Offset(0,
1).Value
Exit For
End If
Next SAPc
End If
Next c5
ufrmsiteInfo.ListBox5.Column = ListArray

End Sub

Hopes this helps.

---
Per

"Ayo" skrev i meddelelsen
...
I have a userform with a 2 column listbox and I have a 2 column range in
a
worksheet. I am trying to load specific rows in my worksheet range into
the
listbox. So for instance if
my worksheet range is Range("B2:C10"), and
Range("B3:C3"), Range("B5:C5") and Range("B8:C8") meets my specific
conditions,
I want to load this ranges into my 2 column listbox

How can I do this? So far this is what I have:

For Each c5 In dbeWS.Range("B2:B" & rngSAPlines).Cells
If c5.Value = ufrmsiteInfo.cmbSiteID.Text And c5.Offset(0, 1).Value
= ufrmsiteInfo.txtbox3.Text _
And c5.Offset(0, 4).Value = False Then
For Each SAPc In smlWS.Range("B2:B" & smllastRow).Cells
If CStr(SAPc.Value) = c5.Offset(0, 3).Value Then
ufrmsiteInfo.ListBox5.Column(0) = SAPc.Value
ufrmsiteInfo.ListBox5.Column(1) = SAPc.Offset(0,
1).Value
Exit For
End If
Next SAPc
End If
Next c5

And this is not getting me anywhere. Please help.