Application Defined Error

[T De Villiers]

the below is a macro to divide b5/b4, b7/b6 etc.
Howevr if b4,b6etc. are zero the formula should give zero,
below isnt quite working, any help is much app.


Sub cc()
i = 5
Do Until i = 15
If Cells(1 - 1, 2) = 0 Then
Cells(i, 3) = 0
Else
Cells(i, 3) = Cells(i, 2) / Cells(i - 1, 2)
End If
i = i + 2
Loop

End Sub

 

[Norman Jones]

Hi T,

Try changing:

If Cells(1 - 1, 2) = 0 Then

to

If Cells(i - 1, 2) = 0 Then


---
Regards,
Norman



"T De Villiers" <[email protected]>
wrote in message

 

[Bernard Liengme]

You macro works for me when I correct the typo in
FROM If Cells(1 - 1, 2) = 0 Then
TO If Cells(i - 1, 2) = 0 Then

That's why I never use i (upper or lower) or l (l for leather) as variables
I started out with FORTRAN and everything was caps; these letters and 1 are
hard to distinguish,
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"T De Villiers" <[email protected]>
wrote in message
news:[email protected]...