Sharid
Well-known Member
- Joined
- Apr 22, 2007
- Messages
- 1,064
- Office Version
- 2016
- Platform
- Windows
I thought I had this fixed this problem with a timer, but it is not working. Does anyone know how to get a listbox on a userform to stop flicker as data is input onto a sheet. I have several List boxes on Multipage1, Each page has One or Two List boxes
This list box is on Multipage1 Page 3 and the data goes into Sheet4, The code below is in Sheet 4 Change Events, Each Listbox has its own sheet. Have I placed the code in the right place, should it be in the page of the Multipage or Sheet Change?
I have used Application.ScreenUpdating = False, Nothing seams to work
This list box is on Multipage1 Page 3 and the data goes into Sheet4, The code below is in Sheet 4 Change Events, Each Listbox has its own sheet. Have I placed the code in the right place, should it be in the page of the Multipage or Sheet Change?
I have used Application.ScreenUpdating = False, Nothing seams to work
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With UserForm1.ListBox1
'Application.ScreenUpdating = False
Dim t As Double
On Error Resume Next
.ColumnCount = 12
.ColumnWidths = "200;100;75,75,75,75,75,75,75,75,75,75"
.RowSource = "'" & Sheet4.Name & "'!$A$1:$J$" & Sheet4.Cells(Sheet4.Rows.Count, 1).End(xlUp).row
t = Timer
Do Until Timer > t + 0.17
'Application.ScreenUpdating = True
Loop
End With
End If
End Sub