שלום,

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

תודה

><{((*>

מישהו?

הכוונה היא.

במידה ויש לי לשוניות למטה של כל חודשי השנה, ינואר פברואר, מרץ...
הייתי רוצה שאת החודשים הללו תעטוף לשונית נוספת של שנת 2012.
ולאחר מכן אפתח לשונית נוספת של 2013 שגם בתוכה יהיו 12 חודשי השנה.

אודה לעזרתכם

><{((*>

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

את השיטה שהזכרת אני מכיר.
בכל זאת מחפש דרך לעשות זאת בקובץ אחד.

><{((*>

שלב 1:

קרא הוראות בקישור

שלב 2:
את הנוסחאה מתא A2 מושכים למטה כדי להכיל את כל שמות הלשוניות

אם למשל התא המשותף הוא D1 , ניתן ליצר בתא B2 מחרוזת משם הלשונית הנמצאת בתא A2 יחד עם "D1!" - לכל לשונית

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

ועכשיו לסכום את כל התאים בעמודה C שחושבו

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

בהצלחה

רב תודות.

האם ידוע לך האם אפשר להוסיף לשונית נוספת מעל כל הלשוניות הקיימות?

><{((*>

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

איני בטוח שירדתי לחלוטין לסוף דעתך אבל !
לגבי עדכון נתונים במספר לשוניות בבת אחת צפה

לצפייה במקור באתר YouTube, לחצו כאן. (אולי יעזור )
אגב זה ניקרא Grouping Worksheets

ואם ברצונך לסכם נתון שמופיע בכל הלשוניות אז תשתמש במקרו הבא (להתאים את התאים כמובן)

קוד:

Sub LoopThroughSheets()
' LoopThroughSheets Macro
	Dim ws As Worksheet, Variable As Variant
	For Each ws In ActiveWorkbook.Worksheets
			
		On Error Resume Next 
			If IsNumeric(ws.Range("A1").Value) Then
				   Variable = Variable + ws.Range("A1").Value
			 Else
				  Variable = Variable & ws.Range("A1").Value
			End If
		
	Next ws
   Worksheets(0).Range("C1").Select
ActiveCell.Value = Variable
End Sub

בהצלחה

האם ניתן לעשות GROUP ל GROUP קיים?

><{((*>