orPrivate Sub Worksheet_Change(ByVal Target As Range) ' ** Check if Cell J4 is updated If Not Intersect(Target, Range("J4")) Is Nothing Then Sheet10.Range("A11").Value = Target.Value End If End Sub
orPrivate Sub Worksheet_Change(ByVal Target As Range) ' ** Check if Cell J4 is updated If Not Intersect(Target, Range("J4")) Is Nothing Then Sheet10.Range("A11").Value = Target.Value End If End Sub
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote