Application Defined Error

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

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
news:[email protected]...
>
> 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
>
>
> --
> T De Villiers
> ------------------------------------------------------------------------
> T De Villiers's Profile:
> http://www.excelforum.com/member.php...o&userid=26479
> View this thread: http://www.excelforum.com/showthread...hreadid=502401
>

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]...
>
> 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
>
>
> --
> T De Villiers
> ------------------------------------------------------------------------
> T De Villiers's Profile:
> http://www.excelforum.com/member.php...o&userid=26479
> View this thread: http://www.excelforum.com/showthread...hreadid=502401
>