Totalen bereken na vergelijking!!!

[Demeter]

Ik ben bezig met een planning en nu wil ik graag de totaal aantal gemaakte uren optellen van en bepaalde werkfunctie (engineer). Deze functie is weer gekoppeld aan een werknemer.

Het probleem schuilt erin dat ik tussen deze werknemers nog een aantal regels ga voegen als er nieuwe projecten binnenkomen. Het bereik moet dus dynamisch zijn.


Ik dacht dit opgelost te hebben, maar........... mijn vb kennis schiet hier toch echt nog te kort.


Ik krijg de uren welke door de loop worden gevonden niet bij elkaar opgeteld. Zou iemand mij in de jusite richting kunnen sturen?

In het voorbeeld zie ik graag dat de uren van de engineers, in dit geval sjaak en piet, worden opgeteld en worden weergegeven in de cel naast de tekst ' totaal engineering:'. Ook als er regels tussen gevoegd gaan worden.


Thanks,
Ferenc

 

[Wigi]

Voilà Ferenc

Sub gemaakte_uren_engineering3()
Dim c           As Range
Dim d           As Range
Dim intHoursEng As Integer

intHoursEng = 0
    
    For Each c In Range("A6:A11")
        If c = "engineer" Then
            Set d = Range("B13:B100").Find(What:=c.Offset(0, 1), _
                LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
                SearchDirection:=xlNext, MatchCase:=False).Offset(0, 1)
            intHoursEng = intHoursEng + d
        End If
    Next
    
    Set d = Range("A30:A100").Find(What:="Totaal engineering:", _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, MatchCase:=False).Offset(0, 1)
    d = intHoursEng
    d.Select
End Sub

Wigi

 

[Demeter]

owwwwwwwww

Wigi je code werkt fantastisch,

Geef mij maar een toppertje en een breezer, doe er ook maar een dubbele Wigi bij.


Groet,
Ferenc