FORMULA MATRICIAL

[ricardo miguel de souza]

Prezado(s):
Gostaria que o codigo na sua ultima linha produzisse uma formula matricial.

Sub MatrizMult()
Dim MyArray As Variant, MyArray2 As Variant
Dim MyTranspose As Variant
Dim MyArrayF As Variant
Dim MyTransposeF As Variant
Dim iCol As Integer, iRow As Integer

Set MyArray = Range("f3").CurrentRegion
Set MyArray = MyArray.Offset(1, 0).Resize(MyArray.Rows.Count - 1, MyArray.Columns.Count)
MyTranspose = WorksheetFunction.Transpose(MyArray)
MyTranspose = WorksheetFunction.MInverse(WorksheetFunction.MMult(MyTranspose, MyArray))
Set MyArray = Range("M15:O15")
MyArray2 = WorksheetFunction.Transpose(MyArray)

'**** a proxima linha deve ser gerada em formula matricial
Range("N24") = WorksheetFunction.MMult(WorksheetFunction.MMult(MyArray, MyTranspose), MyArray2)

end sub

Grato,
Ricardo