Run-Time Error 1004

[selveroz]

Merhaba Arkadaşlar,

Makromda Average fonksiyonunu kullandım. Önce bir aralık belirledim. Sonra dedim ki:

Ortalama = WorksheetFunction.Average(R1)

Ancak hata veriyor:

"Unable to get the average property of the WorksheetFunction class"

Bunu her zaman vermiyor. Yani işlemi yaptığı zamanlarda oluyor ama sık sık hata veriyor. Nasıl çözülebilir?

Şimdiden tşkler

 

[Ferhat Pazarçevirdi]

Set ettiğiniz alanın tamamı; "Empty"/Boş değerlerden (hücrelerden)oluşuyorsa veya alanın içindeki herhangi bir hücrede #HATA# değeri varsa; bu mesaj ile ("Average özelliği alınamıyor" diye) karşılaşabilirsiniz ..

Aralığınızda bahsettiğim şekilde bir durum olup olmadığını kontrol ediniz.

 

[selveroz]

Yanıtınız için teşekkürler ancak average işlemini makroyla deil de normal yaptığım zaman alıyor. Yani değerlerde bir problem yok. Sadece makro da böle bir hata veriyor. Acaba aralıkla ilgili bir problem yaşıyorl olabilir miyim? Kodlar şöle:

uzunluk = S2.Cells(65536, "C").End(xlUp).Row

Set R1 = Range("C2:C" & uzunluk)

Ortalama = WorksheetFunction.Average(R1)

 

[Ferhat Pazarçevirdi]

"R1" diye belirlediğiniz alan; "S2" sayfasında bir aralıksa; şu değişikliği yapınız ve deneyiniz...

Set R1 = S2.Range("C2:C" & uzunluk)

 

[selveroz]

Çok teşekkürler... Ben gözden kaçırmısım