Thread: timestamp
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Rech Jim Rech is offline
external usenet poster
 
Posts: 2,718
Default timestamp

As i am importing data

Can you describe exactly what you mean by this?


--
Jim Rech
Excel MVP
"tommyboy " wrote in message
...
|I have this code to enter a timestamp in say a2 when a1 is changed
|
| As i am importing data, the worksheet_change doesnt work, i need to use
| worksheet calculate but am unable to code it,
|
| any help would be aprieciated
|
| 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
|
|
| ---
| Message posted from http://www.ExcelForum.com/
|