RE: Deleting blank values from an array

Thanks norika for the response. I can't delete the rows in the spread***
though.

Thanks Greg. Your routine will work. There will not be more than 80
elements in the array so it will be quick running. I will also try to
eliminate the blank entries before they are added to the array. So may be a
combination of both to work every time.

Any other ideas would be appreciated too. Always nice to have multiple
solutions.

"Greg Wilson" wrote:

> It seems that the easiest approach would be to prevent blank values from
> getting added to the array in the first place. Failing that, one simple
> solution is to transfer non-blank values from the original array to a second
> dynamic array. Then use the second array and forget the first. I'm sure
> someone has a more elegant solution. I think it would be more efficient to
> sort afterwards.
>
> 'Where Arr is array containing blanks and Arr2 is dynamic array
> ii = 0
> For i = LBound(Arr) To UBound(Arr)
> If Arr(i) <> "" Then
> ReDim Preserve Arr2(ii)
> Arr2(ii) = Arr(i)
> ii = ii + 1
> End If
> Next
>
>
> Regards,
> Greg
>
> "Rich J" wrote:
>
> > I have an array that gets populated with dates from various ranges in my
> > spread***. In the process blank values also get included. Once filled, I
> > would like to sort the array with the earliest date in H(0) and the blank
> > ones deleted by redimensioning the array.
> > I figured out one way to sort but the blank ones are all in the lower
> > indexes with the sorted dates at the end.
> > Is there an easy way to delete the empty elements of the array either while
> > sorting or another routine after the sort ?
> > I used the sorting routines in this help site
> >
> > http://support.microsoft.com/?kbid=213818
> > I tried a filter routine but it created an error
> > Thanks
.