Macro to Autosum variable rows above selected cell

[Stratfordoaks]

Hope somebody can help please. I need a Macro to autosum from a selected row cell in column D and perform autosum in all rows above it until it reaches the last autosum row. I need this to work from column D to AB.

[Winon]

Hello Stratfordoaks,

Welcome to the Forum.

Check if the attached WorkBook is what you have in mind.

Also see the "Please consider" note at the bottom of this Post.

[HaHoBe]

Hi, Winon,

I´m not so sure about the AutoSum range being a determined range but TO may clear that.

I would have taken a Loop instead of writing all the formulas:

Please Login or Register  to view this content.

Ciao,
Holger

[Winon]

@ HaHoBe,

Hello "Ciao",

I couldn't agree with you more Holger.

The only thing is that I am not sure as to what level of VBA skills the OP has to understand what Dims, Constants and Loops are.

So I kept it simple basic "Longhand".

[Stratfordoaks]

Hi Winon

Thanks for your reply. I forgot to mention that I need this macro to start in the active cell which could be any row in column D and then run macro to sum above to the last row containing an autosum or this could be a blank line. I have linked my worksheet to show you.

Worksheet

[Winon]

Hello Stratfordoaks,

The file download was reported as unsafe, containing viruses, etc. So I had to abort the Download. Please could you upload your Workbook via the Forum Posts by Clicking on Go Advanced, and upload from there.

Thank you.

[HaHoBe]

Hi, Stratfordoaks,

if you offer a workbook for download I would get rid of every link to another workbook on your Desktop.

Give this a try:

Please Login or Register  to view this content.

Ciao,
Holger

[Stratfordoaks]

Hi Winon

Ok here it is. Thankyou.

[Stratfordoaks]

Hi Ciao

Thank you for your reply. I have tried the code, which works fine, but i need it to perform the auto sum from any selected row in column D and only sum up to a blank line and not to D2. Hope you can help me.

[HaHoBe]

Hi, Stratfordoaks,

there was no blank cell in Column D in your sample?

You may utilze something like

Please Login or Register  to view this content.

but you need to check if the returned value is greater than 1 (which would mean no empty cells in that column).

Ciao, '<-- Greeting
Holger '<-- FirstName

[Stratfordoaks]

Hi Holger

Sorry for wrong name! Please excuse my newness to macro's. Could you give me the code for doing this autosum including your code in the last reply?

[HaHoBe]

Hi, Stratfordoaks,

no problem with my name. Please find the altered code, changes are coloured in blue:

Please Login or Register  to view this content.

Ciao,
Holger

[Stratfordoaks]

Hi Holger

Its almost perfect! It auto sums upwards from whichever row I start from in column D, but does not sum the last row at the top of the range. For example if I start in cell D11 the formula shows =SUM($D$8:$D$10) and I need it to be =SUM($D$7:$D$10) as the data is in rows D7:D10. Thank you for your help.

[HaHoBe]

Hi, Stratfordoaks,

please change the red lines

Please Login or Register  to view this content.

to read either

Please Login or Register  to view this content.

which switches the lines into comments the compiler will not regard when running or shorten the code by deleting them to

Please Login or Register  to view this content.

Ciao,
Holger

[Stratfordoaks]

Hi Holger

That works perfectly now. Thank you so much for your help