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!
|