View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
BEETAL BEETAL is offline
external usenet poster
 
Posts: 30
Default Run-time error '1004' . Please help. Request for immediate attent

can somebody tell me how to correct this code. I get runtime 1004 error or
type mismatch error(where is the type mismatch!!!). the MMult function doe
not get activated in my VBE.
rewuest for immediate attention.

Option explicit
Option Base 1
Sub mmatrixmulttest()
Dim q, ran, t, X As Double
Dim Randommat() As Variant
Dim CMAT() As Variant
CMAT = Application.Range("VC")
X = UBound(CMAT, 1)
Dim matrixinter() As Variant
Dim matrixinter2() As Variant
ReDim matrixinter(X, X)
ReDim matrixinter2(X, X)
ReDim CMAT(X, X)
ReDim Randommat(1, X)
For q = 1 To X
ran = Application.WorksheetFunction.NormSInv(Rnd())
Randommat(1, q) = ran * t
Next q
Dim Rmattranspose() As Variant
ReDim Rmattranspose(X, 1)
Rmattranspose = Application.WorksheetFunction.Transpose(Randommat)
With Application
matrixinter = .MMULT(Rmattranspose, CMAT)
matrixinter2 = .MMULT(CMAT, CMAT)' this multiplication also does not
'work.Typemismatch is the error
End With
End Sub
--
beetal