Autofill today's date Everyday
 

I am not sure if this is even possible, I would like to see today's date in
column A everyday in new cell, maintaining previous cell with yesteray's date
and previous before previous cell with day before yesterday's date and so on.
So every weekday you see today's date in the cell.
e.g

08/20/2007
08/21/2007
08/22/2007 Today
Will show up tomorrow as 8/23/2007
Will show up Friday as 8/24/2007

Will be one blank row for saturday & Sunday
Will show up Monday as 8/27/2007

Thanks
AM

Autofill today's date Everyday
 

Hi AM,

Please paste the below macro in your workbook.

Dim mLastRow As Integer

Dim mdate As Date
mdate = Date
If Weekday(mdate) 1 Then
mLastRow = Range("A65000").End(xlUp).Row + 2
Else
mLastRow = Range("A65000").End(xlUp).Row + 1
Range("A" & mLastRow).Value = mdate
End If

This will automatically check for saturday and sunday and will skip a row
while inseting new date. I have tested this.
Hope this helps!!
--
Pranav Vaidya
VBA Developer
PN, MH-India
If you think my answer is useful, please rate this post as an ANSWER!!


"AM" wrote:

I am not sure if this is even possible, I would like to see today's date in
column A everyday in new cell, maintaining previous cell with yesteray's date
and previous before previous cell with day before yesterday's date and so on.
So every weekday you see today's date in the cell.
e.g

08/20/2007
08/21/2007
08/22/2007 Today
Will show up tomorrow as 8/23/2007
Will show up Friday as 8/24/2007

Will be one blank row for saturday & Sunday
Will show up Monday as 8/27/2007

Thanks
AM

Autofill today's date Everyday
 

Pranav,

I must be doing something wrong, I am not excel expert, I created new macro
and then I ran the macro but nothing happens. The cell is still blank. You
think I am missing something?

Thanks
AM

"Pranav Vaidya" wrote:

Hi AM,

Please paste the below macro in your workbook.

Dim mLastRow As Integer

Dim mdate As Date
mdate = Date
If Weekday(mdate) 1 Then
mLastRow = Range("A65000").End(xlUp).Row + 2
Else
mLastRow = Range("A65000").End(xlUp).Row + 1
Range("A" & mLastRow).Value = mdate
End If

This will automatically check for saturday and sunday and will skip a row
while inseting new date. I have tested this.
Hope this helps!!
--
Pranav Vaidya
VBA Developer
PN, MH-India
If you think my answer is useful, please rate this post as an ANSWER!!


"AM" wrote:

I am not sure if this is even possible, I would like to see today's date in
column A everyday in new cell, maintaining previous cell with yesteray's date
and previous before previous cell with day before yesterday's date and so on.
So every weekday you see today's date in the cell.
e.g

08/20/2007
08/21/2007
08/22/2007 Today
Will show up tomorrow as 8/23/2007
Will show up Friday as 8/24/2007

Will be one blank row for saturday & Sunday
Will show up Monday as 8/27/2007

Thanks
AM