Line insertion

[Andy]

Hi,

Can anyone tell me how I use VBA to compare rows to each
other and if the previous row is different to the current
row then insert a line and sum the total of the row that
are equal?
This is really driving me mad. I have tried using the
Sumtotals option in the data menu in excel but I want to
compare rows using two or more cells in a row. ie coparing
by column b then by coulmn a and summing column c.

Can this be done is VBA?
Any help would be great thanks

Andy

 

[Tom Ogilvy]

Sub Tester2()
Dim Start As Range, Cell As Range
Set Start = Range("C1")
Set Cell = Range("B2")
Do While Not IsEmpty(Cell)
If Cell.Value <> Cell(0).Value Or _
Cell(1, 0).Value <> Cell(0, 0).Value Then
Cell.EntireRow.Insert
Cell(0, 2).Formula = "=sum(" & _
Range(Start, Cell(-1, 2)).Address & ")"
Set Start = Cell(1, 2)
End If
Set Cell = Cell(2, 1)
Loop
Cell(1, 2).Formula = "=sum(" & _
Range(Start, Cell(0, 2)).Address & ")"

End Sub

 

[andy]

Thanks for the help.

-----Original Message-----
Sub Tester2()
Dim Start As Range, Cell As Range
Set Start = Range("C1")
Set Cell = Range("B2")
Do While Not IsEmpty(Cell)
If Cell.Value <> Cell(0).Value Or _
Cell(1, 0).Value <> Cell(0, 0).Value Then
Cell.EntireRow.Insert
Cell(0, 2).Formula = "=sum(" & _
Range(Start, Cell(-1, 2)).Address & ")"
Set Start = Cell(1, 2)
End If
Set Cell = Cell(2, 1)
Loop
Cell(1, 2).Formula = "=sum(" & _
Range(Start, Cell(0, 2)).Address & ")"

End Sub

--
Regards,
Tom Ogilvy





.