VBA Filtering and copy paste selected datas.

[asyamonique]

Good Day,
Is it possible to filter multiple entries if one of the word similar on a cell?
Sample: Column F has datas all the way down every cell has different multiple words under common a word which will be match with CB1 cell.
The code given below filtering only match values I need to add additional function on that given code.
Thanks in advance.

Dim LR As Long, i As Long
LR = Range("F" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("F" & i)
If .Value = Range("CB1").Value Then
.Offset(, -3).Resize(, 4).Copy
Range("CE" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i

 

[DanteAmor]

Change this:

If .Value = Range("CB1").Value Then

For this:

If .Value Like "*" & Range("CB1").Value & "*" Then

 

[asyamonique]

Hello Dante,
Thanks for the help.
All is good now.

 

[DanteAmor]

So I did not understand what you need.
Could you give examples of what you have in column F, what you have in cell CB1 and what you expect as a result.
If you help us with examples using the XL2BB tool it would be fantastic and that way the answers will be more effective.

 

[asyamonique]

All is ok thx Dante