Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Check for Non Blank and Blank Cells Before Save | Excel Discussion (Misc queries) | |||
inserting a blank row | Excel Discussion (Misc queries) | |||
Formula for inserting blank row | Excel Worksheet Functions | |||
Inserting a blank row when data changes | Excel Programming | |||
Inserting blank columns | Excel Programming |