ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Date (https://www.excelbanter.com/excel-programming/384534-date.html)

hannatrip

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

Vergel Adriano

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 :)


Don Guillett

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 :)




hannatrip

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 :)





hannatrip

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 :)





Don Guillett

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 :)







hannatrip

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 :)







Don Guillett

Date
 
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 :)









hannatrip

Date
 
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 :)










Don Guillett

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 :)












hannatrip

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 :)













Don Guillett

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 :)















hannatrip

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 :)

















All times are GMT +1. The time now is 03:27 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com