Hej,

Har ett blad när jag skiver i cell 1 så kopiera den från cell 2 och lägger i cell 3.

Skulle nu om jag gör en förändring i cell 1 så kopierar den från cell 2 och lägger i cell 3.

Detta är koden jag har idag som fungerar för första koperingen.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("K3:K4000")) Is Nothing Then

    Cells(Target.Row, 14) = Cells(1, 14)

    End If

End Sub

Mvh Jörgen