Date Stamp Data entry

[Truiz]

Good Morning,

I know this is an old topic that has been discussed many time but for some reason I haven't been able to find what I'm looking for which is simple I want excell to put the name of the month in Col. A and the date on Col. B (in the following format (20-Aug-2014) When I input data in Col G the use of the formula If combined with Now is not an option since it will change on a dalily basis and this is for a tracker so I need the dates to stay "Fixed" just to reflect when the data was input

 

[mrmmickle1]

Truiz,

I will be glad to help out. Can you please give me a little more information?
Do you have an example of how your data is set up?
What do you mean by a weird date?
Where did you put the formula I provided on your sheet?

Not sure I understand your issue. Here are a few things to check for:

Have the iterations been set as mentioned in the previous post?
Is the column with the formula in it formatted as a time or date value?

The formula I provided is meant to see when X cell is updated and then timestamp the cell with the formula in it:

=IF([COLOR=#0000ff][B]X cell Goes Here[/B][/COLOR]<>"",IF([B][COLOR=#ff0000]Cell You Want Timestamped Here[/COLOR][/B]="",NOW(),[B][COLOR=#FF0000]Cell You Want Timestamped Here[/COLOR][/B]),"")

The formula goes in the same cell that you have referenced in the formula (Cell You Want Timestamped Here)

Check this link for a description of the process: Chandoo Timestamp Link

Not sure, but this method may not be applicable for your purposes.

 

[DeezNuts]

Rick click sheet tab>View Code> paste and exit back to worksheet. May need to restart the workbook. Then use date formats for the date format you want in Column B

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:IV")) Is Nothing Then
    Cells(Target.Row, 1) = MonthName(Month(Date))
    Cells(Target.Row, 2) = Date
End If
End Sub

 

[Truiz]

Its not working... I input data and nothing happens

Rick click sheet tab>View Code> paste and exit back to worksheet. May need to restart the workbook. Then use date formats for the date format you want in Column B

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:IV")) Is Nothing Then
    Cells(Target.Row, 1) = MonthName(Month(Date))
    Cells(Target.Row, 2) = Date
End If
End Sub

 

[DeezNuts]

If you want to see it here is a link. I added a time stamp to the date stamp in this one.

Download Link

Works if anything is done between cells C and IV

 

[Truiz]

It might be an error on my excel or computer or something but its not working

If you want to see it here is a link. I added a time stamp to the date stamp in this one.

Download Link

Works if anything is done between cells C and IV

 

[DeezNuts]

Are you using excel 2003 or older?

 

[Truiz]

Office pro plus 2010

 

[DeezNuts]

Not sure how come its working for me and not you. Hopefully someone can lend a hand and help you out. Sorry I wasted your time.

 

[Truiz]

Its cool bro

Not sure how come its working for me and not you. Hopefully someone can lend a hand and help you out. Sorry I wasted your time.

 

[TrumpExcel]

Here is a way to enter date/time stamp using formula only. This does not use circular reference

http://trumpexcel.com/2014/08/date-time-stamp-in-excel-formula/