[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("G81:G134")) Is Nothing Then
If Target.Value > 0.99 Then
Target.Offset(0, 1).Value = Date
End If
End If
End Sub
[/VBA]
[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("G81:G134")) Is Nothing Then
If Target.Value > 0.99 Then
Target.Offset(0, 1).Value = Date
End If
End If
End Sub
[/VBA]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote