'Macro program for Sumif functions or Array

'Macro program for Sumif functions or Array
Sub Macro2Sumif()

    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("S1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("S1").Select
    Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo
    Range("T1") = "English"
    Range("U1") = "Hindi"
    Range("V1") = "Math"
    Range("W1") = "Science"
    Range("X1") = "Computer"
   
For R = 2 To 4
For C = 20 To 24
Cells(R, C) = Application.WorksheetFunction.SumIf(Range("$B$2:$G$201"), Cells(R, 10), Range("c$2:c$201")) / Application.WorksheetFunction.Sum(Range("c$2:c$201"))

Next C
Next R

End Sub

Comments

Popular posts from this blog

TDS Calculation System

VBA - Additional Controls Dialog Box "MISSING"

Loan EMI Calculator Dashboard