|
Macro Error in 2003
The code below is part of a macro that I wrote in Excel 2000.
When I run it in 2003, it errors out (Application Error) in the last row of code. Any ideas how to fix this? Could it have something to do with add-ins? Is there a way to re-write the last line to work in 2003? TIA. NumRowsTB = Range("A65536").End(xlUp).Row NumRowsMacro = ThisWorkbook.Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row NumColsMacro = ThisWorkbook.Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column ColumnID = ThisWorkbook.Sheets(2).Cells(1, NumColsMacro).Address NormalHomeRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$1" NormalColRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$B$1:" & ColumnID & "" NormalRowRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$2:$A$" & NumRowsMacro & "" Cells(1, 7) = "=IF(ISERROR(OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0))),"""",OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0)))" |
Macro Error in 2003
I suspect the either the formula is longer than 1024 characters or Excel
2003 is more demanding and wants you to use Formula on the end of Cells(1,7) -- Regards, Tom Ogilvy "Ken" wrote in message ... The code below is part of a macro that I wrote in Excel 2000. When I run it in 2003, it errors out (Application Error) in the last row of code. Any ideas how to fix this? Could it have something to do with add-ins? Is there a way to re-write the last line to work in 2003? TIA. NumRowsTB = Range("A65536").End(xlUp).Row NumRowsMacro = ThisWorkbook.Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row NumColsMacro = ThisWorkbook.Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column ColumnID = ThisWorkbook.Sheets(2).Cells(1, NumColsMacro).Address NormalHomeRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$1" NormalColRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$B$1:" & ColumnID & "" NormalRowRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$2:$A$" & NumRowsMacro & "" Cells(1, 7) = "=IF(ISERROR(OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0))),"""",OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0)))" |
Macro Error in 2003
Thanks, Tom. I saw you were "on duty" from some previous posts and hoped you
wouild respond. After more investigation I found that the macro runs okay on some machines with 2003 and not on others. Leads me to believe that 2003 was not installed the same - some machines are missing some install options? "Tom Ogilvy" wrote: I suspect the either the formula is longer than 1024 characters or Excel 2003 is more demanding and wants you to use Formula on the end of Cells(1,7) -- Regards, Tom Ogilvy "Ken" wrote in message ... The code below is part of a macro that I wrote in Excel 2000. When I run it in 2003, it errors out (Application Error) in the last row of code. Any ideas how to fix this? Could it have something to do with add-ins? Is there a way to re-write the last line to work in 2003? TIA. NumRowsTB = Range("A65536").End(xlUp).Row NumRowsMacro = ThisWorkbook.Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row NumColsMacro = ThisWorkbook.Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column ColumnID = ThisWorkbook.Sheets(2).Cells(1, NumColsMacro).Address NormalHomeRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$1" NormalColRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$B$1:" & ColumnID & "" NormalRowRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$2:$A$" & NumRowsMacro & "" Cells(1, 7) = "=IF(ISERROR(OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0))),"""",OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0)))" |
Macro Error in 2003
You sure it doesn't have to do with differences in where the file is
installed? If the path causes the formula to be longer than 1024 characters (in R1C1 format), then it won't work. I doubt there is any install option that would cause the behavior on interpreting a formula to be different although the installation of VB is option - however, it doesn't sound like you are saying the macro won't run. -- Regards, Tom Ogilvy "Ken" wrote in message ... Thanks, Tom. I saw you were "on duty" from some previous posts and hoped you wouild respond. After more investigation I found that the macro runs okay on some machines with 2003 and not on others. Leads me to believe that 2003 was not installed the same - some machines are missing some install options? "Tom Ogilvy" wrote: I suspect the either the formula is longer than 1024 characters or Excel 2003 is more demanding and wants you to use Formula on the end of Cells(1,7) -- Regards, Tom Ogilvy "Ken" wrote in message ... The code below is part of a macro that I wrote in Excel 2000. When I run it in 2003, it errors out (Application Error) in the last row of code. Any ideas how to fix this? Could it have something to do with add-ins? Is there a way to re-write the last line to work in 2003? TIA. NumRowsTB = Range("A65536").End(xlUp).Row NumRowsMacro = ThisWorkbook.Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row NumColsMacro = ThisWorkbook.Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column ColumnID = ThisWorkbook.Sheets(2).Cells(1, NumColsMacro).Address NormalHomeRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$1" NormalColRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$B$1:" & ColumnID & "" NormalRowRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$2:$A$" & NumRowsMacro & "" Cells(1, 7) = "=IF(ISERROR(OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0))),"""",OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0)))" |
Macro Error in 2003
Ignore that. I was thinking you were using FullName rather than just name.
It would only be applicable if the workbook had different names or the sheets had different names on different computers. If the workbook might have different names, could the name have a space in it? Another thought is a setting for hiding known file exentions under folder options. As far as I know, this doesn't affect the string returned by Thisworkbook.Filename, but I don't have Excel 2003 to test with. You might check that out and see whether your formula has [MyBook1.xls] rather than [MyBook1] -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... You sure it doesn't have to do with differences in where the file is installed? If the path causes the formula to be longer than 1024 characters (in R1C1 format), then it won't work. I doubt there is any install option that would cause the behavior on interpreting a formula to be different although the installation of VB is option - however, it doesn't sound like you are saying the macro won't run. -- Regards, Tom Ogilvy "Ken" wrote in message ... Thanks, Tom. I saw you were "on duty" from some previous posts and hoped you wouild respond. After more investigation I found that the macro runs okay on some machines with 2003 and not on others. Leads me to believe that 2003 was not installed the same - some machines are missing some install options? "Tom Ogilvy" wrote: I suspect the either the formula is longer than 1024 characters or Excel 2003 is more demanding and wants you to use Formula on the end of Cells(1,7) -- Regards, Tom Ogilvy "Ken" wrote in message ... The code below is part of a macro that I wrote in Excel 2000. When I run it in 2003, it errors out (Application Error) in the last row of code. Any ideas how to fix this? Could it have something to do with add-ins? Is there a way to re-write the last line to work in 2003? TIA. NumRowsTB = Range("A65536").End(xlUp).Row NumRowsMacro = ThisWorkbook.Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row NumColsMacro = ThisWorkbook.Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column ColumnID = ThisWorkbook.Sheets(2).Cells(1, NumColsMacro).Address NormalHomeRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$1" NormalColRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$B$1:" & ColumnID & "" NormalRowRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$2:$A$" & NumRowsMacro & "" Cells(1, 7) = "=IF(ISERROR(OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0))),"""",OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0)))" |
Macro Error in 2003
Thanks for the ideas, Tom. I will check out the file extension theory. I am
in Seattle and my problem folks are in Tampa, so it makes it a little difficult to troubleshoot since it runs okay on my machines in Seattle. The workbooks all use the same name - no spaces. Anyway, I'm at home, waiting for Santa. Best wishes for a happy holiday! If I get more info next week, should I start a new post or will you be checking back on this one? "Tom Ogilvy" wrote: Ignore that. I was thinking you were using FullName rather than just name. It would only be applicable if the workbook had different names or the sheets had different names on different computers. If the workbook might have different names, could the name have a space in it? Another thought is a setting for hiding known file exentions under folder options. As far as I know, this doesn't affect the string returned by Thisworkbook.Filename, but I don't have Excel 2003 to test with. You might check that out and see whether your formula has [MyBook1.xls] rather than [MyBook1] -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... You sure it doesn't have to do with differences in where the file is installed? If the path causes the formula to be longer than 1024 characters (in R1C1 format), then it won't work. I doubt there is any install option that would cause the behavior on interpreting a formula to be different although the installation of VB is option - however, it doesn't sound like you are saying the macro won't run. -- Regards, Tom Ogilvy "Ken" wrote in message ... Thanks, Tom. I saw you were "on duty" from some previous posts and hoped you wouild respond. After more investigation I found that the macro runs okay on some machines with 2003 and not on others. Leads me to believe that 2003 was not installed the same - some machines are missing some install options? "Tom Ogilvy" wrote: I suspect the either the formula is longer than 1024 characters or Excel 2003 is more demanding and wants you to use Formula on the end of Cells(1,7) -- Regards, Tom Ogilvy "Ken" wrote in message ... The code below is part of a macro that I wrote in Excel 2000. When I run it in 2003, it errors out (Application Error) in the last row of code. Any ideas how to fix this? Could it have something to do with add-ins? Is there a way to re-write the last line to work in 2003? TIA. NumRowsTB = Range("A65536").End(xlUp).Row NumRowsMacro = ThisWorkbook.Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row NumColsMacro = ThisWorkbook.Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column ColumnID = ThisWorkbook.Sheets(2).Cells(1, NumColsMacro).Address NormalHomeRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$1" NormalColRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$B$1:" & ColumnID & "" NormalRowRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$2:$A$" & NumRowsMacro & "" Cells(1, 7) = "=IF(ISERROR(OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0))),"""",OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0)))" |
Macro Error in 2003
Probably best to start a new post.
Merry Christmas! -- Regard, Tom Ogilvy "Ken" wrote in message ... Thanks for the ideas, Tom. I will check out the file extension theory. I am in Seattle and my problem folks are in Tampa, so it makes it a little difficult to troubleshoot since it runs okay on my machines in Seattle. The workbooks all use the same name - no spaces. Anyway, I'm at home, waiting for Santa. Best wishes for a happy holiday! If I get more info next week, should I start a new post or will you be checking back on this one? "Tom Ogilvy" wrote: Ignore that. I was thinking you were using FullName rather than just name. It would only be applicable if the workbook had different names or the sheets had different names on different computers. If the workbook might have different names, could the name have a space in it? Another thought is a setting for hiding known file exentions under folder options. As far as I know, this doesn't affect the string returned by Thisworkbook.Filename, but I don't have Excel 2003 to test with. You might check that out and see whether your formula has [MyBook1.xls] rather than [MyBook1] -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... You sure it doesn't have to do with differences in where the file is installed? If the path causes the formula to be longer than 1024 characters (in R1C1 format), then it won't work. I doubt there is any install option that would cause the behavior on interpreting a formula to be different although the installation of VB is option - however, it doesn't sound like you are saying the macro won't run. -- Regards, Tom Ogilvy "Ken" wrote in message ... Thanks, Tom. I saw you were "on duty" from some previous posts and hoped you wouild respond. After more investigation I found that the macro runs okay on some machines with 2003 and not on others. Leads me to believe that 2003 was not installed the same - some machines are missing some install options? "Tom Ogilvy" wrote: I suspect the either the formula is longer than 1024 characters or Excel 2003 is more demanding and wants you to use Formula on the end of Cells(1,7) -- Regards, Tom Ogilvy "Ken" wrote in message ... The code below is part of a macro that I wrote in Excel 2000. When I run it in 2003, it errors out (Application Error) in the last row of code. Any ideas how to fix this? Could it have something to do with add-ins? Is there a way to re-write the last line to work in 2003? TIA. NumRowsTB = Range("A65536").End(xlUp).Row NumRowsMacro = ThisWorkbook.Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row NumColsMacro = ThisWorkbook.Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column ColumnID = ThisWorkbook.Sheets(2).Cells(1, NumColsMacro).Address NormalHomeRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$1" NormalColRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$B$1:" & ColumnID & "" NormalRowRng = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.Sheets(2).Name & "!$A$2:$A$" & NumRowsMacro & "" Cells(1, 7) = "=IF(ISERROR(OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0))),"""",OFFSET(" & NormalHomeRng & ",MATCH(C1," & NormalRowRng & ",0),MATCH(A1," & NormalColRng & ",0)))" |
| All times are GMT +1. The time now is 07:29 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com