Find last occurrence of the value Yes

  • Thread starter Thread starter ordnance1
  • Start date Start date
O

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.
 
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
 
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
 
Back
Top