Worksheet Change to change to cell value

[adam2308]

Please see attached example as a guide...

What I want is some 'Worksheet Change' code that copies the values from columns K & L in cell Y2 and Y4.

The code should execute when a value in Columns I or J is changed and then the values in the adjacent cells in columns K and L should be inserted in to cells Y2 and Y4 of Sheet 2.

Many Thanks,
Adam.

[Marcol]

Try this in the worksheet module for Sheet1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim isect As Range
    
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Row < 4 Then Exit Sub

    On Error GoTo ResetApplication
    Application.EnableEvents = False

    Set isect = Intersect(Target, Range("I:J"))
    
    If Not isect Is Nothing Then
        With Sheets("Sheet2")
            .Range("Y2") = Cells(Target.Row, "K")
            .Range("Y4") = Cells(Target.Row, "L")
        End With
    End If

ResetApplication:
    Err.Clear
    On Error GoTo 0
    Application.EnableEvents = True
    Set isect = Nothing
End Sub

Is this what you need?

[adam2308]

Absolutely perfect. Thank You!

Any chance you can help me this one..
http://www.excelforum.com/excel-prog...her-sheet.html

[Marcol]

Happy to have helped.

Mark this thread [SOLVED] then I'll have a look at your other thread.