VBA sum up values

[Strooprover]

Hi all,

[TABLE="width: 395"]
<colgroup><col><col><col></colgroup><tbody>[TR]
[TD]Costs[/TD]
[TD]Costs 2[/TD]
[TD]Total Costs[/TD]
[/TR]
[TR]
[TD]€15,00[/TD]
[TD]€0,00[/TD]
[TD="align: center"][/TD]
[/TR]
</tbody>[/TABLE]

I want to adjust my macro so it adds up the two costs in the totcal costs area. This has to be done fot a lot of rows. In between the rows in this column there are empty spaces. I made this formula, but when I use the sum formula it says: €15,00€0,00 in the total costs area.

Can someone help me?

Sub Macro1()
Dim ws2 As worksheet
Set ws2 = Sheets("Sheet2")




Dim kosten As String
totkosten = ws2.Range("E2").Value


i = 1
For x = 1 To 1000


keer = Range("F" & i).Value


If ws2.Cells(x, 5) = totkosten Then
ws2.Cells(x, 5).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Range("A1:A" & keer).Value = ActiveCell.Offset(0, -2).Value + ActiveCell.Offset(0, -1).Value


i = i + 1
End If


Next x






End Sub

 

[Fluff]

Hia
Give this a go

With ActiveCell
    .Range("A1:A" & keer).Value = WorksheetFunction.Sum(.Offset(, -2), .Offset(, -1))
End With

 

[Scott T]

Assuming the costs are in column C and D and you want the total in E then this should work

Sub sumtotal()
Dim lr As Long
Dim ws2 As Worksheet
Set ws2 = Sheets("Sheet2")
lr = ws2.Cells(Rows.Count, 3).End(xlUp).Row
For x = 2 To lr
    If Cells(x, 3) <> "" Then
        Cells(x, 5) = Cells(x, 3) + Cells(x, 4)
    End If
Next x
End Sub