Kod:
ActiveCell.Value = "*" & ActiveCell.Value & "*"
Kod:
Sub Makro1()
On Error Resume Next
ActiveCell.Value = "*" & ActiveCell.Value & "*"
Sheets("Ara").Range("B5:F" & Rows.Count).Clear
Sheets("Veri").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Ara").Range("B1:F2"), CopyToRange:=Sheets("Ara").Range("B5"), Unique:=False
Sheets("Ara").Range("F3").Select
End Sub