בקשת עזרה בכתיבת MACRO

בקשת עזרה בכתיבת 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.
תודה מראש.
 

iyyi

New member
נסה את זה

קוד:
Sub Copy2All()
first = InputBox("First row")
last = InputBox("Last row")
f = Sheets("ALL").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(first & ":" & last).Copy Destination:=Worksheets("ALL").Range("A" & f)
Cells(first, 1).Select
End Sub
 
יש מצב לבעיטת המשך?

צמצטער, לא חשבתי על זה בקובץ הדוגמא:(
מבקש לבצע את ההדבקה בSPECIAL רק VALUES . ללא נוסחאות.
נסיתי להוסיף לDESTINATION
PasteSpecial(xlPasteValues)
לא עבד:(

תודה מראש
 

u333

New member
אז ככה....

חבל.. חבל שאחרי כל כך הרבה זמן אתה לא מצרף קובץ עם הנסיונות !!
הקוד הבא יעבוד לשיטתי.
תוכל לאמץ אותו גם לשיטת הבחירה ע"י INPUTBOX
קוד:
Sub Paste_Special()
Range("A5:C15").Copy
Sheets("ALL").Activate
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteValues
End Sub
 

u333

New member
לשאלה בדיוק בדיוק כמו שנשאלה - ללא בחירת שורות - מספיקה....

שורת הקוד הבאה בלבד:
Range("A5:C15").Copy Sheets("ALL").Cells(Sheets("ALL").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
 
תודה רבה

ניסיתי שורה דומה- ולא עבד:(
אולי בגלל בחירת ה RANGE
Range(all_yas_range).Copy Sheets("ALL").Cells(ALL_YES_LENGHT, 1)
בכל אופן, תודה רבה.
 
למעלה