change datestamp from yyyy-mm-dd to yymmdd
 

I have an auto inserted datestamp when I open a workbook. The dateformt
is yyyy-mm-dd (example: 2004-07-22), and I wonder if there are any way
to convert it to yymmdd (example: 040722)?
Here's the VBA source I use to get the datestamp:

Private Sub Workbook_Open()
If Sheets("dayreport").Range("T5") = "" Then
Sheets("dayreport").Range("T5") = Date
Else
End If
End Sub

--
//Jst
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/

change datestamp from yyyy-mm-dd to yymmdd
 

Hi

You can use the format function
MsgBox Format(Now, "yymmdd")



--
Regards Ron de Bruin
http://www.rondebruin.nl


"jst_se" wrote in message ...
I have an auto inserted datestamp when I open a workbook. The dateformt
is yyyy-mm-dd (example: 2004-07-22), and I wonder if there are any way
to convert it to yymmdd (example: 040722)?
Here's the VBA source I use to get the datestamp:

Private Sub Workbook_Open()
If Sheets("dayreport").Range("T5") = "" Then
Sheets("dayreport").Range("T5") = Date
Else
End If
End Sub

--
//Jst
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/

change datestamp from yyyy-mm-dd to yymmdd
 

Hi
try
Private Sub Workbook_Open()
with Sheets("dayreport").Range("T5")
If .value = "" Then
.value = Date
.numberformat="YYMMDD"
End If
end with
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany

"jst_se" schrieb im Newsbeitrag
...
I have an auto inserted datestamp when I open a workbook. The
dateformt
is yyyy-mm-dd (example: 2004-07-22), and I wonder if there are any
way
to convert it to yymmdd (example: 040722)?
Here's the VBA source I use to get the datestamp:

Private Sub Workbook_Open()
If Sheets("dayreport").Range("T5") = "" Then
Sheets("dayreport").Range("T5") = Date
Else
End If
End Sub

--
//Jst
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/

change datestamp from yyyy-mm-dd to yymmdd
 

Thank you, Frank! That works just fine :)

Frank Kabel wrote:

Hi
try
Private Sub Workbook_Open()
with Sheets("dayreport").Range("T5")
If .value = "" Then
.value = Date
.numberformat="YYMMDD"
End If
end with
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany

"jst_se" schrieb im Newsbeitrag
...

I have an auto inserted datestamp when I open a workbook. The

dateformt

is yyyy-mm-dd (example: 2004-07-22), and I wonder if there are any

way

to convert it to yymmdd (example: 040722)?
Here's the VBA source I use to get the datestamp:

Private Sub Workbook_Open()
If Sheets("dayreport").Range("T5") = "" Then
Sheets("dayreport").Range("T5") = Date
Else
End If
End Sub

--
//Jst
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/




--
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/