I've got a dead simple bit of code where I switch screenupdating on, run a
small section of code (basically runs a routine that puts up a percentage of
progress so the user doesn't stare at a mental screen but still gets some
feedback) and then I try to switch the updating off again so that the code
can carry on.

Problem is that the updating isn't switching off, if I go through the code
line by line it gets to the '=false' line and it executes without any errors
but in the watchwindow screenupdating is still showing as being '=True'.

Never come across this before, any suggestions?

What's your code?

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Sabre" <(E-Mail Removed)> wrote in message news:C56269D9-4A49-4107-839F-(E-Mail Removed)...
| I've got a dead simple bit of code where I switch screenupdating on, run a
| small section of code (basically runs a routine that puts up a percentage of
| progress so the user doesn't stare at a mental screen but still gets some
| feedback) and then I try to switch the updating off again so that the code
| can carry on.
|
| Problem is that the updating isn't switching off, if I go through the code
| line by line it gets to the '=false' line and it executes without any errors
| but in the watchwindow screenupdating is still showing as being '=True'.
|
| Never come across this before, any suggestions?

Hi Sabre -

The ScreenUpdating property always displays a value of true when you query
its value within the VB Editor. This and other application properties
(ScreenUpdating, EnableEvents, etc.) always show a True value even when
you've set them to False (I don't know why). The proof of whether it is
working is if screenupdating is suppressed when you want it to be.
--
Jay


"Sabre" wrote:

> I've got a dead simple bit of code where I switch screenupdating on, run a
> small section of code (basically runs a routine that puts up a percentage of
> progress so the user doesn't stare at a mental screen but still gets some
> feedback) and then I try to switch the updating off again so that the code
> can carry on.
>
> Problem is that the updating isn't switching off, if I go through the code
> line by line it gets to the '=false' line and it executes without any errors
> but in the watchwindow screenupdating is still showing as being '=True'.
>
> Never come across this before, any suggestions?

Thanks for the replies, that explains why it's not showing up as false then.

The snippet of code is below, there's just the one Sub in the module.

Sub ClearInvalidSales()

'Application.ScreenUpdating = False
< VARIABLES SET IN HERE >
<SETUP SHEETS (CLEAR CELLS etc.)>


'@@@ Clear blank rows and uninvoiced sales
RowCounter = 1
BlankCounter = 0
TotalRows = 0

While BlankCounter < 10
Range("C" & RowCounter).Select
If Selection.Value = "" Then
Rows(RowCounter & ":" & RowCounter).Select
Selection.Delete shift:=xlUp
BlankCounter = BlankCounter + 1
ElseIf Not Selection.Value = "I" Then
Rows(RowCounter & ":" & RowCounter).Select
Selection.Delete shift:=xlUp
BlankCounter = 0
RowCounter = RowCounter - 1
Else
BlankCounter = 0
End If
RowCounter = RowCounter + 1
TotalRows = TotalRows + 1
+ Application.ScreenUpdating = True
Sheets("Progress").Select
Range("D5").Select
Selection.Value = TotalRows
Sheets("Sales").Select
+ Application.ScreenUpdating = False
Wend

The idea I said before at this point is just that everytime a row is checked
'rowcounter' is incremented by 1. This happens in the background but so that
the user stays informed the sheet 'Progress' is updated visibly then the
screenupdating (between the '+') is switched off again to run some more code
in the background.


"Sabre" wrote:

> I've got a dead simple bit of code where I switch screenupdating on, run a
> small section of code (basically runs a routine that puts up a percentage of
> progress so the user doesn't stare at a mental screen but still gets some
> feedback) and then I try to switch the updating off again so that the code
> can carry on.
>
> Problem is that the updating isn't switching off, if I go through the code
> line by line it gets to the '=false' line and it executes without any errors
> but in the watchwindow screenupdating is still showing as being '=True'.
>
> Never come across this before, any suggestions?

<The ScreenUpdating property always displays a value of true when you query its value within the VB Editor>

It doesn't for me!

Sub test()
Dim a As Double
a = 1
Application.ScreenUpdating = False
a = 2
Application.ScreenUpdating = True
End Sub

I set a watch for a and for Application.Screenupdating and saw both change at the expected moment.

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Jay" <(E-Mail Removed)> wrote in message newsC9E428C-64B4-4579-A5AA-(E-Mail Removed)...
| Hi Sabre -
|
| The ScreenUpdating property always displays a value of true when you query
| its value within the VB Editor. This and other application properties
| (ScreenUpdating, EnableEvents, etc.) always show a True value even when
| you've set them to False (I don't know why). The proof of whether it is
| working is if screenupdating is suppressed when you want it to be.
| --
| Jay
|
|
| "Sabre" wrote:
|
| > I've got a dead simple bit of code where I switch screenupdating on, run a
| > small section of code (basically runs a routine that puts up a percentage of
| > progress so the user doesn't stare at a mental screen but still gets some
| > feedback) and then I try to switch the updating off again so that the code
| > can carry on.
| >
| > Problem is that the updating isn't switching off, if I go through the code
| > line by line it gets to the '=false' line and it executes without any errors
| > but in the watchwindow screenupdating is still showing as being '=True'.
| >
| > Never come across this before, any suggestions?

Hi Jay,

'----------------
The ScreenUpdating property always displays a value of true when you query
its value within the VB Editor. This and other application properties
(ScreenUpdating, EnableEvents, etc.) always show a True value even when
you've set them to False (I don't know why). The proof of whether it is
working is if screenupdating is suppressed when you want it to be.
'----------------
'=============>>
Public Sub TestIt()
Const sStr = "ScreenUpdating is on = "

With Application
.ScreenUpdating = False
MsgBox sStr & .ScreenUpdating
.ScreenUpdating = True
MsgBox sStr & .ScreenUpdating
End With
End Sub
'<<=============


---
Regards,
Norman

Sorry about the formatting, it was clearer when the tabs were still in there.

"Sabre" wrote:

> Thanks for the replies, that explains why it's not showing up as false then.
>
> The snippet of code is below, there's just the one Sub in the module.
>
> Sub ClearInvalidSales()
>
> 'Application.ScreenUpdating = False
> < VARIABLES SET IN HERE >
> <SETUP SHEETS (CLEAR CELLS etc.)>
>
>
> '@@@ Clear blank rows and uninvoiced sales
> RowCounter = 1
> BlankCounter = 0
> TotalRows = 0
>
> While BlankCounter < 10
> Range("C" & RowCounter).Select
> If Selection.Value = "" Then
> Rows(RowCounter & ":" & RowCounter).Select
> Selection.Delete shift:=xlUp
> BlankCounter = BlankCounter + 1
> ElseIf Not Selection.Value = "I" Then
> Rows(RowCounter & ":" & RowCounter).Select
> Selection.Delete shift:=xlUp
> BlankCounter = 0
> RowCounter = RowCounter - 1
> Else
> BlankCounter = 0
> End If
> RowCounter = RowCounter + 1
> TotalRows = TotalRows + 1
> + Application.ScreenUpdating = True
> Sheets("Progress").Select
> Range("D5").Select
> Selection.Value = TotalRows
> Sheets("Sales").Select
> + Application.ScreenUpdating = False
> Wend
>
> The idea I said before at this point is just that everytime a row is checked
> 'rowcounter' is incremented by 1. This happens in the background but so that
> the user stays informed the sheet 'Progress' is updated visibly then the
> screenupdating (between the '+') is switched off again to run some more code
> in the background.
>
>
> "Sabre" wrote:
>
> > I've got a dead simple bit of code where I switch screenupdating on, run a
> > small section of code (basically runs a routine that puts up a percentage of
> > progress so the user doesn't stare at a mental screen but still gets some
> > feedback) and then I try to switch the updating off again so that the code
> > can carry on.
> >
> > Problem is that the updating isn't switching off, if I go through the code
> > line by line it gets to the '=false' line and it executes without any errors
> > but in the watchwindow screenupdating is still showing as being '=True'.
> >
> > Never come across this before, any suggestions?

Sabre

I notice your Application.Screenupdating = False has been remmed out. Remove
the appostrophe

Regards
Peter

"Sabre" wrote:

> Sorry about the formatting, it was clearer when the tabs were still in there.
>
> "Sabre" wrote:
>
> > Thanks for the replies, that explains why it's not showing up as false then.
> >
> > The snippet of code is below, there's just the one Sub in the module.
> >
> > Sub ClearInvalidSales()
> >
> > 'Application.ScreenUpdating = False
> > < VARIABLES SET IN HERE >
> > <SETUP SHEETS (CLEAR CELLS etc.)>
> >
> >
> > '@@@ Clear blank rows and uninvoiced sales
> > RowCounter = 1
> > BlankCounter = 0
> > TotalRows = 0
> >
> > While BlankCounter < 10
> > Range("C" & RowCounter).Select
> > If Selection.Value = "" Then
> > Rows(RowCounter & ":" & RowCounter).Select
> > Selection.Delete shift:=xlUp
> > BlankCounter = BlankCounter + 1
> > ElseIf Not Selection.Value = "I" Then
> > Rows(RowCounter & ":" & RowCounter).Select
> > Selection.Delete shift:=xlUp
> > BlankCounter = 0
> > RowCounter = RowCounter - 1
> > Else
> > BlankCounter = 0
> > End If
> > RowCounter = RowCounter + 1
> > TotalRows = TotalRows + 1
> > + Application.ScreenUpdating = True
> > Sheets("Progress").Select
> > Range("D5").Select
> > Selection.Value = TotalRows
> > Sheets("Sales").Select
> > + Application.ScreenUpdating = False
> > Wend
> >
> > The idea I said before at this point is just that everytime a row is checked
> > 'rowcounter' is incremented by 1. This happens in the background but so that
> > the user stays informed the sheet 'Progress' is updated visibly then the
> > screenupdating (between the '+') is switched off again to run some more code
> > in the background.
> >
> >
> > "Sabre" wrote:
> >
> > > I've got a dead simple bit of code where I switch screenupdating on, run a
> > > small section of code (basically runs a routine that puts up a percentage of
> > > progress so the user doesn't stare at a mental screen but still gets some
> > > feedback) and then I try to switch the updating off again so that the code
> > > can carry on.
> > >
> > > Problem is that the updating isn't switching off, if I go through the code
> > > line by line it gets to the '=false' line and it executes without any errors
> > > but in the watchwindow screenupdating is still showing as being '=True'.
> > >
> > > Never come across this before, any suggestions?

yeah I rem'd that out deliberately while I was trying to debug it, it is
overrideen as soon as it gets into the 'While' loop later on anyways, I just
rem'd it to minimise confusion.

"Billy Liddel" wrote:

> Sabre
>
> I notice your Application.Screenupdating = False has been remmed out. Remove
> the appostrophe
>
> Regards
> Peter
>
> "Sabre" wrote:
>
> > Sorry about the formatting, it was clearer when the tabs were still in there.
> >
> > "Sabre" wrote:
> >
> > > Thanks for the replies, that explains why it's not showing up as false then.
> > >
> > > The snippet of code is below, there's just the one Sub in the module.
> > >
> > > Sub ClearInvalidSales()
> > >
> > > 'Application.ScreenUpdating = False
> > > < VARIABLES SET IN HERE >
> > > <SETUP SHEETS (CLEAR CELLS etc.)>
> > >
> > >
> > > '@@@ Clear blank rows and uninvoiced sales
> > > RowCounter = 1
> > > BlankCounter = 0
> > > TotalRows = 0
> > >
> > > While BlankCounter < 10
> > > Range("C" & RowCounter).Select
> > > If Selection.Value = "" Then
> > > Rows(RowCounter & ":" & RowCounter).Select
> > > Selection.Delete shift:=xlUp
> > > BlankCounter = BlankCounter + 1
> > > ElseIf Not Selection.Value = "I" Then
> > > Rows(RowCounter & ":" & RowCounter).Select
> > > Selection.Delete shift:=xlUp
> > > BlankCounter = 0
> > > RowCounter = RowCounter - 1
> > > Else
> > > BlankCounter = 0
> > > End If
> > > RowCounter = RowCounter + 1
> > > TotalRows = TotalRows + 1
> > > + Application.ScreenUpdating = True
> > > Sheets("Progress").Select
> > > Range("D5").Select
> > > Selection.Value = TotalRows
> > > Sheets("Sales").Select
> > > + Application.ScreenUpdating = False
> > > Wend
> > >
> > > The idea I said before at this point is just that everytime a row is checked
> > > 'rowcounter' is incremented by 1. This happens in the background but so that
> > > the user stays informed the sheet 'Progress' is updated visibly then the
> > > screenupdating (between the '+') is switched off again to run some more code
> > > in the background.
> > >
> > >
> > > "Sabre" wrote:
> > >
> > > > I've got a dead simple bit of code where I switch screenupdating on, run a
> > > > small section of code (basically runs a routine that puts up a percentage of
> > > > progress so the user doesn't stare at a mental screen but still gets some
> > > > feedback) and then I try to switch the updating off again so that the code
> > > > can carry on.
> > > >
> > > > Problem is that the updating isn't switching off, if I go through the code
> > > > line by line it gets to the '=false' line and it executes without any errors
> > > > but in the watchwindow screenupdating is still showing as being '=True'.
> > > >
> > > > Never come across this before, any suggestions?

Just tried using the bit of code provided by Norman Jones for debugging and
it set to True and False as it should. Removed the debugging code and it all
started working perfectly!

Weird. But thanks Norman all the same!



"Sabre" wrote:

> I've got a dead simple bit of code where I switch screenupdating on, run a
> small section of code (basically runs a routine that puts up a percentage of
> progress so the user doesn't stare at a mental screen but still gets some
> feedback) and then I try to switch the updating off again so that the code
> can carry on.
>
> Problem is that the updating isn't switching off, if I go through the code
> line by line it gets to the '=false' line and it executes without any errors
> but in the watchwindow screenupdating is still showing as being '=True'.
>
> Never come across this before, any suggestions?