What is wrong with this VBA code?

karraj · Mar 22nd, 2002, 05:00 PM

This function displays #value if the matrix dimension is greater than 73*73! It works fine otherwise
Any pointers on why I am having problems would be great.
Thanks,
Karraj

Function fullmatrix(matrix) As Variant
Set therange = matrix
nrows = matrix.Rows.Count
ReDim matrix(1 To nrows, 1 To nrows) As Double
Dim outp1() As Double
ReDim outp1(1 To nrows, 1 To nrows)
For i = 1 To nrows
For j = 1 To i
outp1(i, j) = therange.Cells(i, j)
Next
Next
For j = 1 To nrows
For i = j + 1 To nrows
outp1(j, i) = outp1(i, j)
Next
Next

Russell Hauf · Mar 22nd, 2002, 05:19 PM

I think maybe you forgot the end of the function?

karraj · Mar 22nd, 2002, 05:20 PM

I forgot to cut/copy paste the endfunction. My code has it.
Karraj

Russell Hauf · Mar 23rd, 2002, 10:25 AM

What exactly are you trying to accomplish with this? You don't set anything to fullmatrix...

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 22nd, 2002, 05:00 PM	#1
karraj Board Regular Join Date: Mar 2002 Posts: 76	This function displays #value if the matrix dimension is greater than 73*73! It works fine otherwise Any pointers on why I am having problems would be great. Thanks, Karraj Function fullmatrix(matrix) As Variant Set therange = matrix nrows = matrix.Rows.Count ReDim matrix(1 To nrows, 1 To nrows) As Double Dim outp1() As Double ReDim outp1(1 To nrows, 1 To nrows) For i = 1 To nrows For j = 1 To i outp1(i, j) = therange.Cells(i, j) Next Next For j = 1 To nrows For i = j + 1 To nrows outp1(j, i) = outp1(i, j) Next Next

Mar 22nd, 2002, 05:19 PM	#2
Russell Hauf MrExcel MVP Join Date: Feb 2002 Location: Portland, OR USA Posts: 1,374	I think maybe you forgot the end of the function?

Mar 22nd, 2002, 05:20 PM	#3
karraj Board Regular Join Date: Mar 2002 Posts: 76	I forgot to cut/copy paste the endfunction. My code has it. Karraj

Mar 23rd, 2002, 10:25 AM	#4
Russell Hauf MrExcel MVP Join Date: Feb 2002 Location: Portland, OR USA Posts: 1,374	What exactly are you trying to accomplish with this? You don't set anything to fullmatrix...