by the way, my explanation was flawed. Since it is a set command, once
used, varr(1) can not be empty and will not be overwritten (at least with
the code you show - if you empty it somewhere else, then there is no
accounting for that).
as I recall, you were trying to identify pagebreaks, so apparently code that
you don't show prevents assignments as you expect. the code you show would
work as designed.
--
Regards,
Tom Ogilvy
"Tom Ogilvy" wrote in message
...
didn't I write the original quite a while ago? Such as
http://groups.google.co.uk/groups?hl...TK2MSF TNGP12
or is it derived from something I wrote?
Has it not worked for a long time or has it always been problematic?
--
Regards,
Tom Ogilvy
"S G Booth" wrote in message
...
Have seen both your replies and Jim's. Thanks to you both. It is a
segment
in a bigger series of routines.
I still cannot see the error(s).
Will try to create a simple set of data, with the relevent
code routine and post back.
Regards and thanks.
"Tom Ogilvy" wrote in message
...
If can do two things
if the first element is empty, it writes the range value in the first
element.
otherwise, it increases the upperbound of the array by one and writes
it
in
the new element.
I am not sure what role "i" plays, but you increment that and don't
use
it.
If StartRw is not being incremented, then you would write the same
value
in
every element.
I find that the following code is overwriting varr(1) each time
Not unless .Range("B" & StartRw) is empty and you are placing an empty
value
in varr(1)
--
Regards,
Tom Ogilvy
"S G Booth" wrote in message
...
I'm searching up a column looking for a particular value.
When found, I need to add a range offset from that cell
to an array.
I find that the following code is overwriting varr(1) each
time....so the array never builds correctly
i = i + 1
If IsEmpty(varr(1)) Then
Set varr(1) = .Range("B" & StartRw)
Else
ReDim Preserve varr(1 To UBound(varr) + 1)
Set varr(UBound(varr)) = .Range("B" & StartRw)
End If
Why is the array not building correctly, please?
Regards