Run Time Error '6'

[beneesetas14]

In my project, when i am trying to changing the values first time using drop down list its showing error " Run time Error '6' over flow

coding of the project is


Dim nota As Long, free As Long, total As Long

nota = Application.WorksheetFunction.CountIf(Range("E9:E23"), "N/A")
free = Application.WorksheetFunction.CountBlank(Range("E9:E23"))
total = nota + free


Range("i24").Value = (((WorksheetFunction.Sum(Range("f9:f23"))) / ((Range("a23").Value) - (total)))) / CLng(100)



file attached

[AB33]

It is pass word protect code. Overflow error could mean you are trying to divide a number by zero.

[beneesetas14]

sorry , i will attach new excel sheet

[AB33]

The mathematical operation is wrong

Please Login or Register  to view this content.

My suggestion is to break-down the code in to each part, like

Please Login or Register  to view this content.

[beneesetas14]

Done a great job for me to make my work easy

[Norie]

This is the actual code from the workbook, and totalrange is 0, which means you are dividing by zero later on and that's why you get the overflow error.

Please Login or Register  to view this content.

Try adding a check for totalrange.

Please Login or Register  to view this content.