formüllerle dosya çalışmıyor

[tukayf]

değerli üstadlar ekteki dosyada 13 sayfa olacak. ocak-aralık ve genel.formüllerle dosya çalışmıyor acaba daha işlevsel bi çözüm varmıdır?

 

[zafer]

Merhaba

Genel sayfasında ne yapılmasını istiyorsunuz.

Ayrıca 20 satır ve 20 sütun'a yazılan formüllerle dosyanın şişip çalışmayacağını zannetmiyor.

 

[tukayf]

aslında normal bi pc de cslışır ama işyeri pclerinde yeterli donanım yok o yüzden calışmıyor hocam. genel sayfasında s2 hücresine tüm ayların s2 hücrelerinin toplamını almasını istiyorum. ama bunu formülle yapınca dosya calışmıyor.

 

[zafer]

Merhaba

Pc zayıfsa çok yapacak bir şey yok ama isterseniz aşağıdaki kodları modüle yapıştırıp çalıştırın.

Sub topla()
    l = 18
    m = 17
    For j = 3 To l
    For k = 2 To m
    adres = Cells(k, j).Address
    Sheets("GENEL").Range(adres) = Application.Evaluate("=SUM('Ocak :Aralık'!" & adres & ")")
    
Next
Next
End Sub

'Ocak :Aralık' sayfa isimleri bu şekilde olacak veya sizin sayfa isimlerinize göre en baştaki sayfa ile en sondaki sayfanın ismine göre uyarlayın

 

[tukayf]

sağolun zafer bey.