Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
'1004' - Application defined or Object defined
I get this error at "ActiveWorkbook.SaveCopyAs Filename:=jobsave" Private Sub CommandButton4_Click() 'Save time sheet Dim jobname As String Dim jobemployee As String Dim Jobdate As String Dim jobnumber As String Dim jobsave As String Jobdate = Range("C10").Value ' set date format to mm-dd-yy Jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate) jobname = Range("D6") jobemployee = Range("E3") jobnumber = Range("D4") jobsave = InputBox("Please enter TIME SHEET file name to save", " Process Technology", "" & "C:Time Sheets\ " + jobnumber + " " + jobemployee + " " + (Jobdate)) If jobsave = "" Then Range("A1").Select Range("D3").Select Else ActiveWorkbook.SaveCopyAs Filename:=jobsave On Error GoTo ErrorHandler: Range("A1").Select Range("D3").Select End If ErrorHandler: Range("A1").Select Range("D3").Select End Sub oldjay |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
'1004' - Application defined or Object defined
Corrected but it still doesn't work
jobsave = InputBox("Please enter TIME SHEET file name to save", " Process Technology", "" & "C:\Time Sheets\ " + jobnumber + " " + jobemployee + " " + (Jobdate)) "Oldjay" wrote: I get this error at "ActiveWorkbook.SaveCopyAs Filename:=jobsave" Private Sub CommandButton4_Click() 'Save time sheet Dim jobname As String Dim jobemployee As String Dim Jobdate As String Dim jobnumber As String Dim jobsave As String Jobdate = Range("C10").Value ' set date format to mm-dd-yy Jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate) jobname = Range("D6") jobemployee = Range("E3") jobnumber = Range("D4") jobsave = InputBox("Please enter TIME SHEET file name to save", " Process Technology", "" & "C:Time Sheets\ " + jobnumber + " " + jobemployee + " " + (Jobdate)) If jobsave = "" Then Range("A1").Select Range("D3").Select Else ActiveWorkbook.SaveCopyAs Filename:=jobsave On Error GoTo ErrorHandler: Range("A1").Select Range("D3").Select End If ErrorHandler: Range("A1").Select Range("D3").Select End Sub oldjay |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
'1004' - Application defined or Object defined
I found my dumb mistake
"Oldjay" wrote: Corrected but it still doesn't work jobsave = InputBox("Please enter TIME SHEET file name to save", " Process Technology", "" & "C:\Time Sheets\ " + jobnumber + " " + jobemployee + " " + (Jobdate)) "Oldjay" wrote: I get this error at "ActiveWorkbook.SaveCopyAs Filename:=jobsave" Private Sub CommandButton4_Click() 'Save time sheet Dim jobname As String Dim jobemployee As String Dim Jobdate As String Dim jobnumber As String Dim jobsave As String Jobdate = Range("C10").Value ' set date format to mm-dd-yy Jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate) jobname = Range("D6") jobemployee = Range("E3") jobnumber = Range("D4") jobsave = InputBox("Please enter TIME SHEET file name to save", " Process Technology", "" & "C:Time Sheets\ " + jobnumber + " " + jobemployee + " " + (Jobdate)) If jobsave = "" Then Range("A1").Select Range("D3").Select Else ActiveWorkbook.SaveCopyAs Filename:=jobsave On Error GoTo ErrorHandler: Range("A1").Select Range("D3").Select End If ErrorHandler: Range("A1").Select Range("D3").Select End Sub oldjay |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime error 1004- application defined or object defined erro | Excel Programming | |||
Runtime error 1004- application defined or object defined erro | Excel Programming | |||
Runtime error 1004- application defined or object defined erro | Excel Programming | |||
Macro Run-time Error 1004 Application Defined or Object Defined Error | Excel Programming |