VBA to find a text match that is closest & return value

[harts]

Both of these work finding the information I need except here is the part I have issues with, the name in row1 and the name in column BP are not an exact match. The names in BP are mostly partials. It would work if I could find just the first part of the name instead of the entire thing. Thanks in advance for any help.

Sub test2()
With Range("D4:AZ4")
.Formula = "=ifna(index($BS1:$BS40,match(D1,$BP1:$BP40,0)),"""")"
.Value = .Value
End With
End Sub

or

Sub test()
Darray = Range("D1:az4")
Bfarray = Range("BP1:BS40")
For i = 1 To UBound(Darray, 2)
For j = 1 To UBound(Bfarray, 1)
If Darray(1, i) = Bfarray(j, 1) Then
Darray(4, i) = Bfarray(j, 4)
Exit For
End If
Next j
Next i
Range("D1:az4") = Darray

End Sub

 

[Micron]

With no idea what the values look like it's impossible to provide a focused answer. Did you look at any of the string functions to compare values?
Perhaps Left, Right, Mid, Instr, InstrRev or a combination of those might work.

If you need to get really complicated, you can find code that works on the principle of Levenshtein Distance.