Sum value with simmilar parameters

[knaabis]

How to SUM by VBA simmilar dimensions (for example - 16 65 185, 16 65 380, 22 75 898)values (Pcs) from column D and get result in column E (Sum).
These SUM I have already put in example in column E.

SpecifikacijaTest1.xls
	A	B	C	D	E
1
2
3	Dimensions			Pcs	Sum
4	16	65	185	10
5	16	65	185	5
6	16	65	185	3	18
7	16	65	380	8
8	16	65	380	1	9
9
10	22	75	898	4	4
Sheet1

 

[GlennUK]

Have you considered creating a PivotTable to do this for you?

Excel Workbook
	A	B	C	D
1
2
3	Dimension1	Dimension2	Dimension3	Pcs
4	16	65	185	10
5	16	65	185	5
6	16	65	185	3
7	16	65	380	8
8	16	65	380	1
9	22	75	898	4
10
11	Sum of Pcs
12	Dimension1	Dimension2	Dimension3	Total
13	16	65	185	18
14			380	9
15	22	75	898	4
16	Grand Total			31
Sheet11

 

[knaabis]

Not, i need accurately SUM in these places what you see in sample and by VBA.

 

[GlennUK]

Have you tried to write the VBA at all? Have you got any sample code to show?

 

[knaabis]

I have no idea how to do it...

 

[knaabis]

I get code, but it work if two or more rows will be summed.
If only one row, then i get wrong result.

SpecifikacijaTest2.2.xls
	A	B	C	D
1
2
3
4
5
6	Dimensions			Pcs
7	16	65	185	10
8	16	65	185	5
9	16	65	185	3
10
11	16	65	380	8
12	16	65	380	1
13
14	22	75	898	4
15
16	25	65	380	10
17	25	65	380	20
18
Sheet1

Sub Sum_In_Empty_Row()
LR = Range("d7").End(xlDown).Row + 1
LR1 = Range("c" & LR - 1).End(xlUp).Row
Range("d" & LR).Select
ActiveCell.Value = Application.Sum(Range("d" & LR1 & ":d" & LR - 1))
End Sub

SUM values i will get in cells - D10, D13, D15, D18
For D10, D13, D18 is OK, but for D15 i get wrong result...

 

[GlennUK]

This does what you want:

Sub Sum_In_Empty_Row_New()
    lastrow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    irow = 7
    istart = 7
    Do Until irow > lastrow
        If Cells(irow, 4).Value = "" Then
            Cells(irow, 4).FormulaR1C1 = "=SUM(R" & istart & "C:R" & irow - 1 & "C)"
            istart = irow + 1
        End If
        irow = irow + 1
    Loop
End Sub

 

[knaabis]

Super!
Thanks.