excel formula and vba

[Guest]

I have this formula in cell:
=SUM(C12:L12)/((COUNTIF(C12:L12,">=0"))*24)

I need to be able to "convert" this to vba code.
??
thanks!!

 

[Guest]

one way :

Dim dblAnswer As Double
With WorksheetFunction
dblAnswer = .Sum(Range("C12:L12")) / (.CountIf(Range("C12:L12"), ">=0")
* 24)
End With

 

[Guest]

thank you Vergel. I think we are very close. This actually works but I
would like the formula in the cell instead of the value

-m

 

[Guest]

To put the formula in a cell, A1 for example:

Activesheet.Range("A1").Formula =
"=SUM(C12:L12)/((COUNTIF(C12:L12,"">=0""))*24)"

 

[Guest]

The double quotes "">="" was messing me up. Thank you, this answered my
question!!