Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 14
Default show date only if information entered in cell

I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 11,501
Default show date only if information entered in cell

Hi,

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Target.Column = 3 Then
If Target.Value < "" Then
Target.Offset(, -2).Value = Date
Else
Target.Offset(, -2).Value = ""
End If
End If
End Sub

Mike

"digitalmuse" wrote:

I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4

  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 8,856
Default show date only if information entered in cell

Put this in A4:

=IF(C4="","",TODAY())

Format the cell as date.

Hope this helps.

Pete

On Oct 17, 2:26*pm, digitalmuse
wrote:
I want to have the current date show up in the first row say A whenever
someone enters information in a row - *in other words if there is data in
cell C4 then the current date should show up in row A4


  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 1,766
Default show date only if information entered in cell

Hi,

you could try the following formula in cell A4:

=if(C4<"",today(),"")

--
Regards,

Ashsih Mathur
Microsoft Excel MVP
www.ashishmathur.com

"digitalmuse" wrote in message
...
I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4


  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 14
Default show date only if information entered in cell

Thank you so much works like a charm

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Target.Column = 3 Then
If Target.Value < "" Then
Target.Offset(, -2).Value = Date
Else
Target.Offset(, -2).Value = ""
End If
End If
End Sub

Mike

"digitalmuse" wrote:

I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4



  #6   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 14
Default show date only if information entered in cell

thanks for the responses and i guess i should have been clearer, the formula
cant depend on input to cell c4 only it needs to apply to any entry made in
column C



"Ashish Mathur" wrote:

Hi,

you could try the following formula in cell A4:

=if(C4<"",today(),"")

--
Regards,

Ashsih Mathur
Microsoft Excel MVP
www.ashishmathur.com

"digitalmuse" wrote in message
...
I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4


  #7   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 14
Default show date only if information entered in cell

which i believe is why the formula now is not working it worked up until row 3
now anything entered in column c after row 3 does not result in a date entry
in colum a

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Target.Column = 3 Then
If Target.Value < "" Then
Target.Offset(, -2).Value = Date
Else
Target.Offset(, -2).Value = ""
End If
End If
End Sub

Mike

"digitalmuse" wrote:

I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4

  #8   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 8,856
Default show date only if information entered in cell

Try it this way, then:

=IF(COUNTA(C:C)0,TODAY(),"")

Hope this helps.

Pete

On Oct 17, 3:39*pm, digitalmuse
wrote:
thanks for the responses and i guess i should have been clearer, *the formula
cant depend on input to cell c4 only it needs to apply to any entry made in
column C

  #9   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 11,501
Default show date only if information entered in cell

Hi,

It's written to only work on column C (3)

If Target.Column = 3 Then

If you want to work on a different column change the 3 and the offset to 1
less than the column number. IF you want it to work on a number of columns
then that's a slight re-write

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Intersect(Target, Range("A:F")) Is Nothing Then
Application.EnableEvents = False
If Target.Value < "" Then
Cells(Target.Row, 1).Value = Date
Else
Cells(Target.Row, 1).Value = ""
End If
Application.EnableEvents = True
End If
End Sub

Mike

"digitalmuse" wrote:

which i believe is why the formula now is not working it worked up until row 3
now anything entered in column c after row 3 does not result in a date entry
in colum a

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Target.Column = 3 Then
If Target.Value < "" Then
Target.Offset(, -2).Value = Date
Else
Target.Offset(, -2).Value = ""
End If
End If
End Sub

Mike

"digitalmuse" wrote:

I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4

  #10   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 14
Default show date only if information entered in cell

It does work in a cell - im trying now to get it to work in all the cells in
that column(range)

thanks for the assist !

"Pete_UK" wrote:

Try it this way, then:

=IF(COUNTA(C:C)0,TODAY(),"")

Hope this helps.

Pete

On Oct 17, 3:39 pm, digitalmuse
wrote:
thanks for the responses and i guess i should have been clearer, the formula
cant depend on input to cell c4 only it needs to apply to any entry made in
column C




  #11   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 2,344
Default show date only if information entered in cell

Hi,

Try something like this:

=IF(COUNTA(B1:IV1)0,TODAY(),"")


--
Thanks,
Shane Devenshire


"digitalmuse" wrote:

I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4

  #12   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 14
Default show date only if information entered in cell

that works perfect in one cell what would i add or modify to have it apply to
an entire colum(or named range) i.e. range is named entryDate and covers
column A


"Pete_UK" wrote:

Put this in A4:

=IF(C4="","",TODAY())

Format the cell as date.

Hope this helps.

Pete

On Oct 17, 2:26 pm, digitalmuse
wrote:
I want to have the current date show up in the first row say A whenever
someone enters information in a row - in other words if there is data in
cell C4 then the current date should show up in row A4



  #13   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 22,906
Default show date only if information entered in cell

Do you realize that the TODAY() function is volatile and will change when
you open the workbook tomorrow?

I would go with Mike's event code to add a static date in column A whenever
a cell in Column C is changed.


Gord Dibben MS Excel MVP

On Fri, 17 Oct 2008 08:53:01 -0700, digitalmuse
wrote:

It does work in a cell - im trying now to get it to work in all the cells in
that column(range)

thanks for the assist !

"Pete_UK" wrote:

Try it this way, then:

=IF(COUNTA(C:C)0,TODAY(),"")

Hope this helps.

Pete

On Oct 17, 3:39 pm, digitalmuse
wrote:
thanks for the responses and i guess i should have been clearer, the formula
cant depend on input to cell c4 only it needs to apply to any entry made in
column C



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
To show month end date from any date entered tigermoth Excel Discussion (Misc queries) 7 December 2nd 08 12:28 PM
Can Excel warn me if a cell already contains entered information? Can Excel warn me if a cell already cont Excel Worksheet Functions 2 May 20th 08 01:21 AM
Freeze Cell Once Information is Entered SuzieT Excel Discussion (Misc queries) 4 November 8th 07 05:36 PM
Date subtraction -How to not show negative when 2nd date not entered Edward[_2_] New Users to Excel 2 September 27th 07 03:03 PM
How do I get a cell to show the day of the week when date entered Captain Excel Discussion (Misc queries) 9 December 27th 05 06:45 AM


All times are GMT +1. The time now is 12:52 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"