#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 25
Default Date

I am trying to figure out how I can type a T in a cell and todays date will
pop up??? help please :)
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 857
Default Date

Tools-AutoCorrect.

Replace: T
With: =TODAY()

You can also use the Excel shortcut for today's date which is CTRL+;



"hannatrip" wrote:

I am trying to figure out how I can type a T in a cell and todays date will
pop up??? help please :)

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10,124
Default Date


Where do you want it to POP up. If the same cell you would need a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
I am trying to figure out how I can type a T in a cell and todays date will
pop up??? help please :)



  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 25
Default Date

yes, i want it in the same cell, can you tell me how to do the
worksheet_change event macro? Im new at this :)
Thanks

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
I am trying to figure out how I can type a T in a cell and todays date will
pop up??? help please :)




  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 25
Default Date

yes I want it in the same cell, can you help me with the worksheet_change
event macro?
thanks so much

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
I am trying to figure out how I can type a T in a cell and todays date will
pop up??? help please :)






  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10,124
Default Date

Right click sheet tabview codeinsert this.
now when you put t or T in cell B1 the date will appear.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And _
UCase(Target) = "T" Then Target = date
End Sub

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
yes, i want it in the same cell, can you tell me how to do the
worksheet_change event macro? Im new at this :)
Thanks

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
I am trying to figure out how I can type a T in a cell and todays date
will
pop up??? help please :)






  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 25
Default Date

awesome it worked!! now if i want to make all the cells to read that way from
v1 till v30 do i have to go in and change it all by hand for those cells or
is there another way, i tried to copy and past but it wont work

"Don Guillett" wrote:

Right click sheet tabview codeinsert this.
now when you put t or T in cell B1 the date will appear.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And _
UCase(Target) = "T" Then Target = date
End Sub

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
yes, i want it in the same cell, can you tell me how to do the
worksheet_change event macro? Im new at this :)
Thanks

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
I am trying to figure out how I can type a T in a cell and todays date
will
pop up??? help please :)






  #10   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10,124
Default Date

Glad to help

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
Yes it was my mistake!! (sorry) thank you so much for your help :)

"Don Guillett" wrote:

I thought as much but you did NOT say so.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("v2:v30")) Is Nothing And _
UCase(Target) = "T" Then Target = Date
End Sub
--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
awesome it worked!! now if i want to make all the cells to read that
way
from
v1 till v30 do i have to go in and change it all by hand for those
cells
or
is there another way, i tried to copy and past but it wont work

"Don Guillett" wrote:

Right click sheet tabview codeinsert this.
now when you put t or T in cell B1 the date will appear.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And _
UCase(Target) = "T" Then Target = date
End Sub

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
yes, i want it in the same cell, can you tell me how to do the
worksheet_change event macro? Im new at this :)
Thanks

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
I am trying to figure out how I can type a T in a cell and todays
date
will
pop up??? help please :)













  #11   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 25
Default Date

help again!! when i go to do something else in my spreadsheet now a box comes
up and says Run-time error'13': and type mismatch under it, than says to end,
debug or help??

"Don Guillett" wrote:

Glad to help

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
Yes it was my mistake!! (sorry) thank you so much for your help :)

"Don Guillett" wrote:

I thought as much but you did NOT say so.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("v2:v30")) Is Nothing And _
UCase(Target) = "T" Then Target = Date
End Sub
--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
awesome it worked!! now if i want to make all the cells to read that
way
from
v1 till v30 do i have to go in and change it all by hand for those
cells
or
is there another way, i tried to copy and past but it wont work

"Don Guillett" wrote:

Right click sheet tabview codeinsert this.
now when you put t or T in cell B1 the date will appear.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And _
UCase(Target) = "T" Then Target = date
End Sub

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
yes, i want it in the same cell, can you tell me how to do the
worksheet_change event macro? Im new at this :)
Thanks

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
I am trying to figure out how I can type a T in a cell and todays
date
will
pop up??? help please :)












  #12   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10,124
Default Date

What you did was try to change more than ONE cell in the target range at the
same time.

Private Sub Worksheet_Change(ByVal Target As Range)
'add this line at the top
If Target.Cells.Count 1 Then Exit Sub

If Not Intersect(Target, Range("b2:b5")) Is Nothing And _
UCase(Target) = "T" Then Target = Date
End Sub


--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
help again!! when i go to do something else in my spreadsheet now a box
comes
up and says Run-time error'13': and type mismatch under it, than says to
end,
debug or help??

"Don Guillett" wrote:

Glad to help

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
Yes it was my mistake!! (sorry) thank you so much for your help :)

"Don Guillett" wrote:

I thought as much but you did NOT say so.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("v2:v30")) Is Nothing And _
UCase(Target) = "T" Then Target = Date
End Sub
--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
awesome it worked!! now if i want to make all the cells to read that
way
from
v1 till v30 do i have to go in and change it all by hand for those
cells
or
is there another way, i tried to copy and past but it wont work

"Don Guillett" wrote:

Right click sheet tabview codeinsert this.
now when you put t or T in cell B1 the date will appear.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And _
UCase(Target) = "T" Then Target = date
End Sub

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
yes, i want it in the same cell, can you tell me how to do the
worksheet_change event macro? Im new at this :)
Thanks

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need
a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in
message
...
I am trying to figure out how I can type a T in a cell and
todays
date
will
pop up??? help please :)














  #13   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 25
Default Date

okie dokie, got it this time, thanks again :)

"Don Guillett" wrote:

What you did was try to change more than ONE cell in the target range at the
same time.

Private Sub Worksheet_Change(ByVal Target As Range)
'add this line at the top
If Target.Cells.Count 1 Then Exit Sub

If Not Intersect(Target, Range("b2:b5")) Is Nothing And _
UCase(Target) = "T" Then Target = Date
End Sub


--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
help again!! when i go to do something else in my spreadsheet now a box
comes
up and says Run-time error'13': and type mismatch under it, than says to
end,
debug or help??

"Don Guillett" wrote:

Glad to help

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
Yes it was my mistake!! (sorry) thank you so much for your help :)

"Don Guillett" wrote:

I thought as much but you did NOT say so.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("v2:v30")) Is Nothing And _
UCase(Target) = "T" Then Target = Date
End Sub
--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
awesome it worked!! now if i want to make all the cells to read that
way
from
v1 till v30 do i have to go in and change it all by hand for those
cells
or
is there another way, i tried to copy and past but it wont work

"Don Guillett" wrote:

Right click sheet tabview codeinsert this.
now when you put t or T in cell B1 the date will appear.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And _
UCase(Target) = "T" Then Target = date
End Sub

--
Don Guillett
SalesAid Software

"hannatrip" wrote in message
...
yes, i want it in the same cell, can you tell me how to do the
worksheet_change event macro? Im new at this :)
Thanks

"Don Guillett" wrote:


Where do you want it to POP up. If the same cell you would need
a
worksheet_change event macro.

--
Don Guillett
SalesAid Software

"hannatrip" wrote in
message
...
I am trying to figure out how I can type a T in a cell and
todays
date
will
pop up??? help please :)















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
date in Cell to change colors if the date is beyond today's date Pete Elbert Excel Discussion (Misc queries) 2 June 6th 09 06:31 AM
Making a date go red, if date passes todays date. Jamie Excel Worksheet Functions 2 September 9th 08 02:14 PM
Report Date - Date Recv = Days Late, but how to rid completed date MS Questionnairess Excel Worksheet Functions 1 January 24th 07 11:05 PM
copy date based on date -refer to date range mindpeace[_4_] Excel Programming 1 June 3rd 06 01:30 PM
Date updates from worksheet to chart & changes date to a date series! Help!! Jayjg Charts and Charting in Excel 2 January 22nd 05 03:00 PM


All times are GMT +1. The time now is 07:23 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"