Here a tipps that show time of changes in cell

Example spreadsheets and comments on example spreadsheets.
Post Reply
User avatar
conrad666
Posts: 18
Joined: Wed Sep 03, 2014 9:00 pm

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count = 1 Then
Dim myRn As Range
Set myRn = Union(Cells(5, 10), Cells(6, 10), Cells(7, 10), Cells(8, 10), Cells(9, 10), Cells(10, 10), Cells(11, 10), Cells(12, 10))
If Not Intersect(Target, myRn) Is Nothing Then
If Target > 15 And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Now
End If
End If
End Sub

taken from another forum,IN row ####Set myRn = Union.... you change the cells, u want to use

conny
Post Reply

Return to “Bet Angel - Example spreadsheets”