PDA

View Full Version : Solved: Overflow Error in Code



Louis
07-17-2013, 07:41 AM
The function executed for me yesterday and this morning I am getting an overflow error. Any idea why?

Sub three_point()
Set c11 = Range("A1")
Dim i As Integer
i = 2
p = 2

Do Until Range("A2") = ""
If Abs(Cells(i, 1).Value - Cells(i + 1, 1).Value) < Abs(Cells(i + 1, 1).Value - Cells(i + 2, 1).Value) Then
Cells(p, 8).Value = Abs(Cells(i, 1).Value - Cells(i + 1, 1).Value)
Cells(p, 9).Value = (Cells(i, 1).Value + Cells(i + 1, 1).Value) / 2
Cells(i + 1, 1).Delete shift:=xlUp
Cells(i, 1).Delete shift:=xlUp
i = 2
p = p + 1
Else
i = i + 1
End If
Loop
End Sub

thanks for the help.

patel
07-17-2013, 07:44 AM
need a sample file for testing

Aussiebear
07-17-2013, 03:49 PM
How was the issue solved?

Louis
07-17-2013, 04:06 PM
How was the issue solved?


I was accidentaly using A2 instead of A3 in the Do Until loop and it was an infinite loop.



Sub three_point()
Set c11 = Range("A1")
Dim i As Integer
i = 2
p = 2

Do Until Range("A3") = ""
If Abs(Cells(i, 1).Value - Cells(i + 1, 1).Value) < Abs(Cells(i + 1, 1).Value - Cells(i + 2, 1).Value) Then
Cells(p, 8).Value = Abs(Cells(i, 1).Value - Cells(i + 1, 1).Value)
Cells(p, 9).Value = (Cells(i, 1).Value + Cells(i + 1, 1).Value) / 2
Cells(i + 1, 1).Delete shift:=xlUp
Cells(i, 1).Delete shift:=xlUp
i = 2
p = p + 1
Else
i = i + 1
End If
Loop
End Sub