knipperende werkbladen

[Guidolavespa]

u mag eens komen kijken bij mij!

 

[Guidolavespa]

Dit blijkt niet te werken met volgende code?

U blijft de scrolling zien.

Private Sub cmdManueel_Click()
Application.ScreenUpdating = False
Sheets("Opvolgingslijst").Select
Sheets("Opvolgingslijst").Range("A3").Select
If Sheets("Opvolgingslijst").Range("A3") = "" Then
Sheets("Opvolgingslijst").Range("A3").Select
Else
Sheets("Opvolgingslijst").Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End If
Application.ScreenUpdating = True
End Sub

 

[Guidolavespa]

Sorry,

werkt wel, maar als het een lange lijst is gaat de selectie van de laatste cel niet meer naar boven gescrold. De pagina zou moeten omhoog schuiven. Met de updating af gebeurd dit niet.

Zeker eens uitproberen dan begrijpen jullie direct wat ik bedoel.