Overflow error when dividing by anything

[brennanhagan]

Using these values for my array I get an overflow error when trying to findthe inverse

A
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25

Code below(the problem line is indicated as an *):

Sub InvertThis()

Dim marray(5, 5) As Long
Dim harray(5, 5) As Long
Dim iarray(5, 5) As Double
Dim i As Integer
Dim j As Integer

Range("A2").Activate


'First loop to store values from spreadsheet for marray and harray
For i = 0 To 4
For j = 0 To 4
marray(i, j) = ActiveCell.Value
harray(i, j) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
Next j
ActiveCell.Offset(1, -5).Activate
Next i

'Second loop to store the inverse matrix iarray
For i = 0 To 4
For j = 0 To 4
*** iarray(i, j) = 1 / harray(i, j)
Next j
Next i

End Sub

[Norie]

The code works fine for me.

Where is the code actually located and which range/sheet is the data in?

Does the data definitely start in A2?

[brennanhagan]

Attachment 668877

Attached is the spreadsheet.

The exact error I get is when stepping through the code I get Runtime error '6' : Overflow

[Norie]

Sorry that attachment doesn't seem to have worked.

I've attached a workbook where I have the code working.

[Kaper]

Indeed it works fine only up to 2 147 483 647 (and down to negative -2 147 483 648) (ca. 2.1*10^9) because as opposite to several other languages long type does not accept 64-bit (8-byte) integers (from -9 223 372 036 854 775 808 to 9 223 372 036 854 775 807 (ca 9,2*10^18) but only 4 byte (32 bits) numbers.

So if you expect such large numbers change arrays definition to double. But remember about accuracy - its only some 15 digits anyway.