View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Tim Childs Tim Childs is offline
external usenet poster
 
Posts: 128
Default Search from the bottom of a Range up

Dave

me too! but it would have taken me too long to puzzle out the VB code!!

bw

Tim

"Dave Peterson" wrote in message
...
If I wanted to find the last value in a range (say a column), I'd start in

the
first (top) cell and look up (xlprevious) from there. I wouldn't start

with the
activecell.

dim FoundCell as range
with worksheets("sheet9999")
with .range("a1:A9999")
set foundcell = .Find(What:="blah", _
After:=.cells(1), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
end with
end with

if foundcell is nothing then
msgbox "not found"
else
msgbox foundcell.value & " was found " & foundcell.address
end if

====
And if I wanted to find the first entry in that column, I'd start in the

last
cell and look down (xlnext).

dim FoundCell as range
with worksheets("sheet9999")
with .range("a1:A9999")
set foundcell = .Find(What:="blah", _
After:=.cells(.cells.count), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
end with
end with

=======
And if I had to search for more entries, I'd look in VBA's help for

..findnext().


Tim Childs wrote:

Hi

if it is an Excel range, cannot you use the built-in functionality?
Something like:
Selection.Find(What:="blah", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious,
MatchCase:= _
False).Activate
i.e. use the SearchDirection parameter

hth (and is correct !)

Tim

"Trevor Shuttleworth" wrote in message
...
for counter = 200 to 1 Step -1
if cells(200-counter, 1) = "blah") then...
end if
next counter


"J@Y" wrote in message
...
Is there an efficient way to searching from the bottom of a range

up?

I have this:

for counter = 1 to 200
if cells(200-counter, 1) = "blah") then...
endif
next counter



--

Dave Peterson