View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Dick Kusleika[_4_] Dick Kusleika[_4_] is offline
external usenet poster
 
Posts: 595
Default I think this is ridiculous

Steve

Right click on the sheet tab and choose view code. Paste this code in the
code window

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Column = Me.Columns("G").Column And Target.Value = "N" Then
Target.Offset(1, 0).EntireRow.Insert
Me.Cells(Target.Offset(1, 0).Row, 1).Value = Me.Cells(Target.Row,
1).Value
End If

Application.EnableEvents = True

End Sub

This inserts a row below the row where the N was entered and copies the
value from column A to the next row (assumes col A is a unique identifier
that you want on the next row)


--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

Steve wrote:
I have a worksheet with as many as 100 lrows of info that track
shipments. If i mark an "N" in column G a second row for that
shipping numbers is rquired. My boss wants me to make that automated.
So the row will be automatically inserted. Any help is appreciated.

Thanks,
Steve