Help with Worksheet_Change event time stamp

  • Thread starter Thread starter Little Penny
  • Start date Start date
L

Little Penny

How can I add these two lines to this code below

Range("M1") = Now
Range("O1") = Now

When I try to add them the code just hangs

Thanks



Private Sub Worksheet_Calculate()
Dim i As Integer
For i = 4 To 500
Call Worksheet_Change(Cells(i, 9))
Next
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

Dim Line As Range
On Error Resume Next
With Target
If .Row >= 4 And .Row <= 500 And .Column = 9 Then
Set Line = Range(Cells(.Row, 1), Cells(.Row, 13))
Select Case .Value
Case vbNullString
Line.Interior.ColorIndex = xlNone
Case "POQA"
Line.Interior.ColorIndex = 15
Case "IN PROCESS"
Line.Interior.ColorIndex = 22
Case "INSERTING"
Line.Interior.ColorIndex = 40
Case "STMTHAND"
Line.Interior.ColorIndex = 38
Case "OD-M34"
Line.Interior.ColorIndex = 50
Case Else
Line.Interior.ColorIndex = 20
End Select
End If
End With
End Sub
 
add brackets behind the Now = Now() or change the format

Range(M1").value = Format(Now(),"mm-dd-yyyy")
 
The code still hangs

I'm just looking to have the current date and time added when the
worksheet is changed or a formula is updated.
 
The code still hangs

I'm just looking to have the current date and time added when the
worksheet is changed or a formula is updated.
Click to expand...


'You MUST turn off EnableEvents to prevent looping:
on error goto err 'be sure to turn on events if an error occurs!
Application.EnableEvents = False
..... do your stuff

err: Application.EnableEvents = True





--
bz

please pardon my infinite ignorance, the set-of-things-I-do-not-know is an
infinite set.

(e-mail address removed) remove ch100-5 to avoid spam trap
 
Back
Top