overflow error

[cmccabe]

Hello,

The following code works if there are 4 values in B2:B, however if there are only 3 and one of the values is zero or blank I get an overflow error. Can a line of code be put in that if the value of B2:B = 0 Then it is ignored or not calculated? I have attached the spreadsheet as well.Thanks.

Private Sub CommandButton1_Click()
Dim lRow As Long: lRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim myArray()
Dim x As Long




myArray = Range("B2:B" & lRow)


For x = 1 To UBound(myArray)
If myArray(x, 1) > 100 Then
Cells(x + 1, "C") = myArray(x, 1) / 10
Cells(x + 1, "D") = (myArray(x, 1) / 2) / Cells(x + 1, "C")
Cells(x + 1, "E") = (myArray(x, 1) / 2) - Cells(x + 1, "D")


Else
Cells(x + 1, "C") = myArray(x, 1) / 10
Cells(x + 1, "D") = (myArray(x, 1) / Cells(x + 1, "C"))
Cells(x + 1, "E") = myArray(x, 1) - Cells(x + 1, "D")
End If


Next
End Sub

[nilem]

Hi cmccabe,
try

Private Sub CommandButton1_Click()
Dim lRow As Long, myArray, x As Long
lRow = Cells(Rows.Count, 2).End(xlUp).Row
If lRow = 1 Then Exit Sub
myArray = Range("B1:B" & lRow).Value
For x = 2 To UBound(myArray)
    If myArray(x, 1) > 100 Then
        Cells(x, "C") = myArray(x, 1) / 10
        If Cells(x, "C") = 0 Then Cells(x, "D") = 0 Else Cells(x, "D") = (myArray(x, 1) / 2) / Cells(x, "C")
        Cells(x, "E") = (myArray(x, 1) / 2) - Cells(x, "D")
    Else
        Cells(x, "C") = myArray(x, 1) / 10
        If Cells(x, "C") = 0 Then Cells(x, "D") = 0 Else Cells(x, "D") = myArray(x, 1) / Cells(x, "C")
        Cells(x, "E") = myArray(x, 1) - Cells(x, "D")
    End If
Next
End Sub

[cmccabe]

Thank you very much