Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / November 2007

Tip: Looking for answers? Try searching our database.

Cursor Placement

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Adrienne - 01 Nov 2007 15:31 GMT
I have a shared workbook which many users on different shifts modify daily.
Two users are complaining that every time they open the workbook, the cursor
defaults to a particular cell, rather then to the last place they worked
before saving and closing. If they do a "Find" before moving the cursor from
that particular cell,
the response is that the information is not found - even though the
information is there on the sheet.
Is there any way to prevent the cursor from reverting to that same cell each
time the workbook opens?
Signature

"A"

Billy Liddel - 02 Nov 2007 03:31 GMT
You have to save the information before saving the workbook right-click on
the Excel Icon by the File menu and select View Code. The code will go there

On the left drop down box Choose Workbook - this will enter a Workbook_Open
declaration. Leave it for now and move the cursor below the End sub line.

Click the right dropdown button and choose a Before save event. When you
have tweeked the code below you can copy it ignoring the sub and End Sub lines

I added a sheet to a workbook and called it StartUp on the sheet tab

I put this table in
User Name    Sheet    Cell
Jim    Sheet2    $B$11
Fred       
Jill       

I used this in an ordinary modue to test the code. You would paste the code
between A Workbook_Open sub. Test 1 is Before Save and Test2 is Open

Sub test1()
'workbook before_save event
v = Application.UserName
sh = ActiveSheet.Name
addr = ActiveCell.Address

Application.ScreenUpdating = False
Sheets("StartUp").Select
Select Case v
 Case "Jim"
   Cells(2, 2) = sh
   Cells(2, 3) = addr
   Sheets(sh).Select
   Range(addr).Select
 Case "Fred"
 'more code
End Select
Application.ScreenUpdating = True
End Sub

Sub test2()
'workbook_open event
v = Application.UserName
Application.ScreenUpdating = False
Sheets("Startup").Select
Select Case v
 Case "Jim"
   sh = Cells(2, 2)
   addr = Cells(2, 3)
   Sheets(sh).Select
   Range(addr).Select
 Case "Fred"
 'more code
End Select
Application.ScreenUpdating = True
End Sub

Hope this helps
Peter

> I have a shared workbook which many users on different shifts modify daily.
> Two users are complaining that every time they open the workbook, the cursor
[quoted text clipped - 5 lines]
> Is there any way to prevent the cursor from reverting to that same cell each
> time the workbook opens?
Adrienne - 03 Nov 2007 15:15 GMT
I will try that.
Thank you, Billy.
Signature

"A"

> You have to save the information before saving the workbook right-click on
> the Excel Icon by the File menu and select View Code. The code will go there
[quoted text clipped - 65 lines]
> > Is there any way to prevent the cursor from reverting to that same cell each
> > time the workbook opens?
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.