Array Dinamico

[Zeroton]

to tentando adaptar esse codigo pra transformar uma matriz 2xN para 1xN e depois armazenar num array e devolver já em ordem decrescente, mas está dando erro no arraysize

vocês podem me ajudar?

Public Sub org()

Dim tempVar As Integer

Dim anotherIteration As Boolean

Dim I As Integer

Dim arraySize As Integer

Dim myArray(), myArray2(), quente(), frio(), frio2() As Integer

'‘———————————

'‘Get the array size.

'‘———————————

I = 3

If Cells(I, "E").Value = "Quente" Then

Do

arraySize = J

arraySize = arraySize + 1

I = I + 1

J = J + 1

Loop Until Cells(I, "E").Value = ""

End If

ReDim myArray(arraySize - 1)

'‘————————————————————-

'‘Get the values. Convert text to numbers.

'‘————————————————————-

For I = 0 To arraySize

If Cells(I, "E").Value = "Quente" Then

For J = 0 To arraySize

myArray(I) = Val(Cells(3 + J, "B").Value)

myArray(I + 1) = Val(Cells(3 + J, "c").Value)

I = I + 2

J = J + 1

Next J

End If

Next I

Do

anotherIteration = False

For I = 0 To arraySize - 2

If myArray(I) > myArray(I + 1) Then

tempVar = myArray(I)

myArray(I) = myArray(I + 1)

myArray(I + 1) = tempVar

anotherIteration = True

End If

Next I

Loop While anotherIteration = True

'‘————————————

'‘Write data to column J.

'‘————————————

For I = 3 To arraySize

Cells(I, "j").Value = myArray(I - 1)

Next I

End Sub

[Graymalkin]

Qual a linha especificamente?

Abraços,

Graymalkin