I need values not formulas from source.
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rmonitor As Range
Dim rTarget As Range
Set rmonitor = Range("B1:o1554")
Set rTarget = ThisWorkbook.Sheets("DATA BASE").Range("x1:ak1554")
If Not Intersect(Target, rmonitor) Is Nothing Then
rmonitor.Copy rTarget
End If
Set rmonitor = Nothing
Set rTarget = Nothing
End Sub
Last edited by a moderator: