Help with macros, what's wrong with my code??

whatsup · #1 01-12-2015, 10:27 AM

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

cc.caroline15 · #2 01-12-2015, 07:25 PM

Hi,
What i'm trying to do is that when the user clicks the macro have a window pop up asking in what cell do you want to display the results of adding cells B6:E6 and end up with the active cell being the cell that is displaying the results. Please help me I'm so confuse my code is not working.
Thanks

Quote:

Originally Posted by whatsup

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
What's wrong with my loop?	Irrma	Word VBA	2	06-17-2014 06:25 AM
What's wrong with my code?	ksigcajun	Word VBA	3	05-19-2014 06:42 AM
Wrong hyphenation	NobodysPerfect	Word	1	02-04-2014 05:46 AM
Demo gone wrong	RyanNIF	Publisher	1	10-19-2011 05:55 AM
PLEASE HELP-wrong formatting????	bruce	Word	10	04-10-2010 03:45 PM