Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 7
Default Cursor Placement

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?
--
"A"
  #2   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 527
Default Cursor Placement

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


"Adrienne" wrote:

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?
--
"A"

  #3   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 7
Default Cursor Placement

I will try that.
Thank you, Billy.
--
"A"


"Billy Liddel" wrote:

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


"Adrienne" wrote:

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?
--
"A"

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
move cursor on one sheet moves cursor on all sheets tdworden Excel Discussion (Misc queries) 2 July 22nd 07 10:50 PM
Name Placement lsmft Excel Discussion (Misc queries) 7 March 2nd 06 01:16 AM
Controlling Cell/Cursor Placement MarkT Excel Discussion (Misc queries) 3 August 17th 05 02:54 PM
Cursor placement Randy New Users to Excel 1 July 11th 05 02:01 PM
Can I change the "white cross" cursor in Excel to another cursor? KFEagle Excel Discussion (Misc queries) 1 May 3rd 05 08:01 PM


All times are GMT +1. The time now is 04:18 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"