Hi!
I have a problem where I would like to enter a value in Sheet1 in range A2:A20.
Each value should be displayed with the Worksheet change event in range C2:C20 in Sheet2
So far I have this which only creates value in C2:C20 in Sheet1, where as I want it in Sheet2. Any idea on how I can do that?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
If Target.Column = 1 Then
If IsNumeric(Target.Value) Then
Target.Offset(0, 3).Value = Target.Value
Else
Target.Offset(0, 1).Clear
End If
End If
ErrHandler:
Application.EnableEvents = True
End Sub
Bookmarks