Application screenupdating false not working ivy dating review

Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next Sub put Numbers In Cells() Dim ws As Worksheet Dim j As Long Dim resp As Integer Set ws = Active Sheet resp = Msg Box("Turn off updating? Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next dim previous Screen Update as boolean Call my Screen Update(False, previous Screen Update) 'to get the current setting into previous Screen Update Call my Screen Update(True, false) 'to set updating to false 'do your heavy code here and when finished: Call my Screen Update(True, previous Screen Update)maybe you have fiddled around with the code and thought the first "Call my Screen Update(True, previous Screen Update)" is useless/wrong? Screen Updating = True Msg Box "done" End Sub Sub put Numbers In Cells() Dim ws As Worksheet Dim j As Long Dim resp As Integer Set ws = Active Sheet resp = Msg Box("Turn off updating? Screen Updating = previous Screen Update Else previous Screen Update = Application. Screen Updating = False End If End Sub And there I found that the first call (and the second too, I guess) was uneffective Can it be it's because of some maliciuos interaction between Application. But always remind that I get no flickering in Excel 2010.Screen Updating to its previuos value, not necessarily to True.this to mantain possible settings to False coming from calling subs Am I missing something?

- still, I have that flickering with excel 2013-W8 and not with excel 2010-W7 since the main sub (and those called by it) has to open all those many workbooks, for reading data inside them, I'm starting to think flickering is due to this.

Public Sub Monday_1() Dim Varbooks Dim var Book Dim wb As Excel.

Workbook Varbooks = Array("Test1", "Test2") For Each var Book In Varbooks Set wb = Workbooks.

Close& ".xls" End With Next var Book Public Sub Refresh On Open() Dim wks As Worksheet Dim qt As Query Table For Each wks In Worksheets For Each qt In wks.

Format(Date, "mmddyyyy") & ".xls" Run "Print To PDF_Multi Sheet To One_Early" .

Leave a Reply