Posted to microsoft.public.excel.programming
|
|
Code with formula interfering in worksheet change event
Which other code?
And what do you mean by "restrict"?
"Arnold" wrote in message
oups.com...
Hello,
When this code is in the worksheet change event, it restricts the
function of other code in worksheet change. Why? Is it about the
placement of the Exit Sub? All this code does is carries formulas in
columns 3 and 10 down to new rows when inserted manually.
If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub
On Error Goto CleanUp:
With Target
If .Value < "" Then
Application.EnableEvents = False
.Offset(0, 3).FormulaR1C1 = "=RC[-1]=R2C3"
.Offset(0, 10).FormulaR1C1 = "=RC[-1]=R2C10"
.Offset(0, 2).FormulaR1C1 = "=if(rc[-2]<"""",rc[-1],"""")"
.Offset(0, 9).FormulaR1C1 =
"=if(rc[-8]<0,if(rc[-7]<rc[-8],rc[-9]&"",
""&left(rc[-7],2),rc[-9]&"", ""&left(rc[-8],1)),"""")"
End If
End With
CleanUp:
Application.EnableEvents = True
Also, could you help me with syntax for another vb formula that
essentially is this:
=OFFSET(Column10sHeading,0,246)
which just sets the last column equal to column 10.
Thanks greatly,
Eric
|