Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare Two Sheets Generates Runtime Error 13
For several weeks the macro below worked fine:
Sub Compare2Shts() For Each Cell In Worksheets("Primary").UsedRange If Cell.Value < Worksheets("Secondary").Range(Cell.Address) Then Cell.Interior.ColorIndex = 3 End If Next For Each Cell In Worksheets("Secondary").UsedRange If Cell.Value < Worksheets("Primary").Range(Cell.Address) Then Cell.Interior.ColorIndex = 3 End If Next End Sub It would compare values in two sheets, and highlight any differences in red. Today, all of a sudden, it just started erroring out at this line: If Cell.Value < Worksheets("Secondary").Range(Cell.Address) Then I get a message saying €œRun-time error 13€. This is quite bizarre because, as far as I can tell, nothing changed in the data set. Does anyone have any suggestions as to what may cause this? Kind Regards, Ryan--- -- RyGuy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare Two Sheets Generates Runtime Error 13
Ryan, You possibly have an error value in one of the cells being compared. -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "ryguy7272" wrote in message For several weeks the macro below worked fine: Sub Compare2Shts() For Each Cell In Worksheets("Primary").UsedRange If Cell.Value < Worksheets("Secondary").Range(Cell.Address) Then Cell.Interior.ColorIndex = 3 End If Next For Each Cell In Worksheets("Secondary").UsedRange If Cell.Value < Worksheets("Primary").Range(Cell.Address) Then Cell.Interior.ColorIndex = 3 End If Next End Sub It would compare values in two sheets, and highlight any differences in red. Today, all of a sudden, it just started erroring out at this line: If Cell.Value < Worksheets("Secondary").Range(Cell.Address) Then I get a message saying €œRun-time error 13€. This is quite bizarre because, as far as I can tell, nothing changed in the data set. Does anyone have any suggestions as to what may cause this? Kind Regards, Ryan--- -- RyGuy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare Two Sheets Generates Runtime Error 13
Something in one of the far right-hand columns caused it to fail. Whatever
it is, it is very weird! I just changed the compare range; now the macros is like this: Sub Compare2Shts() For Each Cell In Worksheets("Primary").Range("A1000:Z2500") If Cell.Value < Worksheets("Secondary").Range(Cell.Address) Then Cell.Interior.ColorIndex = 3 End If Next etc... I have no idea what it was...just one of those formatting-things I guess. Maybe error value accidentally got into the UsedRange or something...who knows. I learned a long time ago, just because you can't see some kind of data (i.e. a space) doesn't mean that some kind of data is not there. Thanks for the look Jim!! Ryan--- -- RyGuy "Jim Cone" wrote: Ryan, You possibly have an error value in one of the cells being compared. -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "ryguy7272" wrote in message For several weeks the macro below worked fine: Sub Compare2Shts() For Each Cell In Worksheets("Primary").UsedRange If Cell.Value < Worksheets("Secondary").Range(Cell.Address) Then Cell.Interior.ColorIndex = 3 End If Next For Each Cell In Worksheets("Secondary").UsedRange If Cell.Value < Worksheets("Primary").Range(Cell.Address) Then Cell.Interior.ColorIndex = 3 End If Next End Sub It would compare values in two sheets, and highlight any differences in red. Today, all of a sudden, it just started erroring out at this line: If Cell.Value < Worksheets("Secondary").Range(Cell.Address) Then I get a message saying €œRun-time error 13€. This is quite bizarre because, as far as I can tell, nothing changed in the data set. Does anyone have any suggestions as to what may cause this? Kind Regards, Ryan--- -- RyGuy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VB Code generates error on another machine? | Excel Programming | |||
Runtime error with sheets.add | Excel Programming | |||
Working application - Now generates error | Excel Programming | |||
Copy generates an automation error. | Excel Programming | |||
Logbook generates runtime error 438 on another network computer | Excel Programming |