Active cell

[colinharwood]

Hi All

Is it possible to make the active cell remain in the centre of the screen, instead of waiting till it reaches the bottom of the screen and then moving the page up.

IE can the page scroll up each time a new row is entered

thanks

Colin

 

[Andrew Poulsom]

Turn Scroll Lock on.

 

[Joe Was]

Whatever your selection by code, mouse or keyboard, this code will make the selected cell scroll to the upper left of the screen. When the code above this snipet selects a cell or activates the current selection. JSW

Application.Goto Selection, scroll:=True

 

[Joe Was]

This Event code will automatically scroll the selection to the upper left of the screen. JSW

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Standard Module Code!
ActiveSheet.Select
Application.Goto Selection, scroll:=True
End Sub

 

[colinharwood]

Hi Joe

Thanks for that, but where exactly do I put the code?

Colin

 

[Joe Was]

The code comment tells you its "Standard Module) code!

So with your question in mind, I gather you have not recorded a macro in Excel or know how to program?

Don't worry, just highlight the posted code, Right click it, select "Copy." Then open Excel, bring up a "New" Workbook. Right click the bottom sheet "Tab" lable. Select "View Code." From the now open VBA (Visual Basic Editor) toolbar select "Insert - Module."

On the blank code page, Right click and select "Paste." You should now have the code added to Excel.

Select the top Right close "X" on the display and you should return to the Excel worksheet. Add some test data and play with it and see if it does what you want?


Hope this helps? JSW

 

[colinharwood]

Hi Joe

Thanks for that, I had been trying to insert it on an existing module without any luck

Colin