Re: Array Sum matching value against another sheet column and add value
NBVC,
Sorry for the late reply.
below is my UDF that I am using to get results which I want to convert to array formula where I should pass to my peers who have spreadsheet software (free version) instead MS Excel.
Public Function GETTOTALLENGTH(USERNAME As Range, FINALUSERNAMELIST As Range, COMPAREIMAGELIST As Range, FINALIMAGELIST As Range, Optional Mode = 1) As Integer
Dim FINALUSERNAMELISTDB, FINALIMAGELISTDB As Variant
FINALUSERNAMELISTDB = FINALUSERNAMELIST
FINALIMAGELISTDB = FINALIMAGELIST
Dim i, j As Integer
Dim r As Range
For i = LBound(FINALUSERNAMELISTDB) To UBound(FINALUSERNAMELISTDB)
If (FINALUSERNAMELISTDB(i, 1) = USERNAME.Value) Then
LookedUpImageRow = Application.WorksheetFunction.Match(FINALIMAGELISTDB(i, 1), COMPAREIMAGELIST, 0) + 1
If Mode = 1 Then
j = j + Worksheets(COMPAREIMAGELIST.Parent.NAME).Range("AA" & LookedUpImageRow).Value
Else
For Each r In Worksheets(COMPAREIMAGELIST.Parent.Name).Range("C" & LookedUpImageRow & ":W" & LookedUpImageRow)
If InStr(1, r.Value, " | ", vbTextCompare) > 0 Then
j = j + Len(Mid(r.Value, InStr(1, r.Value, "| ", vbTextCompare) + 2, Len(r.Value)))
End If
Next r
End If
End If
Next i
GETTOTALLENGTH = j
End Function
Display More