Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do I sum across rows in a macro? SumIf?
I am having trouble writing a code that performs a sum if calculation
on a dynamic range of cells. For each "item" I want 1 row that sums the totals for each date. See below: I currently have this data on Sheet 1. 11.01 11.02 11.03 11.04 11.05 1 4 5 6 7 8 1 9 10 11 12 13 1 14 15 16 17 18 2 19 20 21 22 23 2 24 25 26 27 28 2 29 30 31 32 33 3 34 35 36 37 38 3 39 40 41 42 23 3 44 45 46 47 48 I built a macro to get this on Sheet 2. 11.01 11.02 11.03 11.04 11.05 1 2 3 Ultimately I want this on Sheet 2. 11.01 11.02 11.03 11.04 11.05 1 27 20 33 36 39 2 72 75 57 81 84 3 117 120 123 126 109 What is the best way to populate this matrix. The number of dates and "items" will change. This is what I current have, but I can't figure out how to sum across rows to populate sheet 2. Any ideas? Sub Unique2() Dim cLastRow As Long Dim i As Long Dim j As Long Dim thisValue As Long Dim isUnique As Boolean Dim outputRow As Long outputRow = 1 cLastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To cLastRow thisValue = Cells(i, 1) isUnique = True If Not i = cLastRow Then For j = i + 1 To cLastRow If thisValue = Cells(j, 1) Then isUnique = False Next j End If If isUnique Then 'output somewhere Sheet2.Cells(outputRow, 1) = thisValue outputRow = outputRow + 1 End If Next i End Sub Sub CopyDateRange() Rows("1:1").Select Selection.Copy Sheets("Sheet2").Select Rows("1:1").Select ActiveSheet.Paste End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SumIf across columns instead of rows | Excel Worksheet Functions | |||
sumif on a single criteria rows but several sum rows | Excel Discussion (Misc queries) | |||
sumif only for unhidden rows | Excel Worksheet Functions | |||
SUMIF with rows and columns | Excel Worksheet Functions | |||
sumif columns and rows | Excel Worksheet Functions |