Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 34
Default Inserting a Blank Row Upon Save

Hello,
I came across code sometime ago. I'd like to have the auto-insert of a
blank row but I do not want to lose the Undo function. So, how do you
change this signature line Worksheet_Change code to be activated by
Upon_Save (because i do not need the row insertion to be instanteous)?

Instead of Range("Total"), how do you change it so that it would insert
a blank row above For each cell in Column C that contains the words
"Monthly % Change" anywhere within each cell if the blank row 2 rows
above is populated anywhere within that blank row?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(Range("Total").Row - 1,
Range("Total").Column).Address Then
If Target.Value < "" Then
***********Rows(Target.Row + 1).EntireRow.Insert shift:=xlDown
End If
End If
End Sub


Thank-you so much,
Aria :)

*** Sent via Developersdex http://www.developersdex.com ***
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
Check for Non Blank and Blank Cells Before Save igbert Excel Discussion (Misc queries) 2 July 2nd 09 08:36 PM
inserting a blank row mrselkoil Excel Discussion (Misc queries) 1 January 24th 07 09:18 PM
Formula for inserting blank row Connie Martin Excel Worksheet Functions 6 November 18th 05 04:12 PM
Inserting a blank row when data changes achidsey Excel Programming 1 August 30th 05 12:53 AM
Inserting blank columns poppy Excel Programming 2 July 20th 04 07:54 AM


All times are GMT +1. The time now is 12:53 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"