Writing to a non-base level member

Question

I don't believe it's possible to write directly to non-base level so I'm looking for alternatives.  We are trying to simplify the budget input process in situations where we have an occupational code with multiple levels.  For example, we have a Technical Associate position which can be a level I, II, II, or IV.  Rather than input FTE's for each of the four levels, we want to input the total number of Technical Associate FTE's using a single occupational code.
I believe I will have to create a "dummy" base level ID for these postions and have the dummy ID along with the original 4 level ID's roll up to a new parent ID that encompasses all 5 ID's.  Has anyone done something along these lines and have adivce or suggestions on how to proceed? I wanted to hear from others before I start making any changes.
Best Regards

Answer 1

Hi Pablo,
I have created a sample excel for the idea. But I can't share xlsm file here. To reproduce the sample:
Create new blank excel workbook
Fill the data as described in this pic:
Open VB Editor (alt+F11) and paste this code in sheet1
'-------------------------------------------------------Code Start -------------
Dim cacheValue
Dim revertFlag As Boolean
Private Sub Worksheet_Change(ByVal target As Range)
    Dim childNo As Long
    Dim avgVal As Double
    Dim iterator As Range
    Dim lv_cache
    If IsParentLevelValue(target) And revertFlag = False Then
        revertFlag = True
        lv_cache = cacheValue
        Debug.Print "Assigning Cache : " & lv_cache
        childNo = GetChildNumber(target, 8)
        avgVal = target.Value / childNo
        Set iterator = target
        'MsgBox iterator.Value
        Do While childNo > 0
            Set iterator = iterator.Offset(1, 0)
            'MsgBox "Target level = " & GetLevel(target) & ";Iterator = " & iterator.Row & "," & iterator.Column & " level " & GetLevel(iterator)
            If GetLevel(iterator) = GetLevel(target) + 1 Then
                If IsParentLevelValue(iterator) Then
                    cacheValue = iterator.Formula
                    revertFlag = False
                End If
                Debug.Print "Assigning Value " & avgVal & " to " & iterator.Address
                iterator.Value = avgVal
                revertFlag = True
                childNo = childNo - 1
            End If
        Loop
        Debug.Print "Assigning back formula " & lv_cache & " to " & target.Address
        target.Formula = lv_cache
        revertFlag = False
        'target.Offset(1, 0).Select
    End If
End Sub
Function GetLevel(target As Range)
GetLevel = Cells(target.Row, 7)
End Function
Private Sub Worksheet_SelectionChange(ByVal target As Range)
'If revertFlag Then
'    revertFlag = False
'Else
cacheValue = target.Formula
Debug.Print "Selection : " & target.Address
'End If
End Sub
Function GetChildNumber(parentCell As Range, childIdentifierCol As Integer)
Dim lr_counter As Range
Dim lv_level As Long
lv_level = Cells(parentCell.Row, childIdentifierCol - 1).Value
'Debug.Print lv_level
GetChildNumber = 0
For i = parentCell.Row + 1 To 1000000
    'Debug.Print Cells(i, childIdentifierCol - 1).Value
    If Cells(i, childIdentifierCol - 1).Value = lv_level + 1 Then
        GetChildNumber = GetChildNumber + 1
    ElseIf Cells(i, childIdentifierCol).Value = "" Or Cells(i, childIdentifierCol - 1).Value = lv_level Then
        Exit For
    End If
Next
End Function
Function IsParentLevelValue(target As Range)
    If target.Column >= 9 And target.Column <= 12 And Cells(target.Row, 8).Value = "Y" Then
        IsParentLevelValue = True
    Else
        IsParentLevelValue = False
    End If
End Function
'------------Code End----------------------------------
Then to test it, you can fill in value in Cells that are indicated as parent. (See Column H). Value can be filled into column I and J.
The solution is still rough, but you can get the idea of it
Hope this helps.
BR
Hendry
Edit:
1. This solution will only work if you check option "Calculate Parent in Hierarchies"
2. For the sample solution, make sure the formula for parent level is subtotal. i.e. column I8 should be =SUBTOTAL(9,I9:I10), and column I5 should be =SUBTOTAL(9,I6:I15)
Message was edited by: Hendry Kosasi