Find last occurrence of the value Yes

[ordnance1]

I have column R, which contains a series of Yes, and No values. There are
also blank cells within the column.

I need some code that will find the last occurrence of Yes in the column and
select it.

 

[Jacob Skaria]

Try the below code which works on 'Sheet1' Col R. Adjust to suit

Sub Macro()
Dim varFound As Variant, varRange As Variant
With Worksheets("Sheet1").Range("R:R")
Set varFound = .Find("Yes", LookIn:=xlValues)
If Not varFound Is Nothing Then
Do
Set varRange = varFound
Set varFound = .FindNext(varFound)
Loop While Not varFound Is Nothing And _
varFound.Row > varRange.Row
varRange.Select
End If
End With
End Sub

If this post helps click Yes

 

[Rick Rothstein]

I believe this macro will do what you want...

Sub FindLastYes()
On Error Resume Next
Columns("R").Find("Yes", MatchCase:=False, _
SearchDirection:=xlPrevious).Select
End Sub