Array subscript out of range issue

[get2noesks]

Hi Team,

I am getting an error while executing the code detailed below.

Private Sub Workbook_Open()
Dim WS1 As Worksheet
Dim WS2 As Worksheet

Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")

Dim testCollection As Collection
Dim SIZE As Integer, sortCol As Integer, sortRow As Integer, loopcntl As Integer
Set testCollection = getValuesToSort
'Debug.Print testCollection.Item(3)

'Debug.Print testCollection.Count
sortRow = 1
loopcntl = 1
SIZE = testCollection.Count
If SIZE <= 0 Then
MsgBox ("Nothing To Search for a sort")
End If

For loopcntl = 1 To SIZE
'MsgBox (loopCntl)
'MsgBox testCollection.Item(loopCntl)
'Call sortData(sortRow, loopCntl)
Dim completeArray() As String, arrayLeft() As String, arrayRight() As String
Dim arrayInputCntlVar As Integer, firstIndex As Integer
firstIndex = sortRow
arrayInputCntlVar = testCollection.Item(loopcntl)

Dim i As Integer
i = 0

While (WS1.Cells(sortRow + 1, arrayInputCntlVar)) <> ""
completeArray(i) = WS1.Cells(sortRow + 1, arrayInputCntlVar).ValuesortRow = sortRow + 1
i = i + 1
Wend

Dim lastIndex As Integer
lastIndex = i + 1
Call MergeSort(completeArray(), firstIndex, lastIndex)

Next loopcntl

End Sub

Regards
Saurabh

 

[Roger Govier]

Hi

I haven't checked the rest of your code in detail, but

completeArray(i) = WS1.Cells(sortRow + 1, arrayInputCntlVar).ValuesortRow = sortRow + 1

should be on 2 rows

completeArray(i) = WS1.Cells(sortRow + 1, arrayInputCntlVar).Value
sortRow = sortRow + 1

 

[Andrew Poulsom]

You haven't dimensioned completeArray.

 

[get2noesks]

Hi Roger,

I have it in the same way as you have mentioned. The post shows it this way because of a typo.

Regards
Saurabh

 

[get2noesks]

Hi Andrew,

Request you to please elaborate on that because I did dimension the array with the line of code 'Dim completeArray() As String'

Regards
Saurabh

 

[Andrew Poulsom]

You have declared it, but you haven't given it any dimensions, eg:

Dim completeArray(1 To 10) As String

 

[get2noesks]

I thelped. Thanks a lot