
For i = 5 To Range("a" & Rows.Count).End(xlUp).Row
If Cells(i, 4) = "Materiale" And Cells(i + 1, 4) = "Materiale" Then
Cells(i, 10) = Cells(i, 10) + Cells(i + 1, 10)
Range(Cells(i, 5), Cells(i, 9)).ClearContents
Cells(i, 7) = "tot."
Rows(i + 1).Delete
i = i - 1
End If
Next
|
