LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2
Default "Insert row" event?

In article ,
Tom Hutchins wrote:
The best idea I have had so far is to set a MARKER (a named range) just after
the last row of data when the workbook is opened. Store its row nujmber in a
global variable. Then, in the Change event for the worksheet in question
(Sheet1, for example), compare the current row of the MARKER cell to its
previous row. This lets you know if any (and how many) rows were added or
deleted.


Wow... very clever!

One minor problem: Selection has to be on the current sheet, so if the
sheet of interest is not the first one, the sequence that sets the
MARKER to the last cell on the sheet:-

Range(FindLastCell(Sheets("NotSheet1"))).Offset(1, 0).Select
ActiveWorkbook.Names.Add Name:="MARKER", RefersToR1C1:=Selection


....sets MARKER to a position on Sheet1, setting you up for a crash when you
try to insert a row on NotSheet1.

This can be corrected by avoiding Selection:

ActiveWorkbook.Names.Add Name:="MARKER", _
RefersToR1C1:=Range(FindLastCell(Sheets("RefData") )).offset(1, 0)

Nonetheless, I am very impressed by your insight into the problem. Thanks!

Tony

 
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
How do I "insert copied cells"? used to be "alt i e" still work Inserter Excel Worksheet Functions 1 February 14th 09 10:06 PM
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell Steve Kay Excel Discussion (Misc queries) 2 August 8th 08 01:54 AM
Lost "File Menu" - now it's "Edit / View / Insert.." but no "F daves Excel Discussion (Misc queries) 3 April 24th 07 04:52 AM
Insert "-" in text "1234567890" to have a output like this"123-456-7890" Alwyn Excel Discussion (Misc queries) 3 October 25th 05 11:36 PM
Adding "New" "Insert" "Delete" into a workbook to change from data 1 to data 2 etc Bob Reynolds[_2_] Excel Programming 0 March 4th 04 08:52 PM


All times are GMT +1. The time now is 05:46 PM.

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

About Us

"It's about Microsoft Excel"