DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
If Application.WorksheetFunction.CountIf(Sheets("profil").Range("olmayanlar"), Sheets("profil")).Cells(d, 4) Then GoTo atla
If Application.WorksheetFunction.CountIf(Sheets("profil").Range("olmayanlar"), Sheets("profil")).Cells(d, 4)>0 Then GoTo atla