עזרה במאקרו

[h280]

היי

אשמח לעזרה בפקודת מאקרו

אני מקבל את הטבלה הנ"ל עם כמות שונה של שורות כל יום

שאלתי כיצד ניתן להגדיר במאקרו כך שהנוסחא בעמודה L תגרר עד השורה האחרונה בטבלה

ולאחר מכן המאקרו יבצע העתקת הנתונים כמספר מעמודה L לעמודה M



בתודה מראש לעוזרים

 

[ziv98]

Sub a()
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    Range("L2").FormulaR1C1 = "=MAXIFS(C7,C1,RC[-11])"
    Range("L2:L" & LR).FillDown
    Range("L2:L" & LR).Copy
    Range("M2").PasteSpecial Paste:=xlPasteValues
End Sub

 

[h280]

תודה רבה ענקית