Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Summing user selected records
Hi all - I'm new to VBA programming in Excel and so any help i'd
totally love! I'm currently writing a function. Objective: user can select rows (do not have to be sequential). User clicks on button. UserForm appears with summed results from ONLY rows that he selected. What I have now, well it doesn't work: Sub Button6_Click() Dim i As Integer Dim totalNumbers As Integer Dim aRange As range For Each a In Selection.Areas 'MsgBox "Area " & i & " of the selection contains " & _ ' a.Rows.Count & " rows." 'call with the selection area and then number of rows Call SumValues(a, a.Rows.Count) i = i + 1 Next a End Sub Public Sub SumValues(a As AcRecord, numberOfRows As Integer) Dim i As Integer Dim iRow As Integer iRow = 6 'set up the column headings 'loop through the recordset Do While rs.EOF = False i = 1 If Oil = 1 Then Call printOrNot("Oil", rs!Oil, i, iRow) i = i End If If Gas = 1 Then Call printOrNot("Gas", rs!MCFs, i, iRow) i = i End If If Water = 1 Then Call printOrNot("Water", rs!Water, i, iRow) i = i End If Loop End Sub Public Sub printOrNot(ByRef sumVal As String, rsName As String, ByRef i As Integer, iRow As Integer) If iRow = 6 Then 'objSheet.Cells(iRow, i) = colHeading Else sumVal = sumVal + rsName End If 'return this value End Sub My spreadsheet has any number of columns as seen in SumValues() function. So whenever the user selects rows, I just need to sum all of the columns up on the spreadsheet that he asked to see. Any help that you guys can give would be so totally appreciated. Thank you so much in advance!!! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Summing data on duplicate records? | Excel Worksheet Functions | |||
Summing up Unique Records | Excel Discussion (Misc queries) | |||
Trouble identifying selected records | Excel Discussion (Misc queries) | |||
Summing the # of records | New Users to Excel | |||
Summing the last records of every month. | Excel Programming |