Copy/Paste Values Using VBA Code

Hello,

I am trying to write a Macro where it will use date and time (protected fields), and copy and paste values for only fields that have a formula. I am almost there, but I keep getting a debug run time error 1004.

Please Login or Register  to view this content.

Thank you,

Daniel

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a2:A1048575")) Is Nothing Then

If Target.Offset(0, 1).Locked = False Then
ActiveSheet.Unprotect "isitontime"
Target.Offset(0, 1).Value = Now
Target.Offset(0, 1).Locked = True
Target.Offset(0, 0).Locked = True
Target.Offset(0, 2).Locked = True

Range("C1:C100").copy Range("D1:D100")

ActiveSheet.Protect "isitontime"
End If
End If



End Sub

Thank you for the quick response.

This copies the formula from C and pastes it in D. In other words, it is now taking the left 5 digits of the date. I would like it to paste the values that are in column C, but only if there are values.

Thank you,

Daniel

Here is the answer if anyone else reads this post.

Please Login or Register  to view this content.