Mr Know-it-all
Gebruiker
- Lid geworden
- 26 dec 2005
- Berichten
- 24
Hallo Allemaal!
Ik wil de som van de waardes in kolom E ten opzichte van een gevonden waarde in kolom A
Dus in kolom A wordt gezocht naar "hello" alles wat in kolom E achter hello staat wordt bijelkaar opgeteld.
De som moet op een andere worksheet in een cell gezet worden.
Ik kom zelf tot dit maar weet niet of het zo zal werken:
In de bijlage heb ik een voorbeeld bestandje gestopt.
Alle hulp is welkom!
Alvast bedankt.
Ik wil de som van de waardes in kolom E ten opzichte van een gevonden waarde in kolom A
Dus in kolom A wordt gezocht naar "hello" alles wat in kolom E achter hello staat wordt bijelkaar opgeteld.
De som moet op een andere worksheet in een cell gezet worden.
Ik kom zelf tot dit maar weet niet of het zo zal werken:
Code:
Sub SumFoundOffset()
Dim wsData As Worksheet
Set wsData = Worksheets("Data")
Dim wsNewData As Worksheet
Set wsNewData = Worksheets("NewData")
Dim dataLastRow As Long
Dim i As Long
dataLastRow = wsData.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To dataLastRow
If wsData.Cells(i, 1).Value = "Houten kozijn" Then
wsNewData.Cells("A1") = WorksheetFunction.Sum wsData.Cells(i, 5).Value
End If
Next
End Sub
In de bijlage heb ik een voorbeeld bestandje gestopt.
Alle hulp is welkom!
Alvast bedankt.