ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Maintain view of a sheet while macro runs (https://www.excelbanter.com/excel-programming/384111-maintain-view-sheet-while-macro-runs.html)

excelnut1954

Maintain view of a sheet while macro runs
 
I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.


Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.

'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False

' user will enter PO# to search for
UserForm12.Show

End Sub

Thanks,
J.O.


Susan

Maintain view of a sheet while macro runs
 
at the beginning of your macro, add

application.screenupdating=false

and near the bottom add

application.screenupdating=true

then the screen won't jump around following your macro. will just
stay on the Menu sheet.
hth!
susan


On Feb 28, 9:07 am, "excelnut1954" wrote:
I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.

Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.

'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False

' user will enter PO# to search for
UserForm12.Show

End Sub

Thanks,
J.O.




Tom Ogilvy

Maintain view of a sheet while macro runs
 
Sure, don't write code that goes to the other sheet

Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and
'choose from Current or Deleted sheet.

'Unhides columns for Search
Application.Range("_2nd_PO_PL") _
.Columns("A:N").EntireColumn.Hidden = False

UserForm12.Show

End Sub

"excelnut1954" wrote:

I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.


Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.

'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False

' user will enter PO# to search for
UserForm12.Show

End Sub

Thanks,
J.O.



Susan

Maintain view of a sheet while macro runs
 
<sigh
tom - every time you come along behind me, i know i've either not
answered the question properly OR completely. or in this case, i
answered the question but didn't address the problem.
but it helps me learn, too.
susan

On Feb 28, 10:00 am, Tom Ogilvy
wrote:
Sure, don't write code that goes to the other sheet

Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and
'choose from Current or Deleted sheet.

'Unhides columns for Search
Application.Range("_2nd_PO_PL") _
.Columns("A:N").EntireColumn.Hidden = False

UserForm12.Show

End Sub



"excelnut1954" wrote:
I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.


Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.


'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False


' user will enter PO# to search for
UserForm12.Show


End Sub


Thanks,
J.O.- Hide quoted text -


- Show quoted text -




Tom Ogilvy

Maintain view of a sheet while macro runs
 
I think you assume to much as to my motives relative to your suggestion.
Where I am posting, you came along after me by 14 minutes. It seems that
what is shown as time isn't universal - so best to assume that any posts made
within probably an hour were done without knowledge of other answers/posts
(unless, they are children within a single thread). Remember that posts are
made to servers all over the world and migrated in a rather informal fashion.

--
Regards,
Tom Ogilvy




"Susan" wrote:

<sigh
tom - every time you come along behind me, i know i've either not
answered the question properly OR completely. or in this case, i
answered the question but didn't address the problem.
but it helps me learn, too.
susan

On Feb 28, 10:00 am, Tom Ogilvy
wrote:
Sure, don't write code that goes to the other sheet

Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and
'choose from Current or Deleted sheet.

'Unhides columns for Search
Application.Range("_2nd_PO_PL") _
.Columns("A:N").EntireColumn.Hidden = False

UserForm12.Show

End Sub



"excelnut1954" wrote:
I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.


Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.


'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False


' user will enter PO# to search for
UserForm12.Show


End Sub


Thanks,
J.O.- Hide quoted text -


- Show quoted text -





Susan

Maintain view of a sheet while macro runs
 
yes, i've noticed that problem timing when an "answer" appears
before the "question." i hadn't considered that in this situation.

but please understand i wan't at all trying to imply that you are
following me around correcting me on purpose! :) it's just kind of
funny - & you have so much more experience than me. so your answers
are generally either more thorough or have a better understanding of
what the OP wanted/asked.
susan



On Feb 28, 11:07 am, Tom Ogilvy
wrote:
I think you assume to much as to my motives relative to your suggestion.
Where I am posting, you came along after me by 14 minutes. It seems that
what is shown as time isn't universal - so best to assume that any posts made
within probably an hour were done without knowledge of other answers/posts
(unless, they are children within a single thread). Remember that posts are
made to servers all over the world and migrated in a rather informal fashion.

--
Regards,
Tom Ogilvy



"Susan" wrote:
<sigh
tom - every time you come along behind me, i know i've either not
answered the question properly OR completely. or in this case, i
answered the question but didn't address the problem.
but it helps me learn, too.
susan


On Feb 28, 10:00 am, Tom Ogilvy
wrote:
Sure, don't write code that goes to the other sheet


Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and
'choose from Current or Deleted sheet.


'Unhides columns for Search
Application.Range("_2nd_PO_PL") _
.Columns("A:N").EntireColumn.Hidden = False


UserForm12.Show


End Sub


"excelnut1954" wrote:
I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.


Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.


'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False


' user will enter PO# to search for
UserForm12.Show


End Sub


Thanks,
J.O.- Hide quoted text -


- Show quoted text -- Hide quoted text -


- Show quoted text -




Tom Ogilvy

Maintain view of a sheet while macro runs
 
Now I am commenting on/supplementing your post. That is true if he had
returned to menu in his code, then turned screenupdating on, but he didn't.
So to utilize your suggestion, he should.

--
Regards,
Tom Ogilvy


"Susan" wrote:

at the beginning of your macro, add

application.screenupdating=false

and near the bottom add

application.screenupdating=true

then the screen won't jump around following your macro. will just
stay on the Menu sheet.
hth!
susan


On Feb 28, 9:07 am, "excelnut1954" wrote:
I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.

Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.

'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False

' user will enter PO# to search for
UserForm12.Show

End Sub

Thanks,
J.O.





excelnut1954

Maintain view of a sheet while macro runs
 
On Feb 28, 10:19 am, Tom Ogilvy
wrote:
Now I am commenting on/supplementing your post. That is true if he had
returned to menu in his code, then turned screenupdating on, but he didn't.
So to utilize your suggestion, he should.

--
Regards,
Tom Ogilvy



"Susan" wrote:
at the beginning of your macro, add


application.screenupdating=false


and near the bottom add


application.screenupdating=true


then the screen won't jump around following your macro. will just
stay on the Menu sheet.
hth!
susan


On Feb 28, 9:07 am, "excelnut1954" wrote:
I have a sheet named Menu that contains command buttons the user will
choose from. I would like for the view to stay on Menu as the macro
executes. Is there a way to keep the focus on this sheet? Here's an
example of one of the button commands.


Private Sub CommandButton1_Click()
'Find Record via PO# - enter # and choose from Current or Deleted
sheet.


'Unhides columns for Search
Application.Goto Reference:="_2nd_PO_PL"
ActiveCell.Columns("A:N").EntireColumn.Select
Selection.EntireColumn.Hidden = False


' user will enter PO# to search for
UserForm12.Show


End Sub


Thanks,
J.O.- Hide quoted text -


- Show quoted text -


Works great! So simple, yet so effective.
I appreaciate the help, no matter who it comes from.
Thanks Susan & Tom
J.O.



All times are GMT +1. The time now is 06:01 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com