Summary Totals

[Paul Cherian]

Dear Experts!

I am trying to develop a macro to get the summary on the very bottom of my report. The range of report may vary. I have attached the sample file for better understanding.

Thanks in Advance!

[tax112]

Dear Experts!

I am trying to develop a macro to get the summary on the very bottom of my report. The range of report may vary. I have attached the sample file for better understanding.

Thanks in Advance!

Try:

Sub Fil_formula()
    Dim LR As Long
    LR = Range("K" & Rows.Count).End(xlUp).Row
    Range("K" & LR + 1).Resize(, 31).Formula = "=SUM(K4:K" & LR & ")"
    Range("K" & LR + 2).Resize(, 31).Formula = "=COUNT(K4:K" & LR & ")"
    Range("K" & LR + 3).Resize(, 31).Formula = "=Average(K4:K" & LR & ")"
End Sub  

[Paul Cherian]

Thanks!!! Tried with your code. However, the formulas on the "AP" and "AQ" are not appearing. In addition, Can you please try to fix the Names and formats (Borderlines) for the summary as provided on the result sheet?

Thanks again to look into my request!

[Paul Cherian]

Its fine.. Got the coding for the remaining. Many thanks for your kind effort and time!

Please Login or Register  to view this content.

[tax112]

Thanks!!! Tried with your code. However, the formulas on the "AP" and "AQ" are not appearing. In addition, Can you please try to fix the Names and formats (Borderlines) for the summary as provided on the result sheet?

Thanks again to look into my request!

Your data is in the form of text, so to calculate, must convert to numeric.
You use Code

Sub Test()
    Dim Rng As Range
    Dim cel As Range
    Set Rng = Range("K4:AO6")
    On Error Resume Next
    Application.ScreenUpdating = False
    Rng.NumberFormat = "General"
    For Each cel In Rng
        cel.Value = cel.Value * 1
    Next cel
    Application.ScreenUpdating = True
End Sub  

Then you run the code:

Sub Fil_formula()
    Dim LR As Long
    LR = Range("K" & Rows.Count).End(xlUp).Row
    Range("K" & LR + 1).Resize(, 31).Formula = "=SUM(K4:K" & LR & ")"
    Range("K" & LR + 2).Resize(, 31).Formula = "=COUNT(K4:K" & LR & ")"
    Range("K" & LR + 3).Resize(, 31).Formula = "=Average(K4:K" & LR & ")"
    With Range("AP4:AP" & LR)
        .Value = "=SUM(RC[-31]:RC[-1])"
        .Resize(LR - 1).FillDown
    End With
End Sub  

[AliGW]

Rule 08: Cross-posting Without Links

Your post does not comply with Rule 8 of our Forum RULES. Do not cross-post your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

No further help to be offered, please, until the OP has complied with this request.