העתקת מס גליונות לגליון אחד במקרו

[lironcoh81]

העתקת מס גליונות לגליון אחד במקרו

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

 

[u333]

אם תצרף את הקובץ - כנדרש בהנחיות - תקבל פתרון.

ורצוי מאד שתתן דוגמא ידנית מדוייקת של התוצאה הרצויה.

 

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

העיקרון של הפיתרון, היצירתי, מוצע בקישור שלהלן . . .

זה שכאן.

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

Sub Combine_Sheets_Tables() 
     On Error Resume Next
     Application.ScreenUpdating = 0
     For SH = 2 To Sheets.Count
         Sheets(SH).[A1].CurrentRegion.Copy Destination:=Sheets("MAIN").Cells(Rows.Count, 1).End(xlUp)(2)
     Next
     Application.ScreenUpdating = 1
End Sub