Unable to do Subtotal in Microsoft Excel

[Aerona]

Sponsored Links

Well I am having an issue with the Microsoft Excel which I have installed on the computer of mine. I have noticed that I am unable to do subtotal on Excel sheet. I have tried with the lots of stuff but there was no solution to fix the matter of mine. Any help to fix the matter would be highly appreciated. Thanks a lot in advance.

[Badrunath]

If you are using Microsoft Excel 2003 on the computer of yours then I think I am aware of the solution and I would like to share with all of you. I think you are using list box and it would have the blue outline. If you wanted to convert the same then you have to use the choose the desire range on the Excel sheet and simply press the Alt, D, I and V from the keyboard of the computer of yours. so you should try the instruction which I have mentioned over here I am hoping that it would be useful to you.

[MahaGuru]

Looking at the matter I am suggesting following steps which you can use to fix the matter of yours.

• First of all you have to sort the list where you wanted to insert the sub total.
• Now you have to add the subtotal button on the data tab.
• Now choose the field for which you wanted to calculate the sub total.
• You have to specify the type of total which you wanted to insert the function from the drop down list
• You have to select the check boxes from the field and if you wanted to add the subtotal into the list box.
• Now click on the Ok button.

[GeforceUser]

It is well known that the subtotal can be used to find out the subtotal of the given range of the cell. The syntax of the subtotal can be displayed as follow.

SUBTOTAL (TYPE OF TOTAL, RANGE OF CELLS)

It is clearly mentioned that you have to add range of the data as well as range of the cells. Also you have to mentioned what kind of the subtotal you will have in terms of the data type.

[Bull50]

Looking at the problem I am suggesting following macro which you can try on the system of yours and see whether it is working or not.

Sub Phaser7400DXFTotalUserCost()
'
' Phaser7400DXFTotalUserCost Macro
' Macro recorded 6/12/2006 by Information Technology
'
' Keyboard Shortcut: Ctrl+Shift+M
'
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Total Cost"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Sheet Cost"
    Cells.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-5]/RC[-6])*(RC[-1])"
    Range("I2").Select
    Selection.Copy
    Range("I3:I39").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("H:H").Select
    Selection.EntireColumn.Hidden = True
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Account #"
    Columns("J:J").Select
    Selection.Style = "Currency"
    Range("A1:J1").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 2
    End With
    With Selection.Interior
        .ColorIndex = 1
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Columns("J:J").ColumnWidth = 9.71
    Columns("I:I").ColumnWidth = 13.86
    Columns("G:G").ColumnWidth = 10.71
    Columns("F:F").ColumnWidth = 1.14
    Columns("F:F").ColumnWidth = 0
    Columns("D:D").ColumnWidth = 13.43
    Columns("E:E").ColumnWidth = 13.71
    Columns("C:C").ColumnWidth = 13.71
    Columns("A:A").ColumnWidth = 12.57
    Columns("B:B").ColumnWidth = 33.14
    Cells.Select
    Selection.AutoFilter
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(10), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Range("A7").Select
    Application.WindowState = xlMinimized
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Range("B53").Select
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveSheet.Outline.ShowLevels RowLevels:=3
    Range("A7:J7,A9:J9,A11:J11,A15:J15").Select
    Range("A15").Activate
    ActiveWindow.SmallScroll Down:=9
    Range("A7:J7,A9:J9,A11:J11,A15:J15,A22:J22,A29:J29,A44:J44,A46:J46,A48:J49"). _
        Select
    Range("A48").Activate
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("L32").Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveWorkbook.Save
End Sub

[DotNetUser]

I am not sure but there is a corruption of the Microsoft Office which you have installed on the computer of yours. Well I recommend that you have to reinstall the Microsoft Office on the computer of yours. you should uninstall the entire software on the computer of yours and see whether it working or not. If you are getting any issue while reinstalling the software the feel free to ask about the same.

[$tatic]

Well I am suspecting that this particular issue might be occurring due to bug issue. I am suggesting that you should contact the technical support team and tell them about the issue which you are getting. You might need to file a bug report in which you have to mentioned the information which is associated with the problem which you are getting and the computer configuration of the computer of yours. the developer team would work on the same and let you know about the possible solutions to fix the matter of yours.