Deleting element in Array

[ExcelMonkey]

I have a 1-D array. A Routine checks the cells in a range
and fills it (based on a test - boolean) with cell
addresses. I want to run a second routine, which checks
this same range and performs another test - boolean. If
the boolean is false and this particular cell address
already exists in the array, then I want to delete its
existence in the array. How do I do this and redimension
the array so that it no longer includes the deleted
elements. THanks


?Array(0)
$A$1
?Array(1)
$A$2
?Array(2)
$A$3

After the second check I would like to see:
?Array(0)
$A$1
?Array(1)
$A$3

[RB Smissaert]

If speed is not an issue this might be easier with a collection.
Lookup Collection Object in the VBA help.

RBS


"ExcelMonkey" <[email protected]> wrote in message
news:[email protected]...
>I have a 1-D array. A Routine checks the cells in a range
> and fills it (based on a test - boolean) with cell
> addresses. I want to run a second routine, which checks
> this same range and performs another test - boolean. If
> the boolean is false and this particular cell address
> already exists in the array, then I want to delete its
> existence in the array. How do I do this and redimension
> the array so that it no longer includes the deleted
> elements. THanks
>
>
> ?Array(0)
> $A$1
> ?Array(1)
> $A$2
> ?Array(2)
> $A$3
>
> After the second check I would like to see:
> ?Array(0)
> $A$1
> ?Array(1)
> $A$3

[Jim Rech]

I think you have two choices in removing an element from an array - either
create a second array missing this element or move every element up one
place in the array and redim preserve it.

--
Jim
"ExcelMonkey" <[email protected]> wrote in message
news:[email protected]...
>I have a 1-D array. A Routine checks the cells in a range
> and fills it (based on a test - boolean) with cell
> addresses. I want to run a second routine, which checks
> this same range and performs another test - boolean. If
> the boolean is false and this particular cell address
> already exists in the array, then I want to delete its
> existence in the array. How do I do this and redimension
> the array so that it no longer includes the deleted
> elements. THanks
>
>
> ?Array(0)
> $A$1
> ?Array(1)
> $A$2
> ?Array(2)
> $A$3
>
> After the second check I would like to see:
> ?Array(0)
> $A$1
> ?Array(1)
> $A$3

[Alan Beban]

ExcelMonkey wrote:
> I have a 1-D array. A Routine checks the cells in a range
> and fills it (based on a test - boolean) with cell
> addresses. I want to run a second routine, which checks
> this same range and performs another test - boolean. If
> the boolean is false and this particular cell address
> already exists in the array, then I want to delete its
> existence in the array. How do I do this and redimension
> the array so that it no longer includes the deleted
> elements. THanks
>
>
> ?Array(0)
> $A$1
> ?Array(1)
> $A$2
> ?Array(2)
> $A$3
>
> After the second check I would like to see:
> ?Array(0)
> $A$1
> ?Array(1)
> $A$3
I don't understand what's going on with the boolean test, but you might
want to consider something like

Sub xy10000()
arr = Array(1, 2, 3, 3, 4)
Set x = New Dictionary
On Error Resume Next
For Each Elem In arr
x.Add Item:=Elem, key:=CStr(Elem)
Next
arr = x.Items
End Sub

Alan Beban