Microsoft Office Forums - View Single Post - [Solved] Help with macros, what's wrong with my code??

Thread: [Solved] Help with macros, what's wrong with my code??

View Single Post

Old

01-12-2015, 10:27 AM

whatsup

whatsup is offline

whatsup uses Windows 7 64bit

Windows 7 64bit whatsup uses Office 2010 32bit

whatsup uses Office 2010 32bit

Office 2010 32bit

Competent Performer

Join Date: May 2014

Posts: 137

whatsup will become famous soon enough

Default

Hi

If I've got it right, you want to sumarize the last four cells to the left of the selected cell, that's how it works:

Code:

Sub Do_Sum()
With ActiveCell
    If .Column > 4 Then
        .FormulaR1C1 = "=Sum(RC[-4]:RC[-1])"
    End If
End With
End Sub

Cheers

Reply With Quote