Find Function Not Working

[reberryjr]

I'm not sure why, but this code isn't finding instances where a formula result in column T is "Reviewer Level Conflict". The last row is identified correctly, and I've verified that the value is present.

Private Sub cmd_Create1LRFiles_Click()
Dim mws2 As Worksheet
Dim rng, rngFound As Range
Set mws2 = ThisWorkbook.Sheets("Active_Inv")
mLastRow2 = mws2.Range("U" & Rows.Count).End(xlUp).Row
Set rng = Range("T" & mLastRow2)
Set rngFound = rng.Find("Reviewer Level Conflict", LookIn:=xlValues)
If mws2.FilterMode Then
    mws2.ShowAllData
Else
End If
If rngFound Is Nothing Then
    Call AssignChristina1LPLoans
    Call AssignDebra1LPLoans
    Call AssignChelsea1LPLoans
    Call AssignKrista1LPLoans
    Call AssignGladys1LPLoans
    Call AssignKat1LPLoans
    Call AssignNicky1LPLoans
    Call AssignPomona1LPLoans
    
    If mws2.FilterMode Then
        mws2.ShowAllData
    Else
    End If
    Unload Me
    MsgBox "First level review files have been created."
Else
    With mws2
        .UsedRange.AutoFilter Field:=20, Criteria1:="Reviewer Level Conflict"
    End With
    Unload Me
    MsgBox "The 1st and 2nd level Reviewer cannot be the same person.  Please make the necessary corrections."
End If
End Sub

 

[louisH]

Hi.

What if you do

mws2.ShowAllData

BEFORE

rng.Find(...)

 

[reberryjr]

The test data isn't filtered, but I tried it anyways...to no avail.

 

[Dryver14]

Are you saying this needs to loop, I cent see where that is happening.

for each rngfound in rng or something similar

 

[reberryjr]

I wouldn't think it needs to loop, but I could be crazy. It's just looking for one instance where the value is found.

 

[Dryver14]

Your right,

In that case, I think you are only looking at one cell with this Set rng = Range("T" & mLastRow2)

 

[reberryjr]

DOH! Fixed it with this:

Set rng = Range("T1:T" & mLastRow2)