Adding lines when data changes in a column

[Cindy]

How do I write a macro to insert a line at a change in value of one column?

 

[Ivan F Moala]

On 2002-02-18 22:05, Cindy wrote:
How do I write a macro to insert a line at a change in value of one column?

Cindy
Use the worksheet change event
Enter code in the sheets code page
Ie. Right click sheet tab
select view code
paste this code;

Private Sub Worksheet_Change(ByVal Target As Range)
'Assumes column to test is 1
If Target.Column = 1 Then
'Insert cell
Target.Offset(1, 0).Insert Shift:=xlDown
'Insert Row
'Target.Offset(1, 0).EntireRow.Insert
End If
End Sub

Not sure if you wanted to insert ENTIRE
row or just a cell gave both options.


HTH

Ivan