weighted average VBA Code

[kiran66]

Hii



i have an excel sheet and iam trying to get the weighted averages for the 4 parameters based on their date, if any one can solve my question it would help to my work. i need macros code for calculating weighted average.

upto now i did the simple average by using below code. can you modify this simple average code to weighted average code

Range("Q" & P + 7) = Round(WorksheetFunction.AverageIf(Range("A8:A" & lastRow_R), CDate(xCol2.Item(P)), Range("E8:E" & lastRow_R)), 2)

Range("R" & P + 7) = Round(WorksheetFunction.AverageIf(Range("A8:A" & lastRow_R), CDate(xCol2.Item(P)), Range("F8:F" & lastRow_R)), 2)

Range("S" & P + 7) = Round(WorksheetFunction.AverageIf(Range("A8:A" & lastRow_R), CDate(xCol2.Item(P)), Range("G8:G" & lastRow_R)), 2)

Here

A Column indicates-Date

E,F&G Column Indicates- Parameters

C Column indicates -Weight for respected item

Q,R,S Column indicates - average results to be shown here

 

[kiran66]

Hii,

can i get the same code in the module 3 line number 53 we are getting average for the total number of quantities here also we need weighted average

present i am getting the average values of P,Q,R,S,T columns of individual sheet in performance sheet D,E,F,G,H by using module 3 code , but i need weighted average here also based on the start date and end date

 

[maabadi]

When you get weighted average at module 1, module 3 only copy that weighted averages to worksheet(2).