מקרו לסיכום אוטומטי של עמודה

[lironcoh81]

מקרו לסיכום אוטומטי של עמודה

יש לי מספר גליונות שהטבלאות זהות אבל מספר השורות לא זהה
מחפש מקרו שיעשה סכום לעמודות O,P,Q,R
ויוסיף גליון המרכז את כל הסכומים
תודה לכל העוזרים

 

[u333]

האם הגיליון TOTALS קיים או שאתה רוצה להוסיפו ע"י המקרו ?

ומה עם כל הנוסחאות בגיליון זה, שורה 2 ועמודה G - האם הן כבר קיימות ?

 

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

אתה תמיד פוזל לכיוון מקרו כשניתן בעזרת נוסחה פשוטה

...

(שיניתי חלק מהערכים רק כדי לבדוק את נכונות הנוסחה והיא זהה בכל תאי הטווח האפרפר).

היה ורשימת שמות הגיליונות לא קיימת (עדיין) אין בעיה להציגה בעזרת מקרו קטנטן.

 

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

ואם רשימת הגיליונות, עדיין, לא קיימת . . .

הרץ את המקרו שלהלן מתוך הגיליון Totals.

Sub MakeSheetsList()
     SC = Sheets.Count
     Range("B5:B10000").ClearContents
     For SH = 3 To SC
           Cells(SH + 2, 2) = Sheets(SH).Name
     Next
End Sub

 

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

וגם זה זקוק להתייחסות קלה . . .