topla komutunu gün ile birleştirme

[incsoft]

=TOPLA('1:30'!O77) arkadaşlar hergün 1.2.3.......31 şeklinde düzenleme yerine P1'de o günün tarihi var 30 kısmına =GÜN(P1) komutunu nasıl adapte edebilirim?Örnek bir soru açıklamaya çalıştım arkadaşlar. Teşekkürler

[erseldemirel]

Direk formülle zor olabilir fonksiyon var. =Dinamik(P1) yazarsan aşağıdaki kod çalışır

Kod: Tümünü seç

Function Dinamik(P1 As Range) As Double
toplam = 0
sonSayfa = Day(P1.Value)
For sayfaNo = 1 To sonSayfa
toplam = toplam + Sheets(CStr(sayfaNo)).Range("C2").Value
Next sayfaNo
Dinamik = toplam
End Function