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
Bookmarks