Aralık Değişkenini =Sum(Aralik) Şeklinde kulanamama Sorunu

[hsayar]

....................
  sonsat_Tplm = .Cells(65536, "A").End(3).Row
    Set Aralik_EksX = .Range("c2:c" & sonsat_Tplm)
    Set [COLOR=red][B]Aralik_SrDeg[/B][/COLOR] = .Range("d2:d" & sonsat_Tplm)
    Set Aralik_SrYzd = .Range("e2:e" & sonsat_Tplm)
    .Cells(sonsat_Tplm + 1, "A").Value = " T O P L A M "
    .Cells(sonsat_Tplm + 1, "D").Formula = "=SUM(D2:D" & sonsat_Tplm & ")"
'    .Cells(sonsat_Tplm + 1, "D").Formula = "=SUM(" & [COLOR=red][B]Aralik_SrDeg[/B][/COLOR] & ")"
..........

diye giden kodlarım var

Set Aralik_SrDeg = .Range("d2:d" & sonsat_Tplm)

değişkenini aşağıdaki ifadede nasıl kullanırım.
.Cells(sonsat_Tplm + 1, "D").Formula = "=SUM(" & Aralik_SrDeg & ")"

Burada sorun çıkartmıyor

..................
 
    With chGrfZmn
         .ChartTitle.Characters.Text = srgYil & " yılı Maliyet zaman Grafiği"
         .SeriesCollection(1).XValues = Aralik_EksX
         .SeriesCollection(1).Values = [COLOR=red][B]Aralik_SrDeg[/B][/COLOR]
         .SeriesCollection(1).Name = "=""" & srgYil & "/YTL"""
         .SeriesCollection(2).XValues = Aralik_EksX
         .SeriesCollection(2).Values = Aralik_SrYzd
         .SeriesCollection(2).Name = "=""" & srgYil & "/Yüzde"""
    End With
 
...............

 

[Ferhat Pazarçevirdi]

Aşağıdaki şekilde deneyin.

.Cells(sonsat_Tplm + 1, "D").Formula = "=SUM(" & Aralik_SrDeg[B].Address[/B] & ")"

 

[hsayar]

Teşekkürler hocam, çok sağolun.