How to deal with an Empty return using selection.Find?

[gruntingmonkey]

I have some code which matches up a cell and moves some commentary from one workbook to another. The issue I'm having is handling the selection.find when there is no match. I want to just move on to the next row (I'll put a count in later). but I cant find a way to do this. I tried On error, but it doesn't recognise a non match as an error and therefore debugs rather then moving on. Does anyone have any ideas?

lastrow = Cells(Rows.Count, "A").End(xlUp).row
rowno = 2

Do Until rowno > lastrow

Workbooks(Filename).Activate
Comment = Cells(rowno, 11).Value
Identifier = Cells(rowno, 19).Value

If Comment <> "" Then
Workbooks(ThisWorkbook.Name).Worksheets("BH Data").Activate
Columns("R:R").Select
Selection.Find(What:=Identifier, After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:= _
        xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) _
        .Activate
    Matchrow = ActiveCell.row
Cells(Matchrow, 10).Value = Comment

Else
End If
rowno = rowno + 1
Loop

 

[dmt32]

Hi
untested but try this update to your code & see if does what you want

 Dim FoundCell   As Range
    Dim LastRow     As Long, rowno As Long
    Dim wsBHData    As Worksheet, ws As Worksheet
    
    
    Set wsBHData = ThisWorkbook.Worksheets("BH Data")
    
    Set ws = Workbooks(FileName).Worksheets("Sheet1")
    
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    rowno = 2
    
    Do Until rowno > LastRow
        
        Comment = ws.Cells(rowno, 11).Value
        Identifier = ws.Cells(rowno, 19).Value

        If Comment <> "" Then
                Set FoundCell = wsBHData.Columns("R:R").Find(What:=Identifier, LookIn:=xlFormulas, lookat:=xlPart, _
                                                             SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                                            MatchCase:=False, SearchFormat:=False)
                If Not FoundCell Is Nothing Then wsBHData.Cells(FoundCell.Row, 10).Value = Comment
        End If
        rowno = rowno + 1
        Set FoundCell = Nothing
    Loop

Change Sheet1 name shown in BOLD as required

Dave