I would like to have the contents of E19 copied to E20, with E20
completely editable, however if any changes are made to E19, the
contents are again copied over to E20.
I tried with the following code, but doesn't work.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E19")) Is Nothing Then
Range("E20") = Range("E19")
End If
End Sub

Any suggestion please?
Thanks and Regards
Paul

Hi Paul,

Am Thu, 28 Mar 2013 13:06:52 +0100 schrieb Paul:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E19")) Is Nothing Then
Range("E20") = Range("E19")
End If
End Sub

for me the procedure works. You can also try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$19" Then [E20] = Target
End Sub

This code must be placed in code module of the sheet.
Right click on sheet tab = Show code.


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Il 28/03/2013 13:16, Claus Busch ha scritto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E19")) Is Nothing Then
Range("E20") = Range("E19")
End If
End Sub
Hallo Claus,
I tried your solution and it works.
I don't know why the first is Ok for you and not works for me. Strange.

Regards and many thanks
Paul