concatenate text boxes to find combined value and copy paste alternative value into wb

I have two text boxes in a user form. Text box one is a unique user reference, the second, the unique case reference number.
In the sheet (marked Database) is the combined value of these two boxes (column B) which I am trying to do is concatenate the two text box values and search the database range. (Letters is the user form name)

Once found I want to copy the value from the text box "Browse" which holds a file location and paste it into an offset cell and then make it a hyperlink.

I'm close but can't quite finish it. Can anyone help me with what I am doing wrong?

Private Sub CommandButton2_Click()
Dim UserId, CaseId, SearchString As String

   UserId = Letters.User.Value
   CaseId = Letters.CaseNo.Value
   
SearchString = UserId & CaseId

'   Search Case Reference Number column from database based on two values in User Form
'

'
        Letters.Browse.Text.Copy
    
    With Sheets("Database").Find(What:="SearchString", LookIn:=Database.Range("B:B"), _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    
    End With
    
    With ActiveCell.Offset(0, 51)
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, _
    skipblanks:=False, Transpose:=False
    
    Application.cutcopypaste = False
    
    End With
    
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
        "Letters.Browse.value", TextToDisplay:="Letter from Bank"
        
        Letters.Hide

End Sub

I think the .find method applies to a range not to a sheet, so maybe try changing:

Sheets("Database").find

to

Sheets("Database").cells.find

Sheets("Database").cells.find

That gives me a Type mismatch (Error 13) message.

Sorry, having a closer look there are a couple other issues:
-You are looking for the text, Searchstring, rather than the defined variable (remove the quotes to deal with this)
-I don't think you can use the with construct like that.
-You are telling it to look in Database.Range, I don't think Database is a valid object reference in this case
-The lookin statement is for whether to look at the formulas or results I think, if you want to limit to a column, you need to change the range the find method is applied to.

Maybe try:

Sheets("Database").Range("B1:B100").Find(What:=SearchString, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select

Thanks,

I didn't even realise I had put speech marks in there.

Is the range limited to defined area on a find function or could I use the B:B option?

Book uploaded.

Code is in userform Letters

Run from the Documents button on sheets("Userform")

    With Sheets("Database").Range("B1:B100")
    .Find(What:=SearchString, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select

This code isn't working but I cannot see where the issue may be

Hi, you can use an entire column
.columns(2)
.range("B1").entirecolumn)
.range("B:B")
.columns("B")
etc.

I tested that code before I posted it and it ran ok - please can you upload an example workbook for which it doesn't work?

Try:

on error resume next
Sheets("Database").Cells(WorksheetFunction.Match(SearchString, Sheets("Database").Range("B1:B10"), 0), 51).Value = Letters.Browse.Value
on error goto 0

Instead - note you will get an error if the searchstring isn't found, the on error resume next just means the code will "skip" the error.