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

Hi T,

Try changing:

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

to

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


---
Regards,
Norman



"T De Villiers"
wrote in message
news:T.De.Villiers.21tttb_1137581402.5197@excelfor um-nospam.com...

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"
wrote in message
news:T.De.Villiers.21tttb_1137581402.5197@excelfor um-nospam.com...

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