Very Good Information!
On Fri, Oct 22, 2010 at 1:33 PM, Ashish Jain <26may.1...@gmail.com> wrote:
> Hi Omar
>
> Here is line by line description of the VBA code you provided:
>
>
> Sub OMAR_QUERY()
> 'Error Handling ON: In case of error, it will skip to next line.
> On Error Resume Next
> 'Error handling used specifically for this line of code.
> 'If there are more than 16 worksheets, it will execute else will
> throw an error.
> 'It will display the 'activate' window to activate the worksheet
> required.
> Application.CommandBars("Workbook Tabs").Controls("More
> Sheets...").Execute
> 'In case of less than 16 sheets, error will be thrown and
> execution will enter in IF block.
> If Err.Number > 0 Then
> 'Clear the error cache.
> Err.Clear
> 'It will display a pop-up to activate the worksheet
> required.
> Application.CommandBars("Workbook Tabs").ShowPopup
> 'End of If Block
> End If
> 'Scroll to the first column of activated worksheet.
> ActiveWindow.ScrollColumn = 1
> 'Scroll to the first row of activated worksheet.
> ActiveWindow.ScrollRow = 1
> 'Error Handling OFF
> On Error GoTo 0
> End Sub
>
>
>
> Regards
> Ashish Jain
> McKinsey India Knowledge Center
> (Microsoft Certified Application Specialist)
> (Microsoft Certified Professional)
>
>
>
>
>
> On Oct 21, 10:13 pm, عمــــــــــــر <omar27...@gmail.com> wrote:
> > This code make a popup with sheetsList
> >
> > But I don't understand how it works
> >
> > On Error Resume Next
> >
> > Application.CommandBars("Workbook Tabs").Controls("More
> > Sheets...").Execute
> >
> > If Err.Number > 0 Then
> >
> > Err.Clear
> >
> > Application.CommandBars("Workbook Tabs").ShowPopup
> >
> > End If
> >
> > ActiveWindow.ScrollColumn = 1
> >
> > ActiveWindow.ScrollRow = 1
> >
> > On Error GoTo 0
> >
> > Except this
> >
> > Application.CommandBars("Workbook Tabs").Controls("More
> Sheets...").Execute
> >
> > If Err.Number > 0 Then
> >
> > Err.Clear
> >
> > Application.CommandBars("Workbook Tabs").ShowPopup
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
