DeathSurfer
New Member
- Joined
- Mar 21, 2007
- Messages
- 15
Duuuuudes:
I have a problem with scrolling to the bottom of a listbox in excel '03. I'm using the listbox control in vba, not the excel forms control. Anyway, when I scroll to the bottom of the list, it won't let me see the last item in the list box. It will stop one short and will actually have a space below the scroll bar that looks like it could scroll down one more list item but won't. I'm using the additem call to populate the listbox. I've tried recreating the listbox and it will work the first time it gets populated but seems like after repopulating it a couple times it will cause the problem. Can anyone shed some light on why this would be doing this?
Here's the code for populating the listbox:
I have a problem with scrolling to the bottom of a listbox in excel '03. I'm using the listbox control in vba, not the excel forms control. Anyway, when I scroll to the bottom of the list, it won't let me see the last item in the list box. It will stop one short and will actually have a space below the scroll bar that looks like it could scroll down one more list item but won't. I'm using the additem call to populate the listbox. I've tried recreating the listbox and it will work the first time it gets populated but seems like after repopulating it a couple times it will cause the problem. Can anyone shed some light on why this would be doing this?
Here's the code for populating the listbox:
Code:
'repopulate the lbdate listbox
For i = 1 To wsfd.Range("FD_InProcDateData").Count
TempDate = wsfd.Range("FD_InProcDateData").Cells(i).Value
TempDay = Weekday(TempDate)
Select Case TempDay
'sunday for facility x
Case 1
With wsr.Range("R_Location")
Worksheets("Report").lbdate.AddItem TempDate & " " & "V"
End With
'monday thru friday for facility y
Case 2 To 6
With wsr.Range("R_Location")
Worksheets("Report").lbdate.AddItem TempDate & " " & "BC"
End With
'saturday for facility z
Case 7
With wsr.Range("R_Location")
Worksheets("Report").lbdate.AddItem TempDate & " " & "D&D"
End With
End Select
'skip to next date
Do
i = i + 1
Loop Until wsfd.Range("FD_InProcDateData").Cells(i).Value <> TempDate Or i = wsfd.Range("FD_InProcDateData").Count
'if i equals the range count then exit the for statement. if this isn't done, the last schedule date will show twice.
If i = wsfd.Range("FD_InProcDateData").Count Then
Exit For
End If
'backup a cell because of the next i statement
i = i - 1
Next i