Capturing Copy/Paste Changes in Change Worksheet

[sscornav]

I have the following worksheet in Excel 2003

Excel Workbook
	A	B	C	D	E	F	G
1	1Q	2Q	3Q	4Q	Total	Date Changed	User Name
2	14.00	10.00		22.00	46.00
3	15.00	15.00		35.00	65.00
4	75.00	75.00		35.00	185.00
5	45.00	45.00		88.00	178.00
Sheet1

I have a macro (provided by Hiker95) which will populate the date/user whenever the user modifies the yellow fields.


Private Sub Worksheet_Change(ByVal Target As Range)' hiker95, 05/24/2011' http://www.mrexcel.com/forum/showthread.php?t=552211If Intersect(Target, Range("A2:D5")) Is Nothing Then Exit SubIf Target.Count > 1 Then Exit SubWith Application .EnableEvents = False .ScreenUpdating = False Range("F" & Target.Row) = Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM") Range("G" & Target.Row) = Environ("username") .EnableEvents = True .ScreenUpdating = TrueEnd WithEnd Sub</PRE>
However, if the user pastes the values in as opposed to typing them in, we don't capture the update.

Can anyone assist with the additional code? Thanks!

 

[Andrew Poulsom]

Please stick with your original thread:

http://www.mrexcel.com/forum/showthread.php?t=552211

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 05/24/2011' http://www.mrexcel.com/forum/showthread.php?t=552211
Dim c As Range
If Intersect(Target, Range("A2:D5")) Is Nothing Then Exit Sub
With Application
    .EnableEvents = False
    .ScreenUpdating = False
    For Each c In Target
        Range("F" & c.Row) = Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM")
        Range("G" & c.Row) = Environ("username")
    Next c
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub