Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
VBA language question.
I know very little about VBA coding. I found an event macro in another
thread on this board to enter a date/time stamp in a cell when a chanage was made in a range of cells. The code was written for a range that was a single column and used .offset(0,1) to determine where the date was entered (see the macro below). I am trying to modify this macro for a three demensional range (a1:h12) and want the date to be stored in the same row as the active cell but in column I. I am sure this is a simple change but it is beyond my knowlege - any help? The following is the macro I am trying to modify: Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A2:A10"), .Cells) Is Nothing Then Application.EnableEvents = False If IsEmpty(.Value) Then .Offset(0, 1).ClearContents Else With .Offset(0, 1) .NumberFormat = "dd mmm yyyy hh:mm:ss" .Value = Now End With End If Application.EnableEvents = True End If End With End Sub Rob |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
VBA language question.
check your post in microsoft.public.excel.programming for a fix
Sandy Rob wrote: I know very little about VBA coding. I found an event macro in another thread on this board to enter a date/time stamp in a cell when a chanage was made in a range of cells. The code was written for a range that was a single column and used .offset(0,1) to determine where the date was entered (see the macro below). I am trying to modify this macro for a three demensional range (a1:h12) and want the date to be stored in the same row as the active cell but in column I. I am sure this is a simple change but it is beyond my knowlege - any help? The following is the macro I am trying to modify: Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A2:A10"), .Cells) Is Nothing Then Application.EnableEvents = False If IsEmpty(.Value) Then .Offset(0, 1).ClearContents Else With .Offset(0, 1) .NumberFormat = "dd mmm yyyy hh:mm:ss" .Value = Now End With End If Application.EnableEvents = True End If End With End Sub Rob |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
=bahttext(A1) please tell me about language in english how can i | Excel Worksheet Functions | |||
Set language option in Excel | Excel Discussion (Misc queries) | |||
language support in excel sheet using a third party language tool | Excel Worksheet Functions | |||
Question about combining data from multiple workbooks into one rep | Excel Discussion (Misc queries) | |||
An easy macro question and one I believe to be a little more diffi | Excel Worksheet Functions |