Karakter Seçimli Filtre Yapma

Sub filtrele()

ActiveSheet.Unprotect "1"

Dim arr1, arr2, i As Integer

With Sheets("ARA")
.Range("A2:Z2").Clear
.Range("A12:Z65536").Clear

arr1 = Array("A", "B", "E", "H", "P", "Q", "O") 'O Tc icin
arr2 = Array(IIf(.Range("B4").Value = "HEPSİ", "", .Range("B4").Value), _
IIf(.Range("B8").Value = "HEPSİ", "", .Range("B8").Value), _
IIf(.Range("B7").Value = "HEPSİ", "", .Range("B7").Value), _
IIf(.Range("B6").Value = "HEPSİ", "", .Range("B6").Value), _
IIf(.Range("B5").Value = "", "", "*" & .Range("B5").Value & "*"), _
IIf(.Range("D5").Value = "", "", "*" & .Range("D5").Value & "*"), _
IIf(.Range("D4").Value = "HEPSİ", "", .Range("D4").Value)) 'Tc icin



For i = LBound(arr1) To UBound(arr1)
.Range(arr1(i) & 2).Value = arr2(i)
Next

Sheets("AKTİF_HASTA_LİSTESİ").Range("A8:Z65536").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=.Range("A1:Z2"), CopyToRange:=.Range("A12:Z12")
End With

Erase arr1: Erase arr2
ActiveSheet.Protect "1"


End Sub


merhaba;hocam yukarıdaki kodda bulunan
IIf(.Range("D4").Value = "HEPSİ", "", .Range("D4").Value)) 'Tc icin
satırına göre tc nin tamamını yazmayınca filtrede veri getirmiyor ,fakat isim soyisim de kaç karakter yazarsam ona göre filtre yapıyor
IIf(.Range("D5").Value = "", "", "*" & .Range("D5").Value & "*"), _
bu satırı kopyalayıp d5 leri d4 ile değiştirip kullanmak istediğimde hata verdi,neyi eksik yapıyor olabilirim