Hey everyone,
I wanted to have an entry of date everytime i make a new entry in
A1:A100
the dates should dissapear when i delete the content.
I thought this should work:
Sub auto_date()
'Quelle: tob
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Preventing of editing multiple
cells
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub
************
but it doesn't :(
I am using excel 2007
any clues?
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
