WorksheetFunction sınıfının CountIf özelliği alınamıyor hatası Run Time error (1004)
arkadaşlar programı ilk çalıştırıp listeyi excele aktarınca sorun çıkmıyor ama kapatmadan veya hata verdiği zaman Kod tablosunda Reset düğmesine basmadan devam edince (tekrar excele gönderince) yukarıdaki hatayı veriyor sorunu bir türlü bulamadım yardımcı olursanız çok sevinirim
Hata verdiği kod: (aynı olan değerleri kontrol edip olmayanları sayıyor )
If Syf.Cells(i, "Q") <> " " And WorksheetFunction.CountIf(Syf.Range("Q4:Q" & i), Syf.Cells(i, "Q")) = 1 Then isimsay = isimsay + 1
arkadaşlar programı ilk çalıştırıp listeyi excele aktarınca sorun çıkmıyor ama kapatmadan veya hata verdiği zaman Kod tablosunda Reset düğmesine basmadan devam edince (tekrar excele gönderince) yukarıdaki hatayı veriyor sorunu bir türlü bulamadım yardımcı olursanız çok sevinirim
Hata verdiği kod: (aynı olan değerleri kontrol edip olmayanları sayıyor )
If Syf.Cells(i, "Q") <> " " And WorksheetFunction.CountIf(Syf.Range("Q4:Q" & i), Syf.Cells(i, "Q")) = 1 Then isimsay = isimsay + 1