Sheet selected, automatic return to top of sheet - microsoft.public.excel.worksheet.functions

Hi all. Is there a formula that...When a sheet is selected via a macro button, you are automatically returned to the top of the selected sheet...or, when you open your workbook the next day all sheets are returned to the top. If this is possible I would need sheets returned to Row 8, as Rows 1-7 are frozen Thanks in advance Mike

You need these two event sub for it: Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Activate ws.Range("A8").Select Next ws Worksheets(1).Activate End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Sh.Range("A8").Select End Sub Post if you need help to install them! -- Regards! Stefi „MIKEY” ezt írta: > Hi all. > > Is there a formula that...When a sheet is selected via a macro button, you > are automatically returned to the top of the selected sheet...or, when you > open your workbook the next day all sheets are returned to the top. > > If this is possible I would need sheets returned to Row 8, as Rows 1-7 are > frozen > > Thanks in advance > Mike

I went to install in WorkBook and i get ..........Compile error: Ambiguous name detected:Workbook_Open "Stefi" wrote: > You need these two event sub for it: > > Private Sub Workbook_Open() > Dim ws As Worksheet > For Each ws In ThisWorkbook.Worksheets > ws.Activate > ws.Range("A8").Select > Next ws > Worksheets(1).Activate > End Sub > > Private Sub Workbook_SheetActivate(ByVal Sh As Object) > Sh.Range("A8").Select > End Sub > > > Post if you need help to install them! > > -- > Regards! > Stefi > > > > „MIKEY” ezt írta: > > > Hi all. > > > > Is there a formula that...When a sheet is selected via a macro button, you > > are automatically returned to the top of the selected sheet...or, when you > > open your workbook the next day all sheets are returned to the top. > > > > If this is possible I would need sheets returned to Row 8, as Rows 1-7 are > > frozen > > > > Thanks in advance > > Mike

You only get one Workbook_Open event per workbook. You'll have to merge the procedures into one. If you need help, you should post both procedures in your follow-up. MIKEY wrote: > > I went to install in WorkBook and i get ..........Compile error: > Ambiguous name > detected:Workbook_Open > > "Stefi" wrote: > > > You need these two event sub for it: > > > > Private Sub Workbook_Open() > > Dim ws As Worksheet > > For Each ws In ThisWorkbook.Worksheets > > ws.Activate > > ws.Range("A8").Select > > Next ws > > Worksheets(1).Activate > > End Sub > > > > Private Sub Workbook_SheetActivate(ByVal Sh As Object) > > Sh.Range("A8").Select > > End Sub > > > > > > Post if you need help to install them! > > > > -- > > Regards! > > Stefi > > > > > > > > „MIKEY” ezt írta: > > > > > Hi all. > > > > > > Is there a formula that...When a sheet is selected via a macro button, you > > > are automatically returned to the top of the selected sheet...or, when you > > > open your workbook the next day all sheets are returned to the top. > > > > > > If this is possible I would need sheets returned to Row 8, as Rows 1-7 are > > > frozen > > > > > > Thanks in advance > > > Mike -- Dave Peterson

Thanks Stefi I used the first formula and all my sheets return to the beginning. I have some sheets that are Frozen in screen view and they don't move. How do I omit these from the formula. There are 35 sheets I would like to omit and I guess I will need to list these. The sheets are not in numerical order Regards Mike "Stefi" wrote: > You need these two event sub for it: > > Private Sub Workbook_Open() > Dim ws As Worksheet > For Each ws In ThisWorkbook.Worksheets > ws.Activate > ws.Range("A8").Select > Next ws > Worksheets(1).Activate > End Sub > > Private Sub Workbook_SheetActivate(ByVal Sh As Object) > Sh.Range("A8").Select > End Sub > > > Post if you need help to install them! > > -- > Regards! > Stefi > > > > „MIKEY” ezt írta: > > > Hi all. > > > > Is there a formula that...When a sheet is selected via a macro button, you > > are automatically returned to the top of the selected sheet...or, when you > > open your workbook the next day all sheets are returned to the top. > > > > If this is possible I would need sheets returned to Row 8, as Rows 1-7 are > > frozen > > > > Thanks in advance > > Mike

Sorry, I couldn't find out what you mean on "Frozen in screen view", please clarify it. Isn't there any common properties of sheets to be omitted? -- Regards! Stefi „MIKEY” ezt írta: > Thanks Stefi > > I used the first formula and all my sheets return to the beginning. I have > some sheets that are Frozen in screen view and they don't move. How do I > omit these from the formula. > > There are 35 sheets I would like to omit and I guess I will need to list > these. The sheets are not in numerical order > > Regards > Mike > > "Stefi" wrote: > > > You need these two event sub for it: > > > > Private Sub Workbook_Open() > > Dim ws As Worksheet > > For Each ws In ThisWorkbook.Worksheets > > ws.Activate > > ws.Range("A8").Select > > Next ws > > Worksheets(1).Activate > > End Sub > > > > Private Sub Workbook_SheetActivate(ByVal Sh As Object) > > Sh.Range("A8").Select > > End Sub > > > > > > Post if you need help to install them! > > > > -- > > Regards! > > Stefi > > > > > > > > „MIKEY” ezt írta: > > > > > Hi all. > > > > > > Is there a formula that...When a sheet is selected via a macro button, you > > > are automatically returned to the top of the selected sheet...or, when you > > > open your workbook the next day all sheets are returned to the top. > > > > > > If this is possible I would need sheets returned to Row 8, as Rows 1-7 are > > > frozen > > > > > > Thanks in advance > > > Mike

You can't scroll down or across i.e. freeze pane Common properties for sheets to be omitted...they are 'help' sheets for the users Cheers Mike .. "Stefi" wrote: > Sorry, I couldn't find out what you mean on "Frozen in screen view", please > clarify it. Isn't there any common properties of sheets to be omitted? > > -- > Regards! > Stefi > > > > „MIKEY” ezt írta: > > > Thanks Stefi > > > > I used the first formula and all my sheets return to the beginning. I have > > some sheets that are Frozen in screen view and they don't move. How do I > > omit these from the formula. > > > > There are 35 sheets I would like to omit and I guess I will need to list > > these. The sheets are not in numerical order > > > > Regards > > Mike > > > > "Stefi" wrote: > > > > > You need these two event sub for it: > > > > > > Private Sub Workbook_Open() > > > Dim ws As Worksheet > > > For Each ws In ThisWorkbook.Worksheets > > > ws.Activate > > > ws.Range("A8").Select > > > Next ws > > > Worksheets(1).Activate > > > End Sub > > > > > > Private Sub Workbook_SheetActivate(ByVal Sh As Object) > > > Sh.Range("A8").Select > > > End Sub > > > > > > > > > Post if you need help to install them! > > > > > > -- > > > Regards! > > > Stefi > > > > > > > > > > > > „MIKEY” ezt írta: > > > > > > > Hi all. > > > > > > > > Is there a formula that...When a sheet is selected via a macro button, you > > > > are automatically returned to the top of the selected sheet...or, when you > > > > open your workbook the next day all sheets are returned to the top. > > > > > > > > If this is possible I would need sheets returned to Row 8, as Rows 1-7 are > > > > frozen > > > > > > > > Thanks in advance > > > > Mike

Try these: Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Activate If Not ActiveWindow.FreezePanes Then _ ws.Range("A8").Select Next ws Worksheets(1).Activate End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Not ActiveWindow.FreezePanes Then _ Sh.Range("A8").Select End Sub -- Regards! Stefi „MIKEY” ezt írta: > You can't scroll down or across i.e. freeze pane > Common properties for sheets to be omitted...they are 'help' sheets for the > users > > Cheers Mike > . > > "Stefi" wrote: > > > Sorry, I couldn't find out what you mean on "Frozen in screen view", please > > clarify it. Isn't there any common properties of sheets to be omitted? > > > > -- > > Regards! > > Stefi > > > > > > > > „MIKEY” ezt írta: > > > > > Thanks Stefi > > > > > > I used the first formula and all my sheets return to the beginning. I have > > > some sheets that are Frozen in screen view and they don't move. How do I > > > omit these from the formula. > > > > > > There are 35 sheets I would like to omit and I guess I will need to list > > > these. The sheets are not in numerical order > > > > > > Regards > > > Mike > > > > > > "Stefi" wrote: > > > > > > > You need these two event sub for it: > > > > > > > > Private Sub Workbook_Open() > > > > Dim ws As Worksheet > > > > For Each ws In ThisWorkbook.Worksheets > > > > ws.Activate > > > > ws.Range("A8").Select > > > > Next ws > > > > Worksheets(1).Activate > > > > End Sub > > > > > > > > Private Sub Workbook_SheetActivate(ByVal Sh As Object) > > > > Sh.Range("A8").Select > > > > End Sub > > > > > > > > > > > > Post if you need help to install them! > > > > > > > > -- > > > > Regards! > > > > Stefi > > > > > > > > > > > > > > > > „MIKEY” ezt írta: > > > > > > > > > Hi all. > > > > > > > > > > Is there a formula that...When a sheet is selected via a macro button, you > > > > > are automatically returned to the top of the selected sheet...or, when you > > > > > open your workbook the next day all sheets are returned to the top. > > > > > > > > > > If this is possible I would need sheets returned to Row 8, as Rows 1-7 are > > > > > frozen > > > > > > > > > > Thanks in advance > > > > > Mike

Similiar Articles:

Sheet selected, automatic return to top of sheet - microsoft ...
Hi all. Is there a formula that...When a sheet is selected via a macro button, you are automatically returned to the top of the selected sheet.....

Automatically update worksheet name - microsoft.public.excel.misc ...
Sheet selected, automatic return to top of sheet - microsoft ... Automatically update worksheet name - microsoft.public ... transposing across different worksheets ...

Show formula result in another sheet - microsoft.public.excel ...
Sheet selected, automatic return to top of sheet - microsoft ... Show formula result in another sheet - microsoft.public.excel ... Sheet selected, automatic return to top ...

Automatic Carriage Return - microsoft.public.excel
Sheet selected, automatic return to top of sheet - microsoft ... Automatic Carriage Return - microsoft.public.excel automatically go to A2, then enter my next 4 ...

Private Sub Workbook_Open() - microsoft.public.excel.programming ...
Sheet selected, automatic return to top of sheet - microsoft ... You need these two event sub for it: Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ...

Not getting auto page numbers in serial order, why? - microsoft ...
Sheet selected, automatic return to top of sheet - microsoft ... Not getting auto page numbers in serial order, why? - microsoft ... Sheet selected, automatic return to ...

How to set up merge where you hit tab to fill in blanks ...
Sheet selected, automatic return to top of sheet - microsoft ..... When a sheet is selected via a macro button, you ... You'll have to merge the procedures into one.

change color of "bar" on multi-day event shape ...
Sheet selected, automatic return to top of sheet - microsoft ... You need these two event sub for it: Private Sub ... Word Art, right click and go to Format Shape.

Worksheets and Events - microsoft.public.excel.programming ...
Sheet selected, automatic return to top of sheet - microsoft ... You need these two event sub for it: Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ...

Automatic date entry after any change in the data. - microsoft ...
Sheet selected, automatic return to top of sheet - microsoft ... Alt + q to return to Excel. Gord Dibben MS ... Unprotect the sheet. Select all cells and Format>Cells ...

Change the color of gridlines in a worksheet - Excel - Office.com
... worksheets are selected, [Group] appears in the title bar at the top of ... Tip To return gridlines to the default color, click Automatic. ... on the printed page, select ...

Filter Excel Data to Another Sheet - ddalgleish on HubPages
Click in the Copy to box. Select cells A1:B1 on the Top Orders sheet. ... here: Separate Excel List with Automatic Lines ... The INDEX function can return a value from ...

Gridlines and Borders - Welcome to the MVPs.org home page!
Gridlines (checked), color: automatic Cell color ... Select all sheets by rightclick on sheet tab, Select all ... [Site Search -- Excel] [Return to TOP] Please ...

Insert, move, or delete page breaks in a worksheet - Excel ...
Excel inserts automatic page breaks based on the ... that the Fit To scaling option has been selected on the Page ... Top of Page. Return to Normal view. To return to Normal view ...

7/22/2012 10:12:15 PM