Application screenupdating not working
Find(What:=Checklist_Date, After:=Active Cell, Look In:=xl Values, Look At:= _ xl Part, Search Order:=xl By Rows, Search Direction:=xl Next, Match Case:=False _ , Search Format:=False). Paste Special Paste:=xl Paste Values, Operation:=xl None, Skip Blanks _ :=False, Transpose:=True Worksheets("Database").
I tried to look for a solution and already attempted to fix the issue by calling the following subs at the beginning and at the end of the primary and secondary subs as well: Public Sub TU_Start() Application. Slicer Caches("Slicer_Sol Name1") Set sc5 = This Workbook.
It worked fine until I added a secondary subroutine into the code. Slicer Caches("Slicer_Sol Name") Set sc4 = This Workbook.
Calculation = xl Calculation Manual End Sub Public Sub TU_End() Application. Slicer Caches("Slicer_Jahr1") Set sc3 = This Workbook. Clear Manual Filter On Error Resume Next For Each si1 In sc1.
Slicer Caches("Slicer_Monat1") Set sc9 = This Workbook. Everything works perfectly except when saving the information the Application. I've tried moving it around in different areas, but nothing seems to work. Screenupdating isn't working and the user ends up seeing the flickering and jumping back and forth between the data sheet and the calendar view. Here's the Save checklist sub: Sub Save_Checklist() Dim Checklist_Date Dim Completed As Long Dim Left_to_Complete As Long Dim Database_Date As Range Dim Database_Row As Long Dim b Scr Update b Scr Update = Application. ", vb Yes No Cancel, "Reset the Calender") = vb Yes Then Checklist_Date = Worksheets("Daily Checklist"). - Try this at the beginning of your procedure: Application. By leaving the main window alone, and forcing other workbooks to become not visible, letting the code run, then bringing them back to visible, it stopped flickering.