Date Stamp

[newbie6182000]

I have been trying to use this modified macro, but there seems to be a problem with a debug error. In addition, how can I use this macro for the whole workbook. Is there a way of copying a template worksheet and rename it with a customer name and also put the entry in cell a1. Any help will be great.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'a modification to the one written previously by Barrie Davidson
If Target.Column = 4 Or 10 Or 16 Or 22 Then
'If Target.Offset(0, -3).Cells = "" Then
Target.Offset(0, -3).Value = Now()
End If
'End If
End Sub

Original that seems to work

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Written by Barrie Davidson
If Target.Column = 4 Then
'If Target.Offset(0, -3).Cells = "" Then
Target.Offset(0, -3).Value = Now()
End If
'End If
End Sub

[Don Guillett]

for one thing your OR syntax must be repeated
target.column=4 or target.column=10 or etc

--
Don Guillett
SalesAid Software
[email protected]
"newbie6182000" <[email protected]>
wrote in message
news:[email protected]...
>
> I have been trying to use this modified macro, but there seems to be a
> problem with a debug error. In addition, how can I use this macro for
> the whole workbook. Is there a way of copying a template worksheet and
> rename it with a customer name and also put the entry in cell a1. Any
> help will be great.
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> 'a modification to the one written previously by Barrie Davidson
> If Target.Column = 4 Or 10 Or 16 Or 22 Then
> 'If Target.Offset(0, -3).Cells = "" Then
> Target.Offset(0, -3).Value = Now()
> End If
> 'End If
> End Sub
>
> Original that seems to work
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> 'Written by Barrie Davidson
> If Target.Column = 4 Then
> 'If Target.Offset(0, -3).Cells = "" Then
> Target.Offset(0, -3).Value = Now()
> End If
> 'End If
> End Sub
>
>
> --
> newbie6182000
> ------------------------------------------------------------------------
> newbie6182000's Profile:
http://www.excelforum.com/member.php...o&userid=25068
> View this thread: http://www.excelforum.com/showthread...hreadid=385874
>

[Bob Phillips]

To make it applicable to the whole workbook, create the event procedure in
the ThisWorkbook code module, with a different first line

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


--
HTH

Bob Phillips

"newbie6182000" <[email protected]>
wrote in message
news:[email protected]...
>
> I have been trying to use this modified macro, but there seems to be a
> problem with a debug error. In addition, how can I use this macro for
> the whole workbook. Is there a way of copying a template worksheet and
> rename it with a customer name and also put the entry in cell a1. Any
> help will be great.
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> 'a modification to the one written previously by Barrie Davidson
> If Target.Column = 4 Or 10 Or 16 Or 22 Then
> 'If Target.Offset(0, -3).Cells = "" Then
> Target.Offset(0, -3).Value = Now()
> End If
> 'End If
> End Sub
>
> Original that seems to work
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> 'Written by Barrie Davidson
> If Target.Column = 4 Then
> 'If Target.Offset(0, -3).Cells = "" Then
> Target.Offset(0, -3).Value = Now()
> End If
> 'End If
> End Sub
>
>
> --
> newbie6182000
> ------------------------------------------------------------------------
> newbie6182000's Profile:
http://www.excelforum.com/member.php...o&userid=25068
> View this thread: http://www.excelforum.com/showthread...hreadid=385874
>