find the last Fred and goto cell

[Guest]

Hello from Steved

Using the below I want to have a macro that will find the last Fred which in
this case is in Cell A4 and put the cursor there please.

A1...Fred
A2...Biff
A3...Fred
A4...Fred
A5...Lisa

Thankyou

 

[Don Guillett]

Look in the vba help index for FIND and then xlprevious from the bottom up

 

[Guest]

Hello from Steved

How do I ask the below to find the Last "Fred" please

Sub Find()
Cells.Find(What:="Fred", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

End Sub

Thankyou.

 

[Dave Peterson]

Option Explicit
Sub myFind()

Dim FoundCell As Range
With ActiveSheet
With .Range("a:a")
Set FoundCell = .Cells.Find(what:="Fred", _
after:=.Cells(1), _
LookIn:=xlValues, _
lookat:=xlWhole, _
SearchOrder:=xlByRows, _
searchdirection:=xlPrevious, _
MatchCase:=False)
End With
End With

If FoundCell Is Nothing Then
MsgBox "Fred wasn't found!"
Else
Application.Goto FoundCell, scroll:=True
End If
End Sub

 

[Guest]

Thankyou.

Option Explicit
Sub myFind()

Dim FoundCell As Range
With ActiveSheet
With .Range("a:a")
Set FoundCell = .Cells.Find(what:="Fred", _
after:=.Cells(1), _
LookIn:=xlValues, _
lookat:=xlWhole, _
SearchOrder:=xlByRows, _
searchdirection:=xlPrevious, _
MatchCase:=False)
End With
End With

If FoundCell Is Nothing Then
MsgBox "Fred wasn't found!"
Else
Application.Goto FoundCell, scroll:=True
End If
End Sub

 

[T. Valko]

A1...Fred

A2...Biff
A3...Fred
A4...Fred
A5...Lisa

Hmmm....that looks familiar!

 

[Guest]

Hello Biff from Steved

oops! yes I thought I'd use it it to explain what I required