Date Stamp
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 |
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" wrote in message news:newbie6182000.1rxaeb_1120946702.3211@excelfor um-nospam.com... 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 |
All times are GMT +1. The time now is 02:37 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com