ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   run time error 13 (https://www.excelbanter.com/excel-programming/303950-run-time-error-13-a.html)

mike allen[_2_]

run time error 13
 
i created code in excel 2000 and it runs fine. i sent it to someone else
who has, i think, excel 97, possibly earlier, and it doesn't work. he gets
'run time error 13'. the code is short and simple and the only parts that
could possibly not transfer into '97 are match or chr(10).

Sub playersstats()
myMessage = ""
For i = 17 To 31
currentplayer = Sheets("input").Cells(i, 4)
rowonsheet = Application.Match(currentplayer,
Sheets("quotas").Range("a1:a5000"), 0)
myMessage = myMessage & currentplayer & " : new quota: " &
Sheets_("quotas").Cells(rowonsheet, 4) & Chr(10) & Chr(10)
Next i
MsgBox myMessage
End Sub
this seems to happen fairly often, where i can run code fine on my excel,
but others (presumably w/ older excels) have problems. any ideas? thanks,
mike allen



Chip Pearson

run time error 13
 
Mike,

What line in the code produces the error?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"mike allen" wrote in message
...
i created code in excel 2000 and it runs fine. i sent it to

someone else
who has, i think, excel 97, possibly earlier, and it doesn't

work. he gets
'run time error 13'. the code is short and simple and the only

parts that
could possibly not transfer into '97 are match or chr(10).

Sub playersstats()
myMessage = ""
For i = 17 To 31
currentplayer = Sheets("input").Cells(i, 4)
rowonsheet = Application.Match(currentplayer,
Sheets("quotas").Range("a1:a5000"), 0)
myMessage = myMessage & currentplayer & " : new quota: "

&
Sheets_("quotas").Cells(rowonsheet, 4) & Chr(10) & Chr(10)
Next i
MsgBox myMessage
End Sub
this seems to happen fairly often, where i can run code fine on

my excel,
but others (presumably w/ older excels) have problems. any

ideas? thanks,
mike allen





mike allen[_2_]

run time error 13
 
under a scaled down version of code, after 'run time error 13' is 'type
mismatch'. i assume this is referring to 'application.match'. can you use
this function in excel 97?

"Chip Pearson" wrote in message
...
Mike,

What line in the code produces the error?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"mike allen" wrote in message
...
i created code in excel 2000 and it runs fine. i sent it to

someone else
who has, i think, excel 97, possibly earlier, and it doesn't

work. he gets
'run time error 13'. the code is short and simple and the only

parts that
could possibly not transfer into '97 are match or chr(10).

Sub playersstats()
myMessage = ""
For i = 17 To 31
currentplayer = Sheets("input").Cells(i, 4)
rowonsheet = Application.Match(currentplayer,
Sheets("quotas").Range("a1:a5000"), 0)
myMessage = myMessage & currentplayer & " : new quota: "

&
Sheets_("quotas").Cells(rowonsheet, 4) & Chr(10) & Chr(10)
Next i
MsgBox myMessage
End Sub
this seems to happen fairly often, where i can run code fine on

my excel,
but others (presumably w/ older excels) have problems. any

ideas? thanks,
mike allen








All times are GMT +1. The time now is 01:43 AM.

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