|
Variable error on second use???
Hi I am checking to see if a "score" crosses above 0 and if so moving its
value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
Variable error on second use???
quotemarks missing: Range(nex****ch)
put OPTION EXPLICIT at the top of the module. "John" wrote: Hi I am checking to see if a "score" crosses above 0 and if so moving its value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
Variable error on second use???
nope - I was wrong. sorry
"John" wrote: Hi I am checking to see if a "score" crosses above 0 and if so moving its value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
Variable error on second use???
chaneg this
nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) to dim nx****ch as range SET nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Offset(1) nx****ch.Value = Sheets("scores").Cells( i.Row,"A") "John" wrote: Hi I am checking to see if a "score" crosses above 0 and if so moving its value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
Variable error on second use???
What is the error message?
"John" wrote in message ... Hi I am checking to see if a "score" crosses above 0 and if so moving its value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
Variable error on second use???
oh my I had nx****ch in one place and nex****ch in another....
I think your works too... thanks "Patrick Molloy" wrote: chaneg this nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) to dim nx****ch as range SET nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Offset(1) nx****ch.Value = Sheets("scores").Cells( i.Row,"A") "John" wrote: Hi I am checking to see if a "score" crosses above 0 and if so moving its value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
Variable error on second use???
oops ;)
"John" wrote: oh my I had nx****ch in one place and nex****ch in another.... I think your works too... thanks "Patrick Molloy" wrote: chaneg this nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) to dim nx****ch as range SET nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Offset(1) nx****ch.Value = Sheets("scores").Cells( i.Row,"A") "John" wrote: Hi I am checking to see if a "score" crosses above 0 and if so moving its value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
Variable error on second use???
You will get faster, better response for problem solving if you include the
text of your error messages when you post. This gives those who try to help a clue as to the problem and reduces the amount of reading or testing testing that might be required to debug the code. "John" wrote in message ... oh my I had nx****ch in one place and nex****ch in another.... I think your works too... thanks "Patrick Molloy" wrote: chaneg this nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) to dim nx****ch as range SET nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Offset(1) nx****ch.Value = Sheets("scores").Cells( i.Row,"A") "John" wrote: Hi I am checking to see if a "score" crosses above 0 and if so moving its value to a second sheet. I get an error on Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row)... which I can't figure since the line right before this one works.... Sub scorecross() For Each i In Sheets("Scores").Range("b2:b501") If Range("c" & i.Row) < 0 And Range("b" & i.Row) 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross UP" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If If Range("c" & i.Row) 0 And Range("b" & i.Row) < 0 Then nx****ch = Sheets("watch list").Range("a4000").End(xlUp).Address Sheets("watch list").Range(nx****ch).Offset(1, 0) = Sheets("scores").Range("a" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 1) = Sheets("scores").Range("b" & i.Row) Sheets("watch list").Range(nex****ch).Offset(1, 2) = "Cross DOWN" Sheets("watch list").Range(nex****ch).Offset(1, 3) = Sheets("Scores").Range("b1") End If Next End Sub Thanks for help! |
| All times are GMT +1. The time now is 06:55 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com