Solved

Format Excel sheet with last row having sum and percentage formulas in the columns

Posted on 2010-11-11
7
543 Views
Last Modified: 2012-06-27
This is the second part of the orginial question titled:   Format Excel sheet with a row suming the columns

The solution provided did what I asked, sum the columns on the last row.  But I forgot that 4 columns required a different formula and format (percentages).  The percentage columns (F:I) use this formula accordingly: =IF(C8=0,0,C8/B8)

Need help updating the code to incorporate the percentage formula into the last row and also format it as a percentage (100.00%).

Thanks in advance.


Sub PostProcessing()
Dim MainWorksheet As Worksheet
' Make sure your worksheet name matches!
Set MainWorksheet = ActiveWorkbook.Worksheets("Have")
Dim DataRange As Range
Dim lastRow As Long
Set DataRange = MainWorksheet.UsedRange
' Now that you have the data in DataRange you can process it.

    mainworksheet.range("A1:J1").Font.Bold = True
    mainworksheet.range("A1:J1").Interior.ColorIndex = 15


With MainWorksheet
    .Rows(1).Insert

    With .Rows(2)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    With .Range("B1:J1")
        .Merge
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
        .FormulaR1C1 = "Test Execution Sprint View"
        .Font.Name = "Arial"
        .Font.Size = 12
    End With

    .[a2] = "Cycles"

    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

    .Cells(lastRow, 1) = "Release Grand Total"
    .Cells(lastRow, 2).Resize(1, 9).FormulaR1C1 = "=sum(R3C:R[-1]C)"

    With .Cells(lastRow, 1).Resize(1, 10).Interior
        .Pattern = xlSolid
        .ColorIndex = 37
    End With

End With



End Sub

Open in new window

Execution-20Status-20by-20Sprint.xls
0
Comment
Question by:j420exe1
  • 5
  • 2
7 Comments
 
LVL 8

Expert Comment

by:Kelvin81
ID: 34112548
Sorry,

I'd like to help but am a bit confused.  I can't find your other questions for some reason (Haven't used EE in a while most likely).

Could you tell me:
" The percentage columns (F:I) use this formula accordingly: =IF(C8=0,0,C8/B8)"  What cell is that going in?  

If you put that into the last row (assuming 8 in this case) of column F you want it to give you C/B?  

0
 
LVL 8

Expert Comment

by:Kelvin81
ID: 34112563
DOH just saw attachment, disregard please.
0
 
LVL 8

Expert Comment

by:Kelvin81
ID: 34113272
I believe this will do what you want.

Regards,
Kelvin





Sub PostProcessing()
Dim MainWorksheet As Worksheet
' Make sure your worksheet name matches!
Set MainWorksheet = ActiveWorkbook.Worksheets("Have")
Dim DataRange As Range
Dim lastRow As Long
Set DataRange = MainWorksheet.UsedRange
' Now that you have the data in DataRange you can process it.

    MainWorksheet.Range("A1:J1").Font.Bold = True
    MainWorksheet.Range("A1:J1").Interior.ColorIndex = 15


With MainWorksheet
    .Rows(1).Insert

    With .Rows(2)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    With .Range("B1:J1")
        .Merge
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
        .FormulaR1C1 = "Test Execution Sprint View"
        .Font.Name = "Arial"
        .Font.Size = 12
    End With

    .[a2] = "Cycles"

    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

    .Cells(lastRow, 1) = "Release Grand Total"
    .Cells(lastRow, 2).Resize(1, 9).FormulaR1C1 = "=sum(R3C:R[-1]C)"
    
    .Range(.Cells(3, 6), .Cells(lastRow - 1, 9)).FormulaR1C1 = "=IF(RC3=3, 0, RC3/RC2)"
    .Range(.Cells(3, 6), .Cells(lastRow, 9)).Style = "Percent"
    
    '.last
    
    With .Cells(lastRow, 1).Resize(1, 10).Interior
        .Pattern = xlSolid
        .ColorIndex = 37
    End With
    
    Set DataRange = MainWorksheet.UsedRange
    With DataRange.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With



End Sub

Open in new window

0
3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

 
LVL 8

Expert Comment

by:Kelvin81
ID: 34113337
Ugh, I'm really sorry for all of the posts.  I'm a bit rusty.

I made a mistake in the formulas.  Here's a corrected version.
-K
Sub PostProcessing()
Dim MainWorksheet As Worksheet
' Make sure your worksheet name matches!
Set MainWorksheet = ActiveWorkbook.Worksheets("Have")
Dim DataRange As Range
Dim lastRow As Long
Set DataRange = MainWorksheet.UsedRange
' Now that you have the data in DataRange you can process it.

    MainWorksheet.Range("A1:J1").Font.Bold = True
    MainWorksheet.Range("A1:J1").Interior.ColorIndex = 15


With MainWorksheet
    .Rows(1).Insert

    With .Rows(2)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    With .Range("B1:J1")
        .Merge
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
        .FormulaR1C1 = "Test Execution Sprint View"
        .Font.Name = "Arial"
        .Font.Size = 12
    End With

    .[a2] = "Cycles"

    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

    .Cells(lastRow, 1) = "Release Grand Total"
    .Cells(lastRow, 2).Resize(1, 9).FormulaR1C1 = "=sum(R3C:R[-1]C)"
    '/ % executed
    .Range(.Cells(3, 6), .Cells(lastRow - 1, 6)).FormulaR1C1 = "=IF(RC3=0, 0, RC3/RC2)"
    '/ % pass of executed
    .Range(.Cells(3, 7), .Cells(lastRow - 1, 7)).FormulaR1C1 = "=IF(RC4=0, 0, RC4/RC3)"
    
    '/ % fail of executed
    .Range(.Cells(3, 8), .Cells(lastRow - 1, 8)).FormulaR1C1 = "=IF(RC5=0, 0, RC5/RC3)"
    
    '/ % pass of total
    .Range(.Cells(3, 9), .Cells(lastRow - 1, 9)).FormulaR1C1 = "=IF(RC4=0, 0, RC4/RC2)"
    
    .Range(.Cells(3, 6), .Cells(lastRow, 9)).Style = "Percent"
    
    '.last
    
    With .Cells(lastRow, 1).Resize(1, 10).Interior
        .Pattern = xlSolid
        .ColorIndex = 37
    End With
    
    Set DataRange = MainWorksheet.UsedRange
    With DataRange.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With



End Sub

Open in new window

0
 

Author Comment

by:j420exe1
ID: 34114446
It's still putting the sum formula in the last row in each column.  
0
 
LVL 8

Accepted Solution

by:
Kelvin81 earned 500 total points
ID: 34114586
My appologies, I thought thats what you wanted.

I'm a bit slow.

Here it is with the functions in the last row as well.

Regards,
Kelvin
Sub PostProcessing()
Dim MainWorksheet As Worksheet
' Make sure your worksheet name matches!
Set MainWorksheet = ActiveWorkbook.Worksheets("Have")
Dim DataRange As Range
Dim lastRow As Long
Set DataRange = MainWorksheet.UsedRange
' Now that you have the data in DataRange you can process it.

    MainWorksheet.Range("A1:J1").Font.Bold = True
    MainWorksheet.Range("A1:J1").Interior.ColorIndex = 15


With MainWorksheet
    .Rows(1).Insert

    With .Rows(2)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    With .Range("B1:J1")
        .Merge
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
        .FormulaR1C1 = "Test Execution Sprint View"
        .Font.Name = "Arial"
        .Font.Size = 12
    End With

    .[a2] = "Cycles"

    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

    .Cells(lastRow, 1) = "Release Grand Total"
    .Cells(lastRow, 2).Resize(1, 9).FormulaR1C1 = "=sum(R3C:R[-1]C)"
    '/ % executed
    .Range(.Cells(3, 6), .Cells(lastRow, 6)).FormulaR1C1 = "=IF(RC3=0, 0, RC3/RC2)"
    '/ % pass of executed
    .Range(.Cells(3, 7), .Cells(lastRow, 7)).FormulaR1C1 = "=IF(RC4=0, 0, RC4/RC3)"
    
    '/ % fail of executed
    .Range(.Cells(3, 8), .Cells(lastRow, 8)).FormulaR1C1 = "=IF(RC5=0, 0, RC5/RC3)"
    
    '/ % pass of total
    .Range(.Cells(3, 9), .Cells(lastRow, 9)).FormulaR1C1 = "=IF(RC4=0, 0, RC4/RC2)"
    
    .Range(.Cells(3, 6), .Cells(lastRow, 9)).Style = "Percent"
    
    '.last
    
    With .Cells(lastRow, 1).Resize(1, 10).Interior
        .Pattern = xlSolid
        .ColorIndex = 37
    End With
    
    Set DataRange = MainWorksheet.UsedRange
    With DataRange.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With DataRange.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With



End Sub

Open in new window

0
 

Author Closing Comment

by:j420exe1
ID: 34115290
Perfect!  Thanks.
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

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

This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.

810 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