Custom VBA Function to Calculate Fuel Consumption

[NeedForExcel]

I want some help in creating a UDF for calculation Mileage of a Car.


Variables that will change - (Examples given in Bracket)

Mileage/Liter (20 Kms/Liter)
Fuel Rate/Liter (Rs. 80/Liter)

The Calculation goes like -

Mileage = (Fuel Rate/Liter) / (Mileage/Liter)

That it -

Mileage = 80/20

Therefore Mileage is Rs. 4/Km



Thank You,

Deep

[AlvaroSiza]

Does this work?

Function FUELRATE(rngFRperL As Range, rngMperL As Range) As Long

FUELRATE = (rngMperL / rngFRperL)

End Function

[NeedForExcel]

Hey thank you for the reply..

It does not work..

[AlvaroSiza]

Assume:

"A1" contains Fuel Rate / Liter (80), and
"A2" contains Mileage/Liter (20)

When I enter

=FUELRATE(A1,A2)

in Cell "A3" I get a value of 4, which is what your original post developed. If this is still in error, I am obviously misinterpreting your request.

Public Function FUELRATE(rngFRperL As Range, rngMperL As Range) As Long

FUELRATE = (rngFRperL / rngMperL)

End Function

[NeedForExcel]

What you said is perfectly right.

However those 80 & 20 will not be in any cell. I want to put that directly in a formula.

I tried that, but it just wudnt work..