run time error 11: Division by zero

[Rajat baid]

I am new to VBA programming and am trying to develop a simple code for RCC design. Most of the values are assigned directly from the excel sheet. I am getting this error that says "division by zero".The line within **(red) ** is highlighted while debugging. it seems there is some problem with declaration or looping but i am not being able to identify. Pls help. Thanx in advance. The code is as follows:

<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif; white-space: inherit; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;">Private Sub CommandButton1_Click() Dim a As Double, b As Double, result As String, Mu As Double
Dim i As Integer, j As Integer, c As Integer, Xu1 As Double, Xu As Double, es As Double, d As Double, f As Double, fs As Double
Dim strain1(1 To 6) As Double, stress1(1 To 6) As Double
a = Range("E30").Value
b = Range("O30").Value
If a < b Then
result = "Under Reinforced Section"
Mu = Range("E32").Value * Range("E34").Value
ElseIf a = b Then
result = "Balanced Secction"
Mu = Range("E32").Value * Range("E34").Value
ElseIf a > b Then
result = "Over Reinforced Section"
j = 31
For i = 1 To 6
strain1(i) = Cells(j, 7)// loop to assign values in array from excel sheet
j = j + 1
Next
j = 31
For i = 1 To 6
stress1(i) = Cells(j, 8)
j = j + 1
Next
c = 1
Xu1 = Range("O30").Value// The debugger shows the correct value on the RHS but shows zero on the LHS
d = Range("E31").Value
Do While c = 1
Xu = Xu1
**es = 0.0035 * (d - Xu) / (Xu)**// apparently Xu is taking value zero
If Range("E22").Value = 250 Then
fs = es * Range("E23").Value
f = 0.87 * Range("E22").Value
If fs > f Then
fs = f
End If
ElseIf Range("E22").Value = 415 Then
f = 0.696 * Range("E22").Value / Range("E23").Value
If es > f Then
For i = 1 To 6
If es > strain1(i) And es < strain1(i + 1) Then// to locate es in the array and then interpolate
fs = stress1(i) + ((stress1(i + 1) - stress1(i)) / (strain1(i + 1) - strain1(i))) * (es -strain1(i))
End If
Next
ElseIf es < f Then
fs = es * Range("E23").Value
End If
Xu1 = Range("O29").Value * fs / (0.36 * Range("E21").Value * Range("E16").Value)
If Xu1 = Xu Then
c = 0
End If
Mu = 0.36 * Range("E21").Value * Range("E16").Value * Xu1 * Range("E34").Value
End If
Loop
End If
Range("O21").Value = Mu
MsgBox result
End Sub</code>

 

[Special-K99]

Agreed, Xu looks like it is zero.
Am No VBA expert but looking at the code I'd have to say that the cell O30 from which Xu1 gets its value must be zero.

Or maybe O30 is text and returning zero to your VBA?
Can you confirm O30 is actually a number and not text?

 

[Rajat baid]

yes it is a number. in fact the debugger shows the number when the cursor is on the RHS but shows 0 when the cursor is on Xu1

 

[Rajat baid]

Yes it is a number. in fact the debugger shows the correct value when the cursor is over the RHS but shows 0 when the cursor is over LHS.

 

[Special-K99]

I think it's this causing the 0 (at some point)

Xu1 = Range("O29").Value * fs / (0.36 * Range("E21").Value * Range("E16").Value)

So same question are E21 E23 or E16 text or zero?
If they are all non zero numbers I'd say
this may also be causing the problem somewhere along the line

fs = stress1(i) + ((stress1(i + 1) - stress1(i)) / (strain1(i + 1) - strain1(i))) * (es -strain1(i))

Best thing is to debug the above values/variables and see if one changes to zero.

 

[Rajat baid]

Is there any problem with declaration of variables. And if the cells had been zero how would it show the correct value on the RHS.
Xu1 = Range("O29").Value * fs / (0.36 * Range("E21").Value * Range("E16").Value)
On the RHS debugger shows the correct value. When on Xu1 it shows 0. How is it possible?