Question

This is my first time using VBA for Excel (I usually code Java and C++), and I was hoping to get some tips to start out.

I want to write a macro for a large data set that will proceed through the following list of conditions to provide a dollar result:

1. Collect unit size from column A (Possible values 0-8)
2. Determine whether single or family unit from Column B (Single- 1, Family- 0)
3. Collect utility code from Column C (code for type of product being assessed)

From this information, a new value will be placed in the row which determines utility costs by taking into account unit size, type of unit, and the product in question. I have thought about using nested Select Case or nested conditionals in a loop, but overall I am pretty lost.

Answer 1

It seems like a worksheet formula might do the trick, but it’s hard to tell without knowing what the calculation is. Below is a user-defined function (UDF) that you would put in a standard module. You would call it from a cell like:

=computecosts(A2,B2,C2)

Obviously the code would change depending on how your data is laid out and what your calculation is.

Public Function ComputeCosts(rSize As Range, rFamily As Range, rCode As Range) As Double

    Dim lSizeFactor As Long
    Dim lFamilyFactor As Long
    Dim dCodeFactor As Double
    Dim rFound As Range

    Const lFAMILY As Long = 0

    'Size factor is a function of 0-8, namely adding 1
    lSizeFactor = rSize.Value + 1

    'Family factor is computed in code
    If rFamily.Value = lFAMILY Then
        lFamilyFactor = 3
    Else
        lFamilyFactor = 2
    End If

    'Code factor is looked up in a different sheet
    Set rFound = Worksheets("Sheet2").Columns(1).Cells.Find(rCode.Value, , xlValues, xlWhole)
    If Not rFound Is Nothing Then
        dCodeFactor = rFound.Offset(0, 1).Value
    End If

    'do the math
    ComputeCosts = lSizeFactor * lFamilyFactor * dCodeFactor

End Function