Procedure Too Large Hatası

[yakup123]

değerli üstadlarım yazdığım bir kod çok uzun olduğu için Procedure Too Large Hatası veriyor bende bu kodu böldüm hata düzeldi ama işlem çok basit olmasına karşın yapmıyor örneğin böldüğüm satır

Sheets(sayfad).Range("d" & caritopadres & ":" & "AN" & caritopadres).Interior.Color = vbRed
Sheets(sayfad).Range("d" & caritopadres & ":" & "AN" & caritopadres).Font.Color = vbWhite


sonra bu satırı Call Module1.alttoplamrenk
adı ile çağırıyorum ama işlemi yapmıyor
bilgisi olan varmı acaba sebebi ne olabilir

 

[Saban Sertkaya]

Örnek bir dosya ekleyebilir misiniz ?

 

[yakup123]

Hocam dosya biraz gizli ekleyemiyorum
Ama buradaki üstteki koda benzer kodlar
Çağırma yöntemim mi yanlış acaba

 

[Saban Sertkaya]

Yöntemde yanlış yok. Ama farklı bir şekilde yazarak deneyin.

Sheets(sayfad).Range(Cells(caritopadres, 4), Cells(caritopadres, 40)).Interior.ColorIndex = 3
Sheets(sayfad).Range(Cells(caritopadres, 4), Cells(caritopadres, 40)).Font.ColorIndex = 2

Modülü ise, Call Module1.alttoplamrenk yerine direkt alttoplamrenk yazarak çağırabilirsiniz.

 

[yakup123]

hocam yok sizin kodu da denedim olmuyor
örneğin şu kodu yazayım çalışıyor =range("A1")="Excel"
ama benım kodu çalıştırmıyor acaba değişkenlerimi tanımıyor diğer böldüğüm sayfada kaldı ya tanımladığım değişkenler

 

[Korhan Ayhan]

Kullandığınız kod kısaltılabilir. Bunun için dosyanızın küçük bir örneğini ve kodu bu başlığa eklerseniz yardımcı olmaya çalışırız.