Comments on: New Worksheet Location http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/ Daily posts of Excel tips…and other stuff Thu, 09 Feb 2012 23:42:03 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Tushar Mehta http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22884 Tushar Mehta Mon, 26 Mar 2007 05:42:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22884 <p>Dunno why the VB tags did'nt work. Here's the same post with the tags in upper case.</p> <p>Keeping in mind that I think this is overkill...and one of the reasons it is overkill is the saving in time, which over an entire year might add up to a few seconds, will be more than 'undone' by writing, debugging, and maintaining the code...</p> <p>This will fail in 2007 if you click the newly added 'tab' (or should it be called a button?) that is located to the right of all the sheet tabs. The new tab/button creates a new worksheet as the last sheet in the workbook. Similarly, the code will fail if one were to programmatically add a new sheet at the end of a workbook.</p> <p>So, one should modify the code to be <code lang="vb"><br> Private Sub myApp_WorkbookNewSheet(ByVal Wb As Workbook, _<br> ByVal Sh As Object)<br> With Wb<br> If Sh.Index</code></p> Dunno why the VB tags did’nt work. Here’s the same post with the tags in upper case.

Keeping in mind that I think this is overkill…and one of the reasons it is overkill is the saving in time, which over an entire year might add up to a few seconds, will be more than ‘undone’ by writing, debugging, and maintaining the code…

This will fail in 2007 if you click the newly added ‘tab’ (or should it be called a button?) that is located to the right of all the sheet tabs. The new tab/button creates a new worksheet as the last sheet in the workbook. Similarly, the code will fail if one were to programmatically add a new sheet at the end of a workbook.

So, one should modify the code to be

<br>
Private Sub myApp_WorkbookNewSheet(ByVal Wb As Workbook, _<br>
        ByVal Sh As Object)<br>
    With Wb<br>
    If Sh.Index

]]> By: Tushar Mehta http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22883 Tushar Mehta Mon, 26 Mar 2007 05:40:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22883 <p>Keeping in mind that I think this is overkill...and one of the reasons it is overkill is the saving in time, which over an entire year might add up to a few seconds, will be more than 'undone' by writing, debugging, and maintaining the code...</p> <p>This will fail in 2007 if you click the newly added 'tab' (or should it be called a button?) that is located to the right of all the sheet tabs. The new tab/button creates a new worksheet as the last sheet in the workbook. Similarly, the code will fail if one were to programmatically add a new sheet at the end of a workbook.</p> <p>So, one should modify the code to be <code lang="vb"><br> Private Sub myApp_WorkbookNewSheet(ByVal Wb As Workbook, _<br> ByVal Sh As Object)<br> With Wb<br> If Sh.Index</code></p> Keeping in mind that I think this is overkill…and one of the reasons it is overkill is the saving in time, which over an entire year might add up to a few seconds, will be more than ‘undone’ by writing, debugging, and maintaining the code…

This will fail in 2007 if you click the newly added ‘tab’ (or should it be called a button?) that is located to the right of all the sheet tabs. The new tab/button creates a new worksheet as the last sheet in the workbook. Similarly, the code will fail if one were to programmatically add a new sheet at the end of a workbook.

So, one should modify the code to be

<br>
Private Sub myApp_WorkbookNewSheet(ByVal Wb As Workbook, _<br>
        ByVal Sh As Object)<br>
    With Wb<br>
    If Sh.Index

]]> By: ross http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22854 ross Fri, 23 Mar 2007 00:39:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22854 <p>... there goes Ken with his Addins ;-)</p> <p>This is an example of "poor" MS design - this type of thing is ok in Excel 5, but by 2000 it should be putting it to the right - God knows why anyone would design it to put it to the left - maybe if your regional settings where right to left text? </p> <p>Having said that I'm a mouse jockey, so once i click insert, i rename and drag it across - true though on a big wkb it can be a pain.</p> … there goes Ken with his Addins ;-)

This is an example of “poor” MS design – this type of thing is ok in Excel 5, but by 2000 it should be putting it to the right – God knows why anyone would design it to put it to the left – maybe if your regional settings where right to left text?

Having said that I’m a mouse jockey, so once i click insert, i rename and drag it across – true though on a big wkb it can be a pain.

]]> By: Ken Puls http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22846 Ken Puls Thu, 22 Mar 2007 18:00:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22846 <p>Hi Dick,</p> <p>I don't think it would fail, as the "Sheets" collection will deal equally well with Chart sheets, Macro pages, etc... One thing that can scramble it a little bit is if you insert a file that has multiple pages. (i.e. Insert a multi-sheet template into your workbook.) It doesn't move all pages to the end, but rather shuffles the order a little. (I can't think that many people would do this though.)</p> <p>Fwiw, I would agree with Matt that the best placement of this kind of thing is in a separate add-in, rather than in the personal.xls. It then doesn't get tocuhed, and doesn't accidentally collapse on you when you start tinkering with other code in the Personal.xls file. :)</p> Hi Dick,

I don’t think it would fail, as the “Sheets” collection will deal equally well with Chart sheets, Macro pages, etc… One thing that can scramble it a little bit is if you insert a file that has multiple pages. (i.e. Insert a multi-sheet template into your workbook.) It doesn’t move all pages to the end, but rather shuffles the order a little. (I can’t think that many people would do this though.)

Fwiw, I would agree with Matt that the best placement of this kind of thing is in a separate add-in, rather than in the personal.xls. It then doesn’t get tocuhed, and doesn’t accidentally collapse on you when you start tinkering with other code in the Personal.xls file. :)

]]> By: Matt Vidas http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22844 Matt Vidas Thu, 22 Mar 2007 14:27:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22844 <p>I like this idea! I always want it to the right of my activesheet as well (I use shift-F11 to add it), and have always just moved it.<br> As Rick said, the project could reset (step through a proc, even just one line, then click the end button; design mode could be also be toggled) and you could lose the object variable. To get around that, I will often put application-level events into a separate add-in, which would stay small (quick load) and usually won't get touched (also won't conflict with any other code in personal.xls). You could also put something like this into some other events to ensure the object is working: "if gclsapp is nothing then set gclsapp=new cappevent", though that kind of line works best if you set 'myApp' in the Class_Initialize event.</p> <p>Also, not that it really makes much of a difference, but you don't need the public variable in a standard module. Putting "Dim gclsApp As CAppEvent" in ThisWorkbook will work just as well.</p> I like this idea! I always want it to the right of my activesheet as well (I use shift-F11 to add it), and have always just moved it.
As Rick said, the project could reset (step through a proc, even just one line, then click the end button; design mode could be also be toggled) and you could lose the object variable. To get around that, I will often put application-level events into a separate add-in, which would stay small (quick load) and usually won’t get touched (also won’t conflict with any other code in personal.xls). You could also put something like this into some other events to ensure the object is working: “if gclsapp is nothing then set gclsapp=new cappevent”, though that kind of line works best if you set ‘myApp’ in the Class_Initialize event.

Also, not that it really makes much of a difference, but you don’t need the public variable in a standard module. Putting “Dim gclsApp As CAppEvent” in ThisWorkbook will work just as well.

]]> By: Dick Kusleika http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22843 Dick Kusleika Thu, 22 Mar 2007 14:24:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22843 <p>Rick: I don't know all the things that reset the project, but I'd like to.</p> Rick: I don’t know all the things that reset the project, but I’d like to.

]]> By: Sam http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22840 Sam Thu, 22 Mar 2007 05:21:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22840 <p>Hi Dick...</p> <p>The below code works fine...:-)</p> <p>Sub AddSheetToRight()<br> ' KeyBoard Shortcut Ctrl+Shift+i<br> ActiveWorkbook.Sheets.Add After:=Worksheets(ActiveSheet.Index)<br> End Sub</p> Hi Dick…

The below code works fine…:-)

Sub AddSheetToRight()
‘ KeyBoard Shortcut Ctrl+Shift+i
ActiveWorkbook.Sheets.Add After:=Worksheets(ActiveSheet.Index)
End Sub

]]> By: Rick Williams http://www.dailydoseofexcel.com/archives/2007/03/21/new-worksheet-location/#comment-22836 Rick Williams Thu, 22 Mar 2007 00:45:00 +0000 http://www.dailydoseofexcel.com/?p=1627#comment-22836 <p>I just tried it out and it's a great idea! (I always forget how to set-up a class module to respond to events!)</p> <p>The only way I can see it 'failing' is when your 'personal.xls' workbook is reset - the global variable (gclsApp) is lost. When I made changes which reset the project, I just clicked in the Workbook_Open event and hit F5.</p> <p>Also I'm not sure on exactly <i>what</i> changes do and don't trigger a reset of VBA projects... any help?</p> I just tried it out and it’s a great idea! (I always forget how to set-up a class module to respond to events!)

The only way I can see it ‘failing’ is when your ‘personal.xls’ workbook is reset – the global variable (gclsApp) is lost. When I made changes which reset the project, I just clicked in the Workbook_Open event and hit F5.

Also I’m not sure on exactly what changes do and don’t trigger a reset of VBA projects… any help?

]]>