Waarde kopieren in bereik

[mrhypefm]

Hey VBAers,

Ik ben voor het werk een bestand aan het maken waar ik de medewerkers in heb staan. Ik wil graag hun contract uren per week in het bestand zetten. Op deze manier kan ik makkelijk of er genoeg contracturen zijn per week en of ik moet bij recruteren etc.

Graag wil ik doormiddel van een week tot week en het aantal contracturen in te vullen en dan op een knop te drukken dat de vba het volgende doet zoals in het voorbeeld bestand. Hij zet de contract uren in het bereik neer van week tot week.

Hoop dat jullie mij kunnen helpen

Bekijk bijlage Loopduur contracten.xlsxBekijk bijlage Loopduur contracten.xlsx

 

[HSV]

Bv.

Sub hsv()
 Cells(Application.Match([d2], Range("a1:a56"), 0), Application.Match([d3], Range("a11:ba11"), 0)).Resize(, [d4] - [d3] + 1) = [d5]
End Sub

 

[mrhypefm]

Hey Harry,

Werkt super! Weet jij hoe je dit werkzaam maakt in Google script? Even vergeten dat je in de cloud geen macro's kan gebruiken.....

 

[HSV]

Als macro's niet werken in de cloud zal het met formules ook niet gaan.
Als je immers D2 wijzigt zijn de contracturen weer weg van de vorige persoon.