Thanks for the reply.
Thanks for the reply.
Last edited by excelkeechak; 04-26-2009 at 12:10 AM.
Sub AutoFillMacro() Dim lLR As Long lLR = Cells(Rows.Count, "a").End(xlUp).Row Range("E2").Formula = "=SUM(B2:D2)" Range("E2").AutoFill Destination:=Range("E2:E" & lLR), Type:=xlFillDefault ThisWorkbook.Save End Sub
Please Read Forum Rules Before Posting
Wrap VBA code by selecting the code and clicking the # icon or Read This
How To Cross Post politely
Top Excel links for beginners to Experts
If you are pleased with a member's answer then use the Scales icon to rate it
If my reply has assisted or failed to assist you I welcome your Feedback.
Or alternatively using R1C1
Range(Cells(2,"A"),Cells(Rows.Count,"A").End(xlUp)).Offset(,4).FormulaR1C1 = "=SUM(RC2:RC4)"
My Recommended Reading:
Volatility
Sumproduct & Arrays
Pivot Intro
Email from XL - VBA & Outlook VBA
Function Dictionary & Function Translations
Dynamic Named Ranges
Thanks for the post
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks