Question : Collecting TOTAL from a Sharepoint list

                  SUM=5                    SUM=10

1/1/2010             2                          5

1/2/2010             3                           5

 
Here is an example of two columns I have in a list.  I want to be able to capture/extract/query,
whatever, the individual value that appears in the SUM fields.  Can this be done????

Answer : Collecting TOTAL from a Sharepoint list

Paul, please try this:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Sub BajanPaul()
Dim lastRow As Long, i As Long
Application.ScreenUpdating = False
lastRow = ActiveSheet.UsedRange.Rows.Count
For i = lastRow To 6 Step -1
    If Not IsNull(Rows(i).Text) And IsNull(Rows(i - 1).Text) And Not IsNull(Rows(i - 2).Text) And _
        Not IsNull(Rows(i - 3).Text) And Not IsNull(Rows(i - 4).Text) And Not IsNull(Rows(i - 5).Text) Then
                        Range(Rows(i - 5), Rows(i)).Delete
            i = i - 5
    End If
Next
Application.ScreenUpdating = True
End Sub
Random Solutions  
 
programming4us programming4us