Som van offset van gevonden woord

Status
Niet open voor verdere reacties.

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.

sumhello.png

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.
 

Bijlagen

  • SumOffsetRange.xlsx
    8,5 KB · Weergaven: 18
Waarom met VBA? Is zo simpel met een draaitabel!
 

Bijlagen

  • SumOffsetRange.xlsx
    13,1 KB · Weergaven: 22
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan