Listbox displaying incorrectly on opening worksheet
Hi,
I have a Listbox. When I first open the spreadsheet, the Listbox values text don't visually appear. I can click on the spots in the listbox where the text is and thereafter it appears. Alternately, if I switch tabs and then come back it also shows properly. It seems to be due to ScreenUpdating; however I do this after the values have been populated (same result putting it before). If the ScreenUpdating portion is completely removed, it displays the values text properly. However, I'd prefer to have ScreenUpdating disabled for the second section of code. I'm populating the values in Workbook_Open, code as below. Thanks, Scott ------------------------------------------------------- Private Sub Workbook_Open() Dim i As Long 'Application.ScreenUpdating = False '<== Initial position of ScreenUpdating With wksMomMpaScatter For i = 0 To ReportPlantsInfo.Range("ReportPlantListFull").Coun t - 1 .ListBox1.AddItem ReportPlantsInfo.Range("ReportPlantListFull").Cell s(i + 1, 1) .ListBox1.Selected(i) = ReportPlantsInfo.Range("ReportPlantListFull").Offs et(0, 1).Cells(i + 1, 1) Next i End With Application.ScreenUpdating = False '<== Alternate position for ScreenUpdating .... {Other code} .... Application.ScreenUpdating = True End Sub |
Listbox displaying incorrectly on opening worksheet
hi Scott,
the file is it in shared mode ? -- isabelle |
Listbox displaying incorrectly on opening worksheet
sorry for my poor english,
does this file is in shared mode ? -- isabelle |
Listbox displaying incorrectly on opening worksheet
If it's just a display problem -- and it sounds like it is, since the program
works fine if the screenupdating portion is removed... Maybe you can add a change sheet and change back at the bottom of your code. And if that fails, do it with screen updating on. You'll have a bit of flashing, but at least it'll show correctly. On 11/25/2011 18:05, Scott wrote: Hi, I have a Listbox. When I first open the spreadsheet, the Listbox values text don't visually appear. I can click on the spots in the listbox where the text is and thereafter it appears. Alternately, if I switch tabs and then come back it also shows properly. It seems to be due to ScreenUpdating; however I do this after the values have been populated (same result putting it before). If the ScreenUpdating portion is completely removed, it displays the values text properly. However, I'd prefer to have ScreenUpdating disabled for the second section of code. I'm populating the values in Workbook_Open, code as below. Thanks, Scott ------------------------------------------------------- Private Sub Workbook_Open() Dim i As Long 'Application.ScreenUpdating = False '<== Initial position of ScreenUpdating With wksMomMpaScatter For i = 0 To ReportPlantsInfo.Range("ReportPlantListFull").Coun t - 1 .ListBox1.AddItem ReportPlantsInfo.Range("ReportPlantListFull").Cell s(i + 1, 1) .ListBox1.Selected(i) = ReportPlantsInfo.Range("ReportPlantListFull").Offs et(0, 1).Cells(i + 1, 1) Next i End With Application.ScreenUpdating = False '<== Alternate position for ScreenUpdating .... {Other code} .... Application.ScreenUpdating = True End Sub -- Dave Peterson |
All times are GMT +1. The time now is 10:51 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com