Compile error: Array already dimensioned

[curious K]

Dim GrpTot(1, 2)
'Col 1 : Amt
'Col 2 : row no for Where to put
'col 3 : Column no for where to put




GrpTot(0, 0) = 4896.00
GrpTot(0, 1) = 5
GrpTot(0, 2) = 2


Sheets("Summary").Cells(GrpTot(0, 2), GrpTot(0, 1)) = GrpTot(0, 0)




ReDim Preserve GrpTot(2 To 2)




GrpTot(0, 0) = 12541.00
GrpTot(0, 1) = 5
GrpTot(0, 2) = 18


Sheets("Summary").Cells(GrpTot(0, 2), GrpTot(0, 1)) = GrpTot(0, 0)






Error occured at ReDim syntax
---------------------------
Microsoft Visual Basic for Applications
---------------------------
Compile error:


Array already dimensioned
---------------------------
OK Help
---------------------------

 

[Kyle123]

To define a dynamic array, don't Dim it with a size:

Dim GrpTot() As Variant
ReDim GrpTot(1,2)

You can't redim preserve the first dimension of an array, only the last

 

[curious K]

Sorry I'm new for excel vba world.

Its solved with above code

Thanks