לולאה שמסכמת עמודות

[natit]

שלום לכם,
אני נדרש לסכם עמודות כאשר בתא המסכם תופיע נוסחת הסיכום.
מצ"ב קובץ עם דוגמה והסבר למה שאני צריך - צבוע באדום
בתודה מראש
נתי

 

[מיכאל אבידן]

Sub Micky()
        On Error Resume Next
        For C = 1 To 3
               For R = 2 To 24
                      S = S + Cells(R, C)
               Next
        Next
        MsgBox S
End Sub

 

[natit]

זה עובד מצויין ותודה, אבל מה שאני צריך זה שבתא המסכם את העמודה, תופיע הנוסחה (למשל: =sum(a2:a24)) , כך שהמשתמש יוכל לראות את התוצאה וגם את הנוסחה שחישבה את התוצאה (מה ששלחת מציג רק את התוצאה בלי שהמשתמש יכול "לשחק" עם הנוסחה )

 

[ziv98]

lrow = 24
For i = 1 To 3
      Cells(lrow + 1, i).FormulaR1C1 = "=SUM(R[-" & lrow - 1 & "]C:R[-1]C)"
Next i

 

[natit]

מעולה
בדיוק מה שחיפשתי
המון תודה