To find partial text

Hi

Below is my search and find program. It is fine if I find whole word but it is not working when i try to find partial text.

Seach keyword : max

The following texts available in the rows and the program should find below texts

maxddd
ddmaxfff
ddmax

inp = InputBox("Enter The Keyword To Search")
uinp = UCase(inp)

For i = 6 To 500

Worksheets("Sheet1").Cells(i, 5).Select

v1 = UCase(Worksheets("Sheet1").Cells(i, 5).Value)
v2 = UCase(Worksheets("Sheet1").Cells(i, 6).Value)
v3 = UCase(Worksheets("Sheet1").Cells(i, 7).Value)
v4 = UCase(Worksheets("Sheet1").Cells(i, 8).Value)
v5 = UCase(Worksheets("Sheet1").Cells(i, 9).Value)


If uinp = "*" & v1 & "*" Or uinp = "*" & v2 & "*" Or uinp = "*" & v3 & "*" Or uinp = "*" & v4 & "*" Or uinp = "*" & v5 & "*" Then
rownumb = ActiveCell.Row
Worksheets("Sheet1").Rows(rownumb & ":" & rownumb).Hidden = False
k = 1
End If

Next i

It is not working

If uinp = "*" & v1 & "*" Or uinp = "*" & v2 & "*" Or uinp = "*" & v3 & "*" Or uinp = "*" & v4 & "*" Or uinp = "*" & v5 & "*" Then

Please help.

Thanks.

Edited: Sorry, the solution offered didn't work. Try:

inp = InputBox("Enter The Keyword To Search")
uinp = UCase(inp)

For i = 6 To 500

Worksheets("Sheet1").Cells(i, 5).Select

v1 = UCase(Worksheets("Sheet1").Cells(i, 5).Value)
v2 = UCase(Worksheets("Sheet1").Cells(i, 6).Value)
v3 = UCase(Worksheets("Sheet1").Cells(i, 7).Value)
v4 = UCase(Worksheets("Sheet1").Cells(i, 8).Value)
v5 = UCase(Worksheets("Sheet1").Cells(i, 9).Value)


If (InStr(1, v1, uinp)) _
Or (InStr(1, v2, uinp)) _
Or (InStr(1, v3, uinp)) _
Or (InStr(1, v4, uinp)) _
Or (InStr(1, v5, uinp)) _
Then
    rownumb = ActiveCell.Row
    Worksheets("Sheet1").Rows(rownumb & ":" & rownumb).Hidden = False
    k = 1
End If

Next i

Regards, TMS

Are you looking at the original solution offered or the revised one? Maybe just check post #2 again.

You probably need to share a sample workbook. I can't keep guessing at what your workbook structure, content and code look like.

I used it to hide rows, rather than unhide them to see if it picked up the right information. Seemed OK.

Regards, TMS

You're welcome. Thanks for the rep.

Sorry for the confusion ... I realised the first solution didn't work and replaced it (no point leaving it there).


If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.