'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
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
Post a Comment