W
werbitt
Hi, I have successfully used the "Application.ScreenUpdating = False"
statement in the past, but for some reason it is not working for me
now. Here is my VBA:
Sub calculateEvent()
Dim row As Integer
Dim isBlank As Boolean
'Turn off calculations and screen updating
Application.ScreenUpdating = False
Workbooks("Master.xls").Sheets("CurrentSD").EnableCalculation =
False
'Go through row by row, determine if any SDs are greater than 2
row = 2
isBlank = False
'If SD greater than 2 determine status and take appropriate action
Do While isBlank = False
If Workbooks("Master.xls").Sheets("CurrentSD").Range("D" &
row).Value >= 2 Then
If Workbooks("Master.xls").Sheets("CurrentSD").Range("E" &
row).Value = "NULL" Then
'CALL openProposal()
End If
If Workbooks("Master.xls").Sheets("CurrentSD").Range("E" &
row).Value = "OPEN" Then
'Call reopenProposal()
End If
If Workbooks("Master.xls").Sheets("CurrentSD").Range("E" &
row).Value = "CLOSING" Then
'Call cancelCloseProposal()
End If
End If
'increment row
row = row + 1
If Workbooks("Master.xls").Sheets("CurrentSD").Range("A" &
row).Value = "" Then isBlank = True
Range("A23").Value = "test"
Loop
'Turn on Calculations and screen updating
Workbooks("Master.xls").Sheets("CurrentSD").EnableCalculation =
True
Application.ScreenUpdating = True
End Sub
If I step through the code and mouseover Application.ScreenUpdating
directly after the "Application.ScreenUpdating = False" statement it
still says "Application.ScreenUpdating = TRUE"?!?!?! Is there some
setting I don't know about that is not letting me turn off screen
updating.
statement in the past, but for some reason it is not working for me
now. Here is my VBA:
Sub calculateEvent()
Dim row As Integer
Dim isBlank As Boolean
'Turn off calculations and screen updating
Application.ScreenUpdating = False
Workbooks("Master.xls").Sheets("CurrentSD").EnableCalculation =
False
'Go through row by row, determine if any SDs are greater than 2
row = 2
isBlank = False
'If SD greater than 2 determine status and take appropriate action
Do While isBlank = False
If Workbooks("Master.xls").Sheets("CurrentSD").Range("D" &
row).Value >= 2 Then
If Workbooks("Master.xls").Sheets("CurrentSD").Range("E" &
row).Value = "NULL" Then
'CALL openProposal()
End If
If Workbooks("Master.xls").Sheets("CurrentSD").Range("E" &
row).Value = "OPEN" Then
'Call reopenProposal()
End If
If Workbooks("Master.xls").Sheets("CurrentSD").Range("E" &
row).Value = "CLOSING" Then
'Call cancelCloseProposal()
End If
End If
'increment row
row = row + 1
If Workbooks("Master.xls").Sheets("CurrentSD").Range("A" &
row).Value = "" Then isBlank = True
Range("A23").Value = "test"
Loop
'Turn on Calculations and screen updating
Workbooks("Master.xls").Sheets("CurrentSD").EnableCalculation =
True
Application.ScreenUpdating = True
End Sub
If I step through the code and mouseover Application.ScreenUpdating
directly after the "Application.ScreenUpdating = False" statement it
still says "Application.ScreenUpdating = TRUE"?!?!?! Is there some
setting I don't know about that is not letting me turn off screen
updating.