Hata kodu 'run time error 1004'

[archers70]

Selamlar;
ekte bir ekran görüntüsü var, bu hatayı excel neden verir? bilgisi olan varmıdır?

http://s4.dosya.tc/server/CgvdIF/HATA.jpg.html

 

[Korhan Ayhan]

Hata ekranında DEBUG tuşuna bastığınızda sizi hata veren satıra götürecektir. Kodlarınızı foruma eklerseniz daha sağlıklı yorum yapabiliriz.

 

[archers70]

Kodu ekledim. aşağıdadır.

kac = WorksheetFunction.Match(Range("E3"), Sheets("Data").Range("D1374"), 0)

Hata ekranında DEBUG tuşuna bastığınızda sizi hata veren satıra götürecektir. Kodlarınızı foruma eklerseniz daha sağlıklı yorum yapabiliriz.

 

[Korhan Ayhan]

Kodunuzda ilk satırlarda da aynı kod bloğu var. O bölüm hata vermiyor sanırım.

Aklıma gelen çözümler;

1. E3 hücresi boş olabilir. Kontrol ediniz.
2. Excel seçeneklerinden EKLENTİLER bölümünü açın. Ekrana gelen menüden "Çözücü araç takımı - VBA" seçeneğini aktif hale getirip kodu tekrar deneyi.

 

[archers70]

Kodu ekledim. aşağıdadır.

kac = WorksheetFunction.Match(Range("E3"), Sheets("Data").Range("D1374"), 0)

Korhan bey selam
e3 hucresi boş değil zira solda haftalardan seçiyoruz hangı haftayı seçersek o geliyor. diğeri ise işaretli zaten.
resim ekte.
hatta exceli de ekledim.

 

[Korhan Ayhan]

Tıkladığınız hücredeki veri Data sayfasında "D" sütununda yoksa hata veriyor. Bu sebeple ilgili veriyi ilk olarak saydırıp sıfırdan büyükse Match fonksiyonu ile bulup sonuca gidebilirsiniz. Ya da kodlarınızın başına "On Error Resume Next" satırını ekledikten sonra hata kontrolü ekleyerek kodları yönlendirebilirsiniz.

Data sayfasında "24. Hafta" verisi "C" sütununa yazılmış. Fakat siz aratırken "D" sütununu kullanıyorsunuz.Bunlar hataya sebep oluyor. Bence en iyi yöntem saydırarak kontrol etmektir. Alternatif olarak FIND komutunuda araştırabilirsiniz.

Örnek 1; (Saydırma yöntemi)

If WorksheetFunction.CountIf(Sheets("Data").Range("D1:D374"), Range("E3")) > 0 Then
kac = WorksheetFunction.Match(Range("E3"), Sheets("Data").Range("D1:D374"), 0)

Örnek 2; (Hata kontrolü)

On Error Resume Next
kac = WorksheetFunction.Match(Range("E3"), Sheets("Data").Range("D1:D374"), 0)
If kac <> Empty Then
'İşlem yapan kodlarınız...

 

[archers70]

teşekkür ederim korhan bey,
elinize sağlık.