ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Excel 2000 - Excel 2003 now throws 'runtime error' (https://www.excelbanter.com/excel-programming/352513-excel-2000-excel-2003-now-throws-runtime-error.html)

Ralph L

Excel 2000 - Excel 2003 now throws 'runtime error'
 
Hello - thanks for reading.
When I try to use a spreadsheet button someone design in Excel 2000, it
now throws an "Run-time error '1004': Application-defined or object-defined
error". I am copying the snipit of code that the debugger highlights as the
culprit... I have NO idea how to fix this, so some assistance would be
graciously appreciated!

<code
ActiveSheet.Range("C" & CStr(DestRow)) = "=UpdateScore(""" & ThisSheetName &
""",""" & _
Sheets(ThisSheetName).Range(ACell) & """,'" & ThisSheetName &
"'!C" & CStr(TotalRow) & ":IX" & _
CStr(TotalRow) & ")"
</code

Tom Ogilvy

Excel 2000 - Excel 2003 now throws 'runtime error'
 
ThisSheetName = "thisSheetName"
Acell = "A1"
TotalRow = 20

? "=UpdateScore(""" & ThisSheetName & """,""" & _
Sheets(ThisSheetName).Range(ACell) & """,'" & ThisSheetName & "'!C" &
CStr(TotalRow) & ":IX" & _
CStr(TotalRow) & ")"
=UpdateScore("thisSheetName","AABB",'thisSheetName '!C20:IX20)

The statement appears to be syntactically correct. So problems could result
from the definition of any of the variable values

ThisSheetName
Acell
What is contained in Sheets("ThisSheetName").Range(ACell)
TotalRow
DestRow
The definition and existence of the function UpdateScore

You are the only one who can check those

--
Regards,
Tom Ogilvy

"Ralph L" <Ralph wrote in message
...
Hello - thanks for reading.
When I try to use a spreadsheet button someone design in Excel 2000, it
now throws an "Run-time error '1004': Application-defined or

object-defined
error". I am copying the snipit of code that the debugger highlights as

the
culprit... I have NO idea how to fix this, so some assistance would be
graciously appreciated!

<code
ActiveSheet.Range("C" & CStr(DestRow)) = "=UpdateScore(""" & ThisSheetName

&
""",""" & _
Sheets(ThisSheetName).Range(ACell) & """,'" & ThisSheetName &
"'!C" & CStr(TotalRow) & ":IX" & _
CStr(TotalRow) & ")"
</code




Ralph L[_2_]

Excel 2000 - Excel 2003 now throws 'runtime error'
 
Tom/All,
This works flawlessly in Excel 2000 - and only breaks on my Excel 2003
installation. So my guess that the rest is correct... this is the reason
I've come to the community - I'm lost as to what's going on...

Thanks!

"Tom Ogilvy" wrote:

ThisSheetName = "thisSheetName"
Acell = "A1"
TotalRow = 20

? "=UpdateScore(""" & ThisSheetName & """,""" & _
Sheets(ThisSheetName).Range(ACell) & """,'" & ThisSheetName & "'!C" &
CStr(TotalRow) & ":IX" & _
CStr(TotalRow) & ")"
=UpdateScore("thisSheetName","AABB",'thisSheetName '!C20:IX20)

The statement appears to be syntactically correct. So problems could result
from the definition of any of the variable values

ThisSheetName
Acell
What is contained in Sheets("ThisSheetName").Range(ACell)
TotalRow
DestRow
The definition and existence of the function UpdateScore

You are the only one who can check those

--
Regards,
Tom Ogilvy

"Ralph L" <Ralph wrote in message
...
Hello - thanks for reading.
When I try to use a spreadsheet button someone design in Excel 2000, it
now throws an "Run-time error '1004': Application-defined or

object-defined
error". I am copying the snipit of code that the debugger highlights as

the
culprit... I have NO idea how to fix this, so some assistance would be
graciously appreciated!

<code
ActiveSheet.Range("C" & CStr(DestRow)) = "=UpdateScore(""" & ThisSheetName

&
""",""" & _
Sheets(ThisSheetName).Range(ACell) & """,'" & ThisSheetName &
"'!C" & CStr(TotalRow) & ":IX" & _
CStr(TotalRow) & ")"
</code





Jen

Excel 2000 - Excel 2003 now throws 'runtime error'
 
what is "UpdateScore"? Is it maybe another macro stored in some other Excel
file that was not copied over to your new Excel 2003 file?

"Ralph L" wrote:

Tom/All,
This works flawlessly in Excel 2000 - and only breaks on my Excel 2003
installation. So my guess that the rest is correct... this is the reason
I've come to the community - I'm lost as to what's going on...

Thanks!

"Tom Ogilvy" wrote:

ThisSheetName = "thisSheetName"
Acell = "A1"
TotalRow = 20

? "=UpdateScore(""" & ThisSheetName & """,""" & _
Sheets(ThisSheetName).Range(ACell) & """,'" & ThisSheetName & "'!C" &
CStr(TotalRow) & ":IX" & _
CStr(TotalRow) & ")"
=UpdateScore("thisSheetName","AABB",'thisSheetName '!C20:IX20)

The statement appears to be syntactically correct. So problems could result
from the definition of any of the variable values

ThisSheetName
Acell
What is contained in Sheets("ThisSheetName").Range(ACell)
TotalRow
DestRow
The definition and existence of the function UpdateScore

You are the only one who can check those

--
Regards,
Tom Ogilvy

"Ralph L" <Ralph wrote in message
...
Hello - thanks for reading.
When I try to use a spreadsheet button someone design in Excel 2000, it
now throws an "Run-time error '1004': Application-defined or

object-defined
error". I am copying the snipit of code that the debugger highlights as

the
culprit... I have NO idea how to fix this, so some assistance would be
graciously appreciated!

<code
ActiveSheet.Range("C" & CStr(DestRow)) = "=UpdateScore(""" & ThisSheetName

&
""",""" & _
Sheets(ThisSheetName).Range(ACell) & """,'" & ThisSheetName &
"'!C" & CStr(TotalRow) & ":IX" & _
CStr(TotalRow) & ")"
</code






All times are GMT +1. The time now is 09:04 AM.

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