Row incrementation not working.
 

I am trying to compare rows on two worksheets in same workbook. The compare
should work but when I try to increment down using hte counter it blows up. I
have a little experience with c and this works there. All help appreciated!

Sub Compare_Tests()
Dim i As Integer ' use to increment thru worksheet
Dim cutrange As Range ' new data to move if changed

i = 3 'counter

Do Until IsEmpty(Cells(i, 1)) 'runs entire length of all sheets in variable
sizes
If Worksheets("well tests").Range("si") <
Worksheets("sheet1").Range("ti") Then ' if AOF <
Set cutrange = ("Hi:Oi") 'cut observations
cutrange.Cut Destination:=Worksheets("well tests").Range("Gi:Ni") ' paste
Worksheets("well tests").Range("ai").Value = "new" ' identify as new
End If
i = i + 1 ' move down a row
Exit Do

Row incrementation not working.
 

Sub Compare_Tests()
Dim i As Integer ' use to increment thru worksheet
Dim cutrange As Range ' new data to move if changed

i = 3 'counter

Do Until IsEmpty(Cells(i, 1)) 'runs entire length of all sheets in variable
sizes
If Worksheets("well tests").Range("s" & i) < _
Worksheets("sheet1").Range("t" & i) Then
' if AOF <
Set cutrange = ("H" & i & ":O" & i) 'cut observations
cutrange.Cut Destination:=Worksheets("well tests").Range("G" & _
i & ":" & N" & i) ' paste
Worksheets("well tests").Range("a" & i).Value = "new" ' identify as
new
End If
i = i + 1 ' move down a row
Exit Do

Spacing is important. i & and i& are two different things (for example)

i& means i has a type of long (implicit typing)

i & uses & as a concatenation operator

you want the latter.

--
Regards,
Tom Ogilvy


"Brian" wrote in message
...
I am trying to compare rows on two worksheets in same workbook. The
compare
should work but when I try to increment down using hte counter it blows
up. I
have a little experience with c and this works there. All help
appreciated!

Sub Compare_Tests()
Dim i As Integer ' use to increment thru worksheet
Dim cutrange As Range ' new data to move if changed

i = 3 'counter

Do Until IsEmpty(Cells(i, 1)) 'runs entire length of all sheets in
variable
sizes
If Worksheets("well tests").Range("si") <
Worksheets("sheet1").Range("ti") Then ' if AOF <
Set cutrange = ("Hi:Oi") 'cut observations
cutrange.Cut Destination:=Worksheets("well tests").Range("Gi:Ni") '
paste
Worksheets("well tests").Range("ai").Value = "new" ' identify as new
End If
i = i + 1 ' move down a row
Exit Do

Row incrementation not working.
 

Thanks Tom for the quick reply. I did not know about theimplicit type siiue
(not in my book)

"Tom Ogilvy" wrote:

Sub Compare_Tests()
Dim i As Integer ' use to increment thru worksheet
Dim cutrange As Range ' new data to move if changed

i = 3 'counter

Do Until IsEmpty(Cells(i, 1)) 'runs entire length of all sheets in variable
sizes
If Worksheets("well tests").Range("s" & i) < _
Worksheets("sheet1").Range("t" & i) Then
' if AOF <
Set cutrange = ("H" & i & ":O" & i) 'cut observations
cutrange.Cut Destination:=Worksheets("well tests").Range("G" & _
i & ":" & N" & i) ' paste
Worksheets("well tests").Range("a" & i).Value = "new" ' identify as
new
End If
i = i + 1 ' move down a row
Exit Do

Spacing is important. i & and i& are two different things (for example)

i& means i has a type of long (implicit typing)

i & uses & as a concatenation operator

you want the latter.

--
Regards,
Tom Ogilvy


"Brian" wrote in message
...
I am trying to compare rows on two worksheets in same workbook. The
compare
should work but when I try to increment down using hte counter it blows
up. I
have a little experience with c and this works there. All help
appreciated!

Sub Compare_Tests()
Dim i As Integer ' use to increment thru worksheet
Dim cutrange As Range ' new data to move if changed

i = 3 'counter

Do Until IsEmpty(Cells(i, 1)) 'runs entire length of all sheets in
variable
sizes
If Worksheets("well tests").Range("si") <
Worksheets("sheet1").Range("ti") Then ' if AOF <
Set cutrange = ("Hi:Oi") 'cut observations
cutrange.Cut Destination:=Worksheets("well tests").Range("Gi:Ni") '
paste
Worksheets("well tests").Range("ai").Value = "new" ' identify as new
End If
i = i + 1 ' move down a row
Exit Do