Belli sütünlar toplam alma. (uygun mu ??)

[yteizme]

..........................

 

[ECYavuz]

Gönderdiğiniz kod mantığına göre aşağıdakini deneyin.

Sub MyTotal()

Dim CurCell As Object
For Each CurCell In Range("L1:L10")
CurCell.Value = CurCell.Offset(0, -9).Value _
+ CurCell.Offset(0, -5).Value
Next

End Sub

 

[yteizme]

Yavuz ,

ben yukarda bahsettiğimiz kısmıda hallettim kendi çapımda sadece sutuna "sonuçlar" satırını eklemek kaldı.

yardımcı olabilecek var mı?

 

[ceyrek]

Bütün J sütununu bir satır aşağı öteleyip ilk satıra "sonuçlar" yazar

Range("J1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("J1").Value = "Sonuçlar"

 

[yteizme]

ok tşkler.hallettim.