מאקרו לחישוב סכום מצטבר

[eliavp6]

מאקרו לחישוב סכום מצטבר

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

מישהו יכול להסביר לי בבקשה היכן הטעות בקוד?

תודה רבה,

 

[iyyi]

הסבר בבקשה יותר בהרחבה...

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

 

[iyyi]

אם הבנתי נכון...

נסה את הקוד הבא:

Private Sub WorkSHEET_change(ByVal target As Range)
If target.Column <> 23 Then Exit Sub
Application.EnableEvents = 0
bn = InputBox("החודש לו מיוחס הקמ", "מועד ההזנה")
tr = target.Row
Cells(tr, bn + 10) = target - Application.Sum(Range(Cells(tr, 10), Cells(tr, bn + 9)))
Application.EnableEvents = 1
End Sub

מודגם בקובץ המצורף

 

[eliavp6]

תודה על העזרה

 

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

אז ככה . . .

לדעתי, אינך זקוק כלל ל- INPUTBOX.
אני הייתי מצפה מהמקרו שבכל הקלדה של ערך, בתא שבעמודה "W", הוא יאתר את החודש הבא הריק

ויכניס בו את הערך המשלים.

בהנחה שאתה נוהג להקליד ערך שגוי ב- 1 מתוך 12 מקרים - אין צורך ש"תטרטר" את עצמך בהקלדה חודשית, "מיגעת", של מס' החודש.
די יהיה למחוק את הערך מול אותו חודש ולהקליד, מחדש, את הערך הנכון בעמודה "W".

 

[eliavp6]

תודה - אנסה ליצור משהו יותר מתוחכם

 

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

הנה, - חסכתי לך עבודה . . .

‏