After Dim xDataArray(10940) As Integer, xDataArray is a one-dimensional
array with all elements equal to 0. What are you expecting

Worksheets("NeeleyNedPRE").Range("I" & rowCount).Value =
xDataArray(rowCount)

to do? (It is simply setting all the values in I21:I10940 to 0.)

Alan Beban

anjem wrote:

Dim xDataArray(10940) As Integer
Dim rowCount As Integer
For rowCount = 21 To 10940
Worksheets("NeeleyNedPRE").Range("I" & rowCount).Value =
xDataArray(rowCount)
Next rowCount
Dim Check As Boolean
Check = True
Dim xArray(10940) As Integer
Dim xCount As Integer
xCount = 0
Dim pRow, pCol As Integer
pRow = 21
pCol = 12
Do
Do While i 10920
If (Worksheets("NeeleyNedPRE").Range("L" & pCol).Value = 0)
Then
xCount = xCount + 1
pRow = pRow + 1
i = i + 1
xArray(i) = xCount
Else
pRow = 0
pCol = pRow + 1
i = i + 1
xArray(i) = xCount
End If
Loop
Check = False
Loop Until Check = False


---
Message posted from http://www.ExcelForum.com/