If contains "like" put value in another cell

[emukiss10]

HI Guys!

simple one but I cannot get there :/

If column B contains text like "10,00%" (Ex. "Discount 10,00% was granted")

insert number 21 in column Q of the same row.

Output should look like this

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]O[/TD]
[TD]P[/TD]
[TD]Q[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]BLA BLA 10,00% BLA[/TD]
[TD][/TD]
[TD][/TD]
[TD]21[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]BLA BLA BLA[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]10,00%[/TD]
[TD][/TD]
[TD][/TD]
[TD]21[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]BLA BLA BLA[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

Best Regards!
W.

 

[Joe4]

Try this formula in Q1:

=IF(ISNUMBER(SEARCH("10,00%",B1)),21,"")

 

[macattackpro]

Hi,

Try this:

=IF(ISERROR(SEARCH("10,00%",B2)),"",21)

 

[emukiss10]

In VBA please.. Its a part of a macro

 

[Joe4]

In VBA please.. Its a part of a macro

In the future, you want to be sure to mention that in your original post so people don't waste time coming up with solutions that don't work for you (not a big deal for this one, as this one was not very complex, but that might not always be the case).

Try this code:

Sub MyMacro()

    Dim lrow As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column B with data
    lrow = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Loop through all rows
    For r = 1 To lrow
'       Check entry in column B
        If InStr(Cells(r, "B"), "10,00%") > 0 Then Cells(r, "Q") = 21
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[emukiss10]

Thank You it works Perfectly! And forgive my notBeSpecific thing.. Ill keep Your advice in mind next time Ill post.

Best Wishes!
W.

 

[Joe4]

You are welcome.
Glad we were able to help and it works for you.