Werkuren uitsorteren in dagen van de weekkolommen

[Robert Smidt]

Beste Helpmij'ers,

Ik heb een tijdwerkregistratie gemaakt en wil graag vanuit kolom B (datumkolom incl. dag v.d. week) dat de totaal gemaakte uren vanuit de kolommen J, K en L worden totaal worden gekopieerd naar de betreffende kolom waar de weekdagen staan. De actie dient uitsluitend voor de actieve regel.

Voorbeeld: wanneer ik in kolom J of K of L het aantal uren zet, het systeem deze uren kopieert naar de betreffende cel van de weekdagen. Op de eerste rij (rij 16) kun je zien hoe het eruit moet zien.

Alvast heel erg bedankt.

RobertBekijk bijlage Tijdverantwoording.xlsm

 

[Arkadi]

Als je dit bij je Worksheet_Change zet, denk it dat het doet wat je wil?

If Not Intersect(Target, Range("J16:L1000")) Is Nothing And Target.Count = 1 Then
    Range("N" & Target.Row).Offset(0, Weekday(Range("B" & Target.Row).Value, vbMonday)).Value = _
    WorksheetFunction.Sum(Range("J" & Target.Row & ":L" & Target.Row))
End If

 

[Robert Smidt]

Super bedankt, het werkt perfect...:thumb:

 

[Arkadi]

Graag gedaan hoor
Ik doe dit vaak op en ander forum in het Engels (ik woon nu in Canada), maar had HM net gevonden, en dacht het ook maar een keer in het Nederlands te proberen