date last modified

[mieliepap]

I am using code to show in a column when another column was last modified.
here's the code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Column < 5 Then Exit Sub
If Target.Column > 5 Then Exit Sub
Cells(Target.Row, 6) = Now
End Sub

what i want to do is repeat this lot for another column as well, with a different target column like

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Column < 5 Then Exit Sub
If Target.Column > 54 Then Exit Sub
Cells(Target.Row, 3) = Now
End Sub

and

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Column < 7 Then Exit Sub
If Target.Column > 7 Then Exit Sub
Cells(Target.Row, 8) = Now
End Sub

Is there a way of doing both of these on one sheet or joining the two sets of code? so far I can only get one or the other column to work.

 

[VoG]

Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Column = 5 Or Target.Column = 7 Or Target.Column = 9 Then
    Application.EnableEvents = False
    Target.Offset(, 1).Value = Now
    Application.EnableEvents = True
End If
End Sub

 

[thunder_anger]

I was asking if there a way to trace the history of modification of specific workbook

Imagine i have a work book Named Salaries
and it has been modified by another one
Is there a code to generate a backup copy of Salaries workbook and high light the changes in any cell but without any notice of any one

 

[VoG]

I was asking if there a way to trace the history of modification of specific workbook

Imagine i have a work book Named Salaries
and it has been modified by another one
Is there a code to generate a backup copy of Salaries workbook and high light the changes in any cell but without any notice of any one

Take a look here http://www.mrexcel.com/forum/showthread.php?t=381604

 

[mieliepap]

Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Column = 5 Or Target.Column = 7 Or Target.Column = 9 Then
    Application.EnableEvents = False
    Target.Offset(, 1).Value = Now
    Application.EnableEvents = True
End If
End Sub

thanks, works.