Application Defined Error

  • Thread starter Thread starter T De Villiers
  • Start date Start date
T

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
 
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]...
 
Back
Top