VBA Formula Errors
Change following code
'Error at following statement
Iter.Offset(0, 5).Value = ([ Iter.Offset(0,3).value * (1 - _
Iter.Offset(0,3).value)] / Iter.Value) ^ (0.5) 'Sigma
calculation
with
Iter.Offset(0, 5).Value = ((Iter.Offset(0, 3).Value * (1 - _
Iter.Offset(0, 3).Value)) / Iter.Value) ^ (0.5) 'Sigma
calculation
--
Haldun Alay
"Barb Reinhardt" , haber iletisinde
şunları ...
For Each Iter In Range("Opportunities")
Debug.Print Iter.Value
If Iter.Value 0 Then
Iter.Offset(0, 3).Value = "=P_Bar"
'This works, but I really want the VALUE, not the formula
Debug.Print Iter.Offset(0, 3).Value, Iter.Value
'Error at following statement
Iter.Offset(0, 5).Value = _
([ Iter.Offset(0,3).value * (1 - Iter.Offset(0,3).value)] /
Iter.Value) ^ (0.5) 'Sigma calculation
Iter.Offset(0, 2).Value = Iter.Offset(0, 3).Value - 3 *
Iter.Offset(0, 5).Value 'LCL
Iter.Offset(0, 4).Value = Iter.Offset(0, 3).Value + 3 *
Iter.Offset(0, 5).Value 'UCL
Iter.Offset(0, 6).Value = _
(Iter.Offset(0, 1).Value - Range("P_Bar").Value) /
Iter.Offset(0, 5) 'Zi calculation
Else
Iter.Offset(0, 5).FormulaR1C1 = "=NA()" 'Sigma calculation
Iter.Offset(0, 2).FormulaR1C1 = "=NA()" 'LCL Calculation
Iter.Offset(0, 3).FormulaR1C1 = "=NA()" 'CL Calculation
Iter.Offset(0, 4).FormulaR1C1 = "=NA()" 'UCL Calculation
Iter.Offset(0, 6).FormulaR1C1 = "=NA()" 'Zi Calculation
End If
Next
Can someone assist?
Thanks,
Barb
|