Hello. I have a sheet with Dates going down column A. What I am trying to do is have todays date populate the next empty cell going down column A once the workbook is open. If todays date is present then do nothing.
I really dont know what I am doing. But I am trying. Thanks in advance.
Please Login or Register to view this content.
Re: Insert/append todays date when workbook is open
Hi evenings,
As per my understanding about your query, you wish to add today's date in the lastrow of column A which is empty, right?
If I guessed it right then you can try this code
Please Login or Register to view this content.
Cheerz,
~Ne@l
*********************************************************************
Save a tree. Please think before you print this post and/or attachments.
Hi,
Assuming the dates are in chronological order then in the Workbook Open Event simply add
HTHPlease Login or Register to view this content.
Richard Buttrey
RIP - d. 06/10/2022
If any of the responses have helped then please consider rating them by clicking the small star iconbelow the post.
@nchavan: Using Now will add not only the current date, but also current time. Also if column A is empty it will leave Cell A1 blank.
@ Richard: In this case it will overwright the last cell in column A.
So I would suggest to add In ThisWorkbook module:
BuranPlease Login or Register to view this content.
Last edited by buran; 03-29-2010 at 09:44 AM.
If you are pleased with a member's answer then use the Star icon to rate it.
Thanks alot with the quick help guys. Subs are working great. thanks again
@ Richard: In this case it will overwright the last cell in column A.
Quite correct, well spotted. I should have added a .Offset. i.e.
RgdsPlease Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks