Macro range
Its working! Thanks!
"Dave Peterson" a scris:
Add
if target.row < 6 then exit sub
right near the top.
puiuluipui wrote:
Hi, i need this code to run from "A5".
Can this be done?
Thanks!
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
N = Target.Row
If Me.Range("A" & N).Value < "" Then
With Me.Range("B" & N)
If .Value = "" Then
.Value = Now
End If
End With
End If
End If
enditall:
Application.EnableEvents = True
End Sub
--
Dave Peterson
|