PC Review
Home Forums Reviews Articles Register
Member Login:

PC Review > Forums > Newsgroups > Microsoft Excel > Microsoft Excel Programming > Worksheet Jump

Reply
Thread Tools Rate Thread

Worksheet Jump

 
 
TGalin
Guest
Posts: n/a
 
      10th Mar 2009
If I am on Sheet 50 and I want to get to Sheet 1. I could use the code below
and it would work. I am wondering is there a shorter code that would do the
same thing?

Sub WorksheetJump()
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
End Sub
 
Reply With Quote
 
 
 
 
JLGWhiz
Guest
Posts: n/a
 
      10th Mar 2009

Worksheets("Sheet1").Select


"TGalin" <(E-Mail Removed)> wrote in message
news:97E84AAC-9C8A-469A-8D07-(E-Mail Removed)...
> If I am on Sheet 50 and I want to get to Sheet 1. I could use the code
> below
> and it would work. I am wondering is there a shorter code that would do
> the
> same thing?
>
> Sub WorksheetJump()
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> ActiveSheet.Previous.Select
> End Sub
>
 
Reply With Quote
 
 
 
 
ryguy7272
Guest
Posts: n/a
 
      10th Mar 2009
This is another way to do it:
Worksheets(1).Activate

Regards,
Ryan---

--
RyGuy


"JLGWhiz" wrote:

>
> Worksheets("Sheet1").Select
>
>
> "TGalin" <(E-Mail Removed)> wrote in message
> news:97E84AAC-9C8A-469A-8D07-(E-Mail Removed)...
> > If I am on Sheet 50 and I want to get to Sheet 1. I could use the code
> > below
> > and it would work. I am wondering is there a shorter code that would do
> > the
> > same thing?
> >
> > Sub WorksheetJump()
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > End Sub
> >
>
>
>
 
Reply With Quote
 
TGalin
Guest
Posts: n/a
 
      11th Mar 2009
That is cool also. Thank you!

"ryguy7272" wrote:

> This is another way to do it:
> Worksheets(1).Activate
>
> Regards,
> Ryan---
>
> --
> RyGuy
>
>
> "JLGWhiz" wrote:
>
> >
> > Worksheets("Sheet1").Select
> >
> >
> > "TGalin" <(E-Mail Removed)> wrote in message
> > news:97E84AAC-9C8A-469A-8D07-(E-Mail Removed)...
> > > If I am on Sheet 50 and I want to get to Sheet 1. I could use the code
> > > below
> > > and it would work. I am wondering is there a shorter code that would do
> > > the
> > > same thing?
> > >
> > > Sub WorksheetJump()
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > ActiveSheet.Previous.Select
> > > End Sub
> > >
> >
> >
> >
 
Reply With Quote
 
TGalin
Guest
Posts: n/a
 
      11th Mar 2009
O yeah. That makes sense. Thank you.

"JLGWhiz" wrote:

>
> Worksheets("Sheet1").Select
>
>
> "TGalin" <(E-Mail Removed)> wrote in message
> news:97E84AAC-9C8A-469A-8D07-(E-Mail Removed)...
> > If I am on Sheet 50 and I want to get to Sheet 1. I could use the code
> > below
> > and it would work. I am wondering is there a shorter code that would do
> > the
> > same thing?
> >
> > Sub WorksheetJump()
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > ActiveSheet.Previous.Select
> > End Sub
> >
>
>
>
 
Reply With Quote
 
 
 
Reply

« Trying to disable a custom commandbar button | VBA code in one Module referencing Public Variables Declared inanother Module failing »
Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
need to jump down 4 cells, gather data, jump another 4 digitalsaint@gmail.com Microsoft Excel Programming 2 6th Oct 2006 01:49 PM
Jump to cell in other worksheet Roel van der Heide Microsoft Excel Programming 3 9th Aug 2004 12:59 AM
Button to Jump from Chart to Worksheet Ken Microsoft Excel Worksheet Functions 4 28th May 2004 05:16 PM
Jump to specific worksheet in workbook Allison Microsoft Excel Programming 3 15th Mar 2004 07:43 AM
can i link a cell to jump to a worksheet? mike Microsoft Excel Programming 2 20th Feb 2004 10:20 PM


Features
Forums Startup Database Reviews Articles FAQ / Guidelines About Us
 

Advertising
 

Newsgroups
Windows Vista Windows XP Microsoft Word Microsoft DotNet Windows 2000 AntiSpyware Microsoft Access Microsoft Excel Microsoft Outlook Hardware
 


All times are GMT +1. The time now is 08:23 PM.
Powered by vBulletin®. Copyright ©2000 - 2013, vBulletin Solutions, Inc.
SEO by vBSEO ©2010, Crawlability, Inc.
Contact Us - Archive - Privacy Statement - Top