Error 70
 

Hello everuone,

Somebody can help me with this code:

Private Sub test()
Dim tabtemp As Variant
Dim O, N As Integer
Dim Cell As Range

With Worksheets("Sheet1")
O = .Range("a15000").End(xlUp).Row
tabtemp = .Range("A2:ag" & O).Value
End With

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) =
CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then

For N = 1 To 30 ' For N = 1 to 8 works fine
If tabtemp(O, N + 3) < "" Then
If N = 5 Or N = 30 Then
Controls("ListBox" & N).AddItem Format(tabtemp(O, N + 3),
"$###0.00")
Else
Controls("ListBox" & N).AddItem tabtemp(O, N + 3) '
Here is the error when N = 9. Why ? If I change N = 1 to 8 everything works
fine
End If
End If
Next N
End If
Next O

End Sub


Thanks for helping

Error 70
 

How many listboxes are there on your form?
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"François"
wrote in message
Hello everuone,

Somebody can help me with this code:

Private Sub test()
Dim tabtemp As Variant
Dim O, N As Integer
Dim Cell As Range

With Worksheets("Sheet1")
O = .Range("a15000").End(xlUp).Row
tabtemp = .Range("A2:ag" & O).Value
End With

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) =
CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then

For N = 1 To 30 ' For N = 1 to 8 works fine
If tabtemp(O, N + 3) < "" Then
If N = 5 Or N = 30 Then
Controls("ListBox" & N).AddItem Format(tabtemp(O, N + 3),
"$###0.00")
Else
Controls("ListBox" & N).AddItem tabtemp(O, N + 3) '
Here is the error when N = 9. Why ? If I change N = 1 to 8 everything works
fine
End If
End If
Next N
End If
Next O

End Sub
Thanks for helping