Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() I am using the following code to add formulas to the next row when data is entered in column A. The formulas are in columns B, C, D, and E. Row 8 is a header row. Data entry starts in cell A9. It works except for data entered in A9. When data is entered in A9 the header row is copied to B9:E9. How can I get this code to ignore data entry into cell A9? Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim c As Range, i As Long On Error Resume Next Set c = Intersect(Target, Columns(1)) If c Is Nothing Then Exit Sub If IsEmpty(c.Offset(-1, 0)) Or Not IsEmpty(c.Offset(1, 0)) Then Exit Sub i = c.Row Application.EnableEvents = False Range("B" & i - 1 & ":E" & i - 1).Copy Range("B" & i & ":E" & i) Application.EnableEvents = True On Error GoTo 0 End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Worksheet_Change | Excel Programming | |||
Worksheet_Change DDE | Excel Programming | |||
worksheet_change vs. calculate, and worksheet_change not running | Excel Programming | |||
worksheet_change vs. calculate, and worksheet_change not running | Excel Programming |