Code runtime error 6 overflow vba

[excel_beginer]

I run code then have runtime error 6 overflow vba with this line:

If ((.Cells(i, 8).Value + .Cells(i, 9).Value) / .Cells(i, 2).Value) < .Cells(3, 15).Value Then

How to fix it
thank a lot./.

 

[My Aswer Is This]

It may be easier for us if you were to provide all your code and explain what your wanting to do.

Like is this line of code inside a With Statement?

 

[excel_beginer]

Thanks @My Aswer Is This

This's my code

Sub Check()
Worksheets("check").Range("A2:N5000").Clear
Application.ScreenUpdating = False
Dim i As Long, lastrow As Long, lastrowi As Long
    lastrowi = Sheets("G101").Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 4 To lastrowi
        lastrow = Sheets("check").Cells(Rows.Count, 2).End(xlUp).Row
        With Sheets("G101")
            If ((.Cells(i, 8).Value + .Cells(i, 9).Value) / .Cells(i, 2).Value) < .Cells(3, 15).Value Then
                .Rows(i).Font.Color = vbRed
                .Rows(i).Copy (Sheets("check").Range("A" & lastrow + 1))
            End If
        End With
    Next i
Application.ScreenUpdating = True
End Sub

Runtiem error and yellow color at line: If ((.Cells(i, 8).Value + .Cells(i, 9).Value) / .Cells(i, 2).Value) < .Cells(3, 15).Value Then

 

[Peter_SSs]

Most likely .Cells(i, 2) on sheet "G101" is empty or zero, meaning the code is trying to divide by zero.
Not quite sure what you would want to happen in that case but try adding something like this.

Sub Check()
Worksheets("check").Range("A2:N5000").Clear
Application.ScreenUpdating = False
Dim i As Long, lastrow As Long, lastrowi As Long
    lastrowi = Sheets("G101").Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 4 To lastrowi
        lastrow = Sheets("check").Cells(Rows.Count, 2).End(xlUp).Row
        With Sheets("G101")
          If .Cells(i, 2).Value <> 0 Then
            If ((.Cells(i, 8).Value + .Cells(i, 9).Value) / .Cells(i, 2).Value) < .Cells(3, 15).Value Then
                .Rows(i).Font.Color = vbRed
                .Rows(i).Copy (Sheets("check").Range("A" & lastrow + 1))
            End If
          End If
        End With
    Next i
Application.ScreenUpdating = True
End Sub

 

[excel_beginer]

Thanks @Peter_SSs

I'ver just found the mistake: sheets("G101").Cells(3,15) I format at percent, now I format at general the code work

Thanks all one more time

 

[My Aswer Is This]

Glad you have things working for you.

Thanks @Peter_SSs

I'ver just found the mistake: sheets("G101").Cells(3,15) I format at percent, now I format at general the code work

Thanks all one more time

 

[Peter_SSs]

Thanks @Peter_SSs

I'ver just found the mistake: sheets("G101").Cells(3,15) I format at percent, now I format at general the code work

Thanks all one more time

I'm also glad things seem to be working for you now, but the formatting of cell O3 on G101 as Percentage or General should make no difference to whether the code gave an overflow error or not.