I am trying to save a file with this code it worrks but I don't want to save
it
with the jobdate 10-18-2006. I want to shorten it to 10-18-06
The cell C10 is formatted to mm/dd/yy
I don't do any date calculations
oldjay

jobdate = Range("C10").Value '
jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)
jobname = Range("D6")
jobemployee = Range("G3")
jobnumber = Range("D4")

jobsave = InputBox("Please enter TIME SHEET file name to save",
" Process Technology", "" & "C:\Time Sheets\" + jobnumber + jobemployee +
(Jobdate))
jobsave1 = jobsave + (".xls"

jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)

Try the following instead:

jobdate = Format(jobdate, "mm-dd-yy")

use


Dim jobdate as string

jobdate=format(range("C10").value,"mm/dd/yy")
jobname=Range("D6").value
.... etc


Oldjay wrote:
I am trying to save a file with this code it worrks but I don't want to save
it
with the jobdate 10-18-2006. I want to shorten it to 10-18-06
The cell C10 is formatted to mm/dd/yy
I don't do any date calculations
oldjay

jobdate = Range("C10").Value '
jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)
jobname = Range("D6")
jobemployee = Range("G3")
jobnumber = Range("D4")

jobsave = InputBox("Please enter TIME SHEET file name to save",
" Process Technology", "" & "C:\Time Sheets\" + jobnumber + jobemployee +
(Jobdate))
jobsave1 = jobsave + (".xls"

I replaced the code and now I get a Run time error "Type mismatch" at the
jobsave = InputBox line....

"Rawce" wrote:

jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)

Try the following instead:

jobdate = Format(jobdate, "mm-dd-yy")

Could be because you have jobdate and Jobdate. Make sure they're both
the same, or define one as jobdate and the other as jobdate2 and make
sure you're including the right one. Also, how have you declared
jobdate/Jobdate? I've used Variant for mine, just because declaring it
as a Date caused problems.

Correction:

Dim jobdate as string

jobdate=format(range("C10").value,"mm-dd-yy")

Alan wrote:
use


Dim jobdate as string

jobdate=format(range("C10").value,"mm/dd/yy")
jobname=Range("D6").value
.... etc


Oldjay wrote:
I am trying to save a file with this code it worrks but I don't want to save
it
with the jobdate 10-18-2006. I want to shorten it to 10-18-06
The cell C10 is formatted to mm/dd/yy
I don't do any date calculations
oldjay

jobdate = Range("C10").Value '
jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)
jobname = Range("D6")
jobemployee = Range("G3")
jobnumber = Range("D4")

jobsave = InputBox("Please enter TIME SHEET file name to save",
" Process Technology", "" & "C:\Time Sheets\" + jobnumber + jobemployee +
(Jobdate))
jobsave1 = jobsave + (".xls"

Thanks - The previous post indicated the code is case sensitiveJ

"Alan" wrote:

Correction:

Dim jobdate as string

jobdate=format(range("C10").value,"mm-dd-yy")

Alan wrote:
use


Dim jobdate as string

jobdate=format(range("C10").value,"mm/dd/yy")
jobname=Range("D6").value
.... etc


Oldjay wrote:
I am trying to save a file with this code it worrks but I don't want to save
it
with the jobdate 10-18-2006. I want to shorten it to 10-18-06
The cell C10 is formatted to mm/dd/yy
I don't do any date calculations
oldjay

jobdate = Range("C10").Value '
jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)
jobname = Range("D6")
jobemployee = Range("G3")
jobnumber = Range("D4")

jobsave = InputBox("Please enter TIME SHEET file name to save",
" Process Technology", "" & "C:\Time Sheets\" + jobnumber + jobemployee +
(Jobdate))
jobsave1 = jobsave + (".xls"

By using Option Explicit (to force declarations) and by delcaring the
variable name with a dim statement all variations of case you can think
of will auto correct and become unified.


Oldjay wrote:
Thanks - The previous post indicated the code is case sensitiveJ

"Alan" wrote:

Correction:

Dim jobdate as string

jobdate=format(range("C10").value,"mm-dd-yy")

Alan wrote:
use


Dim jobdate as string

jobdate=format(range("C10").value,"mm/dd/yy")
jobname=Range("D6").value
.... etc


Oldjay wrote:
I am trying to save a file with this code it worrks but I don't want to save
it
with the jobdate 10-18-2006. I want to shorten it to 10-18-06
The cell C10 is formatted to mm/dd/yy
I don't do any date calculations
oldjay

jobdate = Range("C10").Value '
jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)
jobname = Range("D6")
jobemployee = Range("G3")
jobnumber = Range("D4")

jobsave = InputBox("Please enter TIME SHEET file name to save",
" Process Technology", "" & "C:\Time Sheets\" + jobnumber + jobemployee +
(Jobdate))
jobsave1 = jobsave + (".xls"