Subtotal Function not working

[zahidrock]

i am trying to getting sum on filter data but when i use subtotal function that are not working on there..

 

[Vidar]

It looks like your values in column D Is formatted as number (oriented to the right in cell) as they should be.
But can you check if it really is numbers and not numbers stored as text?

 

[zahidrock]

It looks like your values in column D Is formatted as number (oriented to the right in cell) as they should be.
But can you check if it really is numbers and not numbers stored as text?

Ohh!! i see that it is on text format, i have lot of cell like this can you tell me how can i convert all of them text to number?

 

[Oeldere]

Sub TextRangeToNumbers_incolumn_D()
'Made by Datsmart 14-07-2006 on mr Excel
    Dim rng As Range
    Dim c As Range
'Change Column A referrence as needed
    Set rng = Range("D1:D" & Range("D1500").End(xlUp).Row)
    On Error Resume Next
'Cycle through each item in Rng, Trim value then add zero
    For Each c In rng
        If c.Value <> "" Then
            Application.WorksheetFunction.Trim (c.Value)    'Trim removes any spaces
            c.Value = c.Value + 0   'Adding 0 changes item to number
        Else
        End If
    Next c
End Sub

 

[zahidrock]

Sub TextRangeToNumbers_incolumn_D()
'Made by Datsmart 14-07-2006 on mr Excel
    Dim rng As Range
    Dim c As Range
'Change Column A referrence as needed
    Set rng = Range("D1:D" & Range("D1500").End(xlUp).Row)
    On Error Resume Next
'Cycle through each item in Rng, Trim value then add zero
    For Each c In rng
        If c.Value <> "" Then
            Application.WorksheetFunction.Trim (c.Value)    'Trim removes any spaces
            c.Value = c.Value + 0   'Adding 0 changes item to number
        Else
        End If
    Next c
End Sub

I have already done this with another system.. thanks mate..