SUMIF MULTY KRETERIA - EXCEL VBA

PASTEKAN KIDE BERIKUT PADA WORKSHEET

Private Sub worksheet_change(ByVal target As Range)

If Not Intersect(target, [H3]) Is Nothing Then

Dim Sum As Integer, i As Integer

Dim F As Range

Dim S As String

S = Range("F6").Value

For i = 1 To Len(S)

Set F = Range("B6:B20").Find(Mid(S, i, 1))

If Not F Is Nothing Then

Sum = Sum + F.Offset(0, 2).Value

End If

Next i

Range("G6").Value = Sum

End If

End Sub

SILAHKAN MENCIBA !
SEMOGA BERMANFAAT