מתחילן צמרת
Member
בקשת עזרה בכתיבת MACRO
ראשית, חג אורים שמח לכולנו
WIN 10 EXCEL 2013
מבקש עזרה בכתיבת MACRO , שלא הצלחתי לכתוב לבד - למרות שיטוט באתרי VBA ברשת.
בקובץ 4 גליונות: AAA,BBB,CCC ו ALL.
אני מגיע ידנית לגליון AAA ושם מפעיל את המקרו.
המקרו צריך להעתיק מגליון AAA שורות 5 עד 15 עמודות A עד C, לגליון ALL לשורות 2 ומטה ביעד.
אני עובר ידנית לגליון BBB.
מפעיל את המקרו מחדש.
הוא צריך להעתיק מגליון BBB שורות 5 עד 15 עמודות A עד C, ( יכול להיות אחרות. במקום מספר אציב במציאות משתנה - אך נניח כנ"ל) לגליון ALL אחרי השורה האחרונה שכבר כתובה בו.
מציאת השורה האחרונה כנראה בעזרת הפקודה:
ALL_YES_LENGTH = Sheets("ALL").Cells(Rows.Count, 1).End(xlUp).Row
עובר ידנית לגליון CCC .
מפעיל את המקרו מחדש והוא צריך להעתיק שורות 5-15 עמודות A עד C, מ CCC לגליון ALL אחרי השורה האחרונה.
התוצאה צריכה להראות כמו בדוגמא בגליון ALL.
תודה מראש.
ראשית, חג אורים שמח לכולנו
WIN 10 EXCEL 2013
מבקש עזרה בכתיבת MACRO , שלא הצלחתי לכתוב לבד - למרות שיטוט באתרי VBA ברשת.
בקובץ 4 גליונות: AAA,BBB,CCC ו ALL.
אני מגיע ידנית לגליון AAA ושם מפעיל את המקרו.
המקרו צריך להעתיק מגליון AAA שורות 5 עד 15 עמודות A עד C, לגליון ALL לשורות 2 ומטה ביעד.
אני עובר ידנית לגליון BBB.
מפעיל את המקרו מחדש.
הוא צריך להעתיק מגליון BBB שורות 5 עד 15 עמודות A עד C, ( יכול להיות אחרות. במקום מספר אציב במציאות משתנה - אך נניח כנ"ל) לגליון ALL אחרי השורה האחרונה שכבר כתובה בו.
מציאת השורה האחרונה כנראה בעזרת הפקודה:
ALL_YES_LENGTH = Sheets("ALL").Cells(Rows.Count, 1).End(xlUp).Row
עובר ידנית לגליון CCC .
מפעיל את המקרו מחדש והוא צריך להעתיק שורות 5-15 עמודות A עד C, מ CCC לגליון ALL אחרי השורה האחרונה.
התוצאה צריכה להראות כמו בדוגמא בגליון ALL.
תודה מראש.