Application screenupdating not working
Slicer Caches("Slicer_Jahr") Set sc2 = This Workbook. Calculation = xl Calculation Automatic End Sub Private Sub Worksheet_Pivot Table Update(By Val Target As Pivot Table)Dim sc1 As Slicer Cache, sc2 As Slicer Cache, sc3 As Slicer Cache, sc4 As Slicer Cache, sc5 As Slicer Cache, sc6 As Slicer Cache, sc7 As Slicer Cache, sc8 As Slicer Cache, sc9 As Slicer Cache Dim si1 As Slicer Item, si3 As Slicer Item, si5 As Slicer Item, si7 As Slicer Item Set sc1 = This Workbook. Whenever you have a task to automate, you can usually go down the VBA route. Maybe later you add some features here-and-there, making your VBA code more powerful. Color = vb White End If i = i 1 Next cell ' offset i to alternate column coloring i = i 1 Next repeat Msg Box "Total time was: " & (Timer - start Time) End Sub Before moving on, let’s get a better understanding of why this is taking so long. Color = vb White End If i = i 1 Next cell ' offset i to alternate column coloring i = i 1 Next repeat Msg Box "Total time was: " & (Timer - start Time) Application.And usually when you write your code, you’re just trying to get things to work. But after a while you notice your code is beginning to get very slow when it runs. I mentioned that the issue is that the screen is constantly updating, which is causing the code to run slowly. The code runs much faster when there’s less real estate to update on your screen. Screen Updating = True End Sub Now the code runs at 1.4 seconds for me, which is a huge improvement. Slicer Caches("Slicer_Solution") Call TU_Start sc2.
You can save the checklist and it copies the information to a data sheet in a separate tab. You should be able to solve this by setting screenupdating to false on your first line, the modification is shown below.
I was able to solve the issue to my liking by using a workaround this 'which window is on top' problem.
Cursor = xl Default This solved my flicker problem, but I didn't like how the excel application disappeared completely then suddenly reappeared for the user.
Unfortunately, I have to maintain hundreds of Excel applications each with thousands of lines of code and hundreds of users who are about to migrate to Office 2016, so rewriting is not an option. I wanted to leave a comment but I am not allowed to do so.
Without a code sample it is very dificult to understand your problem (please see https://stackoverflow.com/help/how-to-ask and edit your question appropriately.