DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
FD = UCase(Replace(Replace(ARAMA, "ı", "I"), "i", "İ"))
For i = 2 To [a65536].End(3).Row
If UCase(Replace(Replace(ActiveWorkbook.Sheets("sayfa1").Cells(i, 2), "ı", "I"), "i", "İ")) _
Like "*" & FD & "*" Then