Solved

Automate Excel tasks

Posted on 2012-03-25
3
340 Views
Last Modified: 2012-03-25
So that I can award more points, I am breaking down my requirements into several parts.  Please refer to the attached Excel file.

Part A:
 I would like a macro which:
-      Formats the numbers in Cols E to H as numbers with 1000 separator (,) and  no decimal places
-      Inserts column totals in Cols E to H
-      Inserts cross-totals in Col I

Thanks.
Book1.xlsx
0
Comment
Question by:RishiSingh05
  • 2
3 Comments
 
LVL 33

Accepted Solution

by:
Norie earned 500 total points
ID: 37762672
I wasn't 100% sure what you meant by cross-sums but I've added a formula in each row of I that sums columsn E to H.


Also, I wasn't sure if you wanted that sum to also include the row with the column sums, if you do use this.
    Set rng = Range("I2:I" & LastRow+1)
    

Open in new window


Anyway, here's the code.
Dim rng As Range
Dim LastRow As Long

    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    Set rng = Range("E2:H" & LastRow)
    
    rng.NumberFormat = "#,000"
    
    Set rng = Range("E" & LastRow + 1 & ":H" & LastRow + 1)
    
    rng.Formula = "=SUM(R2C:R[-1]C)"
    
    
    Set rng = Range("I2:I" & LastRow)
    
    rng.Formula = "=SUM(E2:H2)"

Open in new window

0
 

Author Comment

by:RishiSingh05
ID: 37762678
Thanks.  I will test it out and let you know.
0
 

Author Comment

by:RishiSingh05
ID: 37762682
I will post Part B shortly.  Thanks.
0

Featured Post

Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
Technology opened people to different means of presenting information, but PowerPoint remains to be above competition. Know why PPT still works today.
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

808 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question