Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
GoToEnd Macro
I need the screen to show the last row of data, with cell A of that row
selected - but this macro isn't doing it. Can someone help? Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
GoToEnd Macro
The screen updating being off is one issue. The scroll does nothing with
this off try something like this Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select r=activecell.row Application.ScreenUpdating = True Cells(r,1).select ActiveWindow.ScrollColumn = 1 End Sub -- If this helps, please remember to click yes. "Phil H" wrote: I need the screen to show the last row of data, with cell A of that row selected - but this macro isn't doing it. Can someone help? Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
GoToEnd Macro
Hi
Try this: Sub GoToEnd() Application.ScreenUpdating = False Cells(ActiveCell.SpecialCells(xlLastCell).Row, 1).Select ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End Sub Regards, Per "Phil H" skrev i meddelelsen ... I need the screen to show the last row of data, with cell A of that row selected - but this macro isn't doing it. Can someone help? Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
GoToEnd Macro
Paul, Getting "variable not defined" error. Thanks, Phil
"Paul C" wrote: The screen updating being off is one issue. The scroll does nothing with this off try something like this Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select r=activecell.row Application.ScreenUpdating = True Cells(r,1).select ActiveWindow.ScrollColumn = 1 End Sub -- If this helps, please remember to click yes. "Phil H" wrote: I need the screen to show the last row of data, with cell A of that row selected - but this macro isn't doing it. Can someone help? Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
GoToEnd Macro
Paul, I inserted Dim r as Interger and it works (form another macro). Thanks
for the help. Phil "Paul C" wrote: The screen updating being off is one issue. The scroll does nothing with this off try something like this Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select r=activecell.row Application.ScreenUpdating = True Cells(r,1).select ActiveWindow.ScrollColumn = 1 End Sub -- If this helps, please remember to click yes. "Phil H" wrote: I need the screen to show the last row of data, with cell A of that row selected - but this macro isn't doing it. Can someone help? Sub GoToEnd() Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
AutoRun Macro with a delay to give user the choice to cancel the macro | Excel Programming | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
Need syntax for RUNning a Word macro with an argument, called from an Excel macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |