העתקת רשומות אוטומטית

[יורם גריזים]

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

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

מצרף קובץ דוגמא להבהיר הכוונה - אין חובה שההעתקה תמיין את השדות

פתרון טריוויאלי של לשונית אחת שניתן לפלטר לפי הגורם המזין אינו פתרון רלוונטי לצורך




בתודה

 

[rozent]

טבלאות ציר קטנות

 

[ziv98]

בעוד קצת מאמץ אפשר להכניס את שם גיליון המקור לעמודה נוספת, כך שהמשתמש לא יצטרך להקליד את שמו בכל שורה
משתנה MS = שם הגיליון המרכז:

Sub aba()

'main sheet
MS = "ñéëåí"

Sheets(MS).Select

LR = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(LR, 3)).Clear

For Each sh In Sheets
    If sh.Name <> MS Then
        CLR = sh.Cells(Rows.Count, 1).End(xlUp).Row
        With Worksheets(sh.Name).Range("A2:C" & CLR)
            Worksheets(MS).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value
        End With
    End If
Next

End Sub