J
Joel
Sub test()
'how to apply this matric in vba by replacing
Set Myarray_1 = Range("O11:O17")
Set Myarray_2 = Range("P1117")
Set Myarray_3 = Range("Q11:Q17")
Set Myarray_4 = Range("R11:R17")
Range("A1").Formula = "=SUM((" & Myarray_1.Address & "=O18)* " _
& "(" & Myarray_2.Address & "=P18)*(" _
& Myarray_3.Address & "=Q18)*(" & _
Myarray_4.Address & "=R18))"
End Sub
'how to apply this matric in vba by replacing
Set Myarray_1 = Range("O11:O17")
Set Myarray_2 = Range("P1117")
Set Myarray_3 = Range("Q11:Q17")
Set Myarray_4 = Range("R11:R17")
Range("A1").Formula = "=SUM((" & Myarray_1.Address & "=O18)* " _
& "(" & Myarray_2.Address & "=P18)*(" _
& Myarray_3.Address & "=Q18)*(" & _
Myarray_4.Address & "=R18))"
End Sub