Inefficient?
Is there a better way to write this??
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 1 And Target.Row < 1 And Target.Row < 2 And Target.Row < 3 And Target.Row < 4 Then Cells(Target.Row, 1).Value = Now End If End Sub |
Inefficient?
This?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 1 And Target.Row 4 Then Cells(Target.Row, 1).Value = Now End If End Sub "Steph" wrote: Is there a better way to write this?? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 1 And Target.Row < 1 And Target.Row < 2 And Target.Row < 3 And Target.Row < 4 Then Cells(Target.Row, 1).Value = Now End If End Sub |
Inefficient?
Thanks!
"Toppers" wrote in message ... This? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 1 And Target.Row 4 Then Cells(Target.Row, 1).Value = Now End If End Sub "Steph" wrote: Is there a better way to write this?? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 1 And Target.Row < 1 And Target.Row < 2 And Target.Row < 3 And Target.Row < 4 Then Cells(Target.Row, 1).Value = Now End If End Sub |
Inefficient?
Don't forget events
Private Sub Worksheet_nChange(ByVal Target As Range) On Error GoTo ws_exit: Application.EnableEvents = False With Target If .Column < 1 And .Row 4 Then Cells(.Row, 1).Value = Now End If End With ws_exit: Application.EnableEvents = True End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Steph" wrote in message ... Thanks! "Toppers" wrote in message ... This? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 1 And Target.Row 4 Then Cells(Target.Row, 1).Value = Now End If End Sub "Steph" wrote: Is there a better way to write this?? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 1 And Target.Row < 1 And Target.Row < 2 And Target.Row < 3 And Target.Row < 4 Then Cells(Target.Row, 1).Value = Now End If End Sub |
All times are GMT +1. The time now is 12:20 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com