Sayın accessman macro kodu şu;
Dim liste(100000, 2) As String
Dim verikod, kod1, verifis As String


Sub Makro1()
    On Error Resume Next
    Range("B5").Select
    Selection.CurrentRegion.Select
    Selection.Clear
    Range("B5").Select
    Sheets("Veri").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:F2"), CopyToRange:=Range("B5"), Unique:=False
    Range("F3").Select
End Sub


burada * karakteri nereye koyabilirim?