Macro range
 

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

Macro range
 

try to replace

If Target.Cells.Column = 1 Then

with

If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then


On 8 Kwi, 14:20, 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

Macro range
 

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

Macro range
 

Its working! Thanks!

"Jarek Kujawa" a scris:

try to replace

If Target.Cells.Column = 1 Then

with

If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then


On 8 Kwi, 14:20, 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

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