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:

'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

If you use a whole number for the listbox height, does that help?

If not, can you make the listbox a little taller (or shorter)?

DeathSurfer wrote:

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:

'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

--

Dave Peterson

Thanks for those suggestions Dave, but I've already tried to do both and
neither have worked. This problem has really got me stumped. I've tried so
many things and nothing seems to fix this.

"Dave Peterson" wrote:

If you use a whole number for the listbox height, does that help?

If not, can you make the listbox a little taller (or shorter)?

DeathSurfer wrote:

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:

'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

--

Dave Peterson

Sorry.

I thought I had read that others had fixed this kind of problem by using an
integral/whole number height.

I don't have another guess.

DeathSurfer wrote:

Thanks for those suggestions Dave, but I've already tried to do both and
neither have worked. This problem has really got me stumped. I've tried so
many things and nothing seems to fix this.

"Dave Peterson" wrote:

If you use a whole number for the listbox height, does that help?

If not, can you make the listbox a little taller (or shorter)?

DeathSurfer wrote:

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:

'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

--

Dave Peterson


--

Dave Peterson