çözemediğim bir hata

[apulat]

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

 

[YUSUF44]

Eğer sayfa olaylarına bağlı bir kod ise kodun başına Application.EnableEvents = False ve sonuna Application.EnableEvents = True kodlarını ekleyip deneyin.

 

[apulat]

Sayın YUSUF44
ilginiz ve sabrınız için sizi gerçekten kutluyorum
verdiklerinizi denedim ama access bu kodları kabul etmiyor sanıyorum acceste kütüphanesine tanıtmak lazım ama onuda araştırıyorum ama bulamadım
sizden biliyorsanız bu kod sayfasında (teyp işaretlerine benzeyenlerin içindeki dur işaretine benzeyen) reset tuşuna basında hatayı durduran butonun komut karşılığı varmı
çünkü 2. çalıştırmada hata veriyor debug diyorum bu reset tuşuna basıyorum çalıştırdığım zaman hata vermiyor
ben işlemler bittikten sonra bu tuşun işlemini yapacak komutu çalıştırsam hatayı kaldırırım inşallah