Posted to microsoft.public.excel.programming

BilBull

external usenet poster

Posts: 2

keep last row added visible on the screen

"Gary Keramidas" wrote:

don't know what your code looks like, but maybe you can adapt this to do what
you want:

Sub test()
Dim ws As Worksheet
Dim lastrow As Long
Set ws = Worksheets("sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row

Application.Goto ws.Range("A" & lastrow - 20), scroll:=True
End Sub

--

Gary

"BilBull" wrote in message
...
I add rows to a sheet by a macro.
I want to keep the last row added visible on the screen , no matter what is
the size of the window is.

Thanks

AR

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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
Problems with Visible and Screen	Dave	Excel Discussion (Misc queries)	0	January 4th 08 02:32 PM
Visible Screen	AussieDave	Excel Programming	8	September 18th 06 02:42 AM
Items Added to Right-Click Menu Only Visible From Some Sheets	Carroll[_2_]	Excel Programming	12	August 18th 05 04:18 PM
Items Added to Right-Click Menu Only Visible From Some Sheets	Carroll[_2_]	Excel Programming	0	August 18th 05 02:02 PM
color not visible on screen	TJTOMCIU	Setting up and Configuration of Excel	1	January 2nd 05 05:59 PM

All times are GMT +1. The time now is 03:44 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us