Posted to microsoft.public.excel.programming
|
|
Application Defined Error
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
|