Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Som van offset van gevonden woord

  1. #1
    Vraag is niet opgelost

    Som van offset van gevonden woord

    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.

    Klik op afbeelding voor grotere versie

Naam:  sumhello.png
Bekeken: 6
Grootte:  8,4 KB

    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.
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Waarom met VBA? Is zo simpel met een draaitabel!
    Bijgevoegde bestanden Bijgevoegde bestanden
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Dat werkt veel beter inderdaad! Bedankt!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren