Solved worksheet_change values not formulas

December 5, 2015 at 14:18:35
Specs: Windows 7
this is what I have. I need values not formulas from source


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


See More: worksheet_change values not formulas

Report •

#1
December 7, 2015 at 07:19:12
✔ Best Answer
Try this

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rmonitor As Range
Dim rTarget As Range

Set rmonitor = Range("A1:G18")
Set rTarget = ThisWorkbook.Sheets("DATA BASE").Range("x1:ak1554")


If Not Intersect(Target, rmonitor) Is Nothing Then
rmonitor.Copy
rTarget.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

End If

Set rmonitor = Nothing
Set rTarget = Nothing
End Sub

message edited by AlwaysWillingToLearn


Report •
Related Solutions


Ask Question