Makro ile yapılan Toplamda Hata

[baybay]

Ekteki dosyada,GENEL sekmesinde, üstte Köyleri seçiyoruz. hepsine ayrı veriler giriyoruz. MAkro ile altta ki hücrelerde bu bilgiler birdaha kullanmak üzere kaydediliyor.

Benim sorunum. Köy Seçerken listenin enaltında GENEL TOPLAM 'a tıklayınca "Runtime Error 9" hatası veriyor. Bu hatayı nasıl giderebilirim.

GENEL TOPLAM 'ın amacı, Tüm köyler için girilen bilgilerin toplamını almak. Şimdiden Teşekkürler.

 

[Orion1]

Burada dizi içindeki değişken boyutu aşılıyor.Ondan hata veriyor.
Ya - 38 silinecek yada for i = ..... -38 yapılacak.
Burada y değişkeni koy ile belirlendiği için y dışına çıkılıyor.
Artık programı yapan kişi ne tasarladıysa onun düzeltmesi lazım.
Kırmızı satırlardan dolayı hata veriyor.

koy = Cells(65536, 4).End(xlUp).Row - 38
ReDim Gelir(1 To koy, 1 To 13)
For i = 38 To Cells(65536, 4).End(xlUp).Row
y = y + 1
For Each GelirKalemi In Split(Cells(i, "H"), ";")
x = x + 1
Gelir(y, x) = GelirKalemi