finding things

[susbrat]

Hi.
Is there a way of setting the "find" function to search from the bottom of the sheet to the top, hence searching the more recent entries first?
Cheers.

 

[Yard]

Hi and welcome.

Assume you're talking about the VBA Find method?

I tend to use this sort of construction:

Sub FindMe()
Dim rngLook As Range, rngFound As Range
Set rngLook = Sheet1.Range("A1:E10")
On Error Resume Next
Set rngFound = rngLook.Find(What:="MyString", After:=rngLook.Cells(rngLook.Cells.Count), LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:= _
        False, SearchFormat:=False)
If Not rngFound Is Nothing Then
    MsgBox rngFound.Address
End If
End Sub

 

[Sektor]

Sub S1()

    Dim rng As Range
    
    Set rng = Sheet1.Cells.Find(What:="What", SearchDirection:=xlPrevious)

End Sub

 

[Yard]

Sorry, didn't read the question properly. Hold on...

 

[Yard]

Think this does it

Sub FindMe()
Dim rngLook As Range, rngFound As Range
Set rngLook = Sheet1.Range("A1:E10")
On Error Resume Next
Set rngFound = rngLook.Find(What:="MyString", After:=rngLook.Cells(rngLook.Cells.Count - 1), LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:= _
        False, SearchFormat:=False)
If Not rngFound Is Nothing Then
    MsgBox rngFound.Address
End If
End Sub

 

[Mark Main]

You could specify a search direction in the older versions, but this nice feature is gone in 2010... wow! It could be built as a macro feature because this is possible in VBA:

Cells.Find(What:="searchtext", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Activate

I can't believe they left this off of the dialog box... I'm stunned.

it would not be hard to create your own dialog box and use the xlPrevious search direction. This will be put back in sometime...they will get complaints.