urenregistratie

[bosaap 34]

beste mensen

ik ben bezig met een urenregistratie voor mijn stagebedrijf.
Nu heb ik 1 blad gemaakt waar de uren per dag geregistreerd worden en waar uiteindelijk het totaal aan uren per week in komen te staan doormiddel van de som functie

nu heb ik in blad 2 een tabel gemaakt die doormiddel van de "als" functie de totaaluren per dag ophaalt afhankelijk van welke week.

Nu werkt dit op zich prima, maar zodra ik van week verander verwijdert hij mijn oude week gegevens. Hoe kan ik er voor zorgen dat mijn oude gegevens blijven staan.
Ik heb al het 1 en ander geprobeerd met plakken speciaal( alleen waarden kopieren) en daar een marco aan te hangen. maar dat wil helaas niet lukken.

Let op ik moet dit maken voor mensen die weinig verstand hebben van excel, dus gebruikersvriendelijk

alvast bedankt en ik hoop dat iemand mij kan helpen..

groetjes tim

 

[Demeter]

Hang eens een voorbeeld aan? (zonder persoonlijke gegevens!).
Werkt wat gemakkelijker

Groet,
Ferenc

 

[bosaap 34]

urenregistratiesysteem

ok hier komt i dan, ik hoop dat je me kunt helpen

alvast bedankt

groetjes tim

Ps de gegevens die er bij staan zijn fictief

 

[Demeter]

mmmm, heb nu wel een knop op je 1e blad gezet met daarop deze code:

Sub overhalen()
Dim MyRange As Variant
Dim c As Range

Set MyRange = Sheets("Uren dagelijks").Range("B1")

For Each c In Sheets("Uren wekelijks").Range("C3:Q3")
    If c = MyRange Then
        'Vraag of ze het de gegevens over willen zetten
        response = MsgBox("weet je zeker of je de uren van week " & c.Value & " wilt overzetten?", vbYesNo, Title:="Gegevens overzetten!")
        'als er op ja wordt gedrukt
        'zet de gegevens over
        If response = vbYes Then
            Sheets("Uren dagelijks").Range("J6:J24").Copy
            c.Offset(2, 0).PasteSpecial xlPasteValues
            
            'Selecteer blad 'Uren wekelijks'
            Sheets("Uren wekelijks").Activate
            
        Else
        'als er op nee wordt gedrukt
        'laat bericht zien dat er geen gegevens zijn overgezet
            MsgBox "Er zijn geen gegevens overgezet!!!"
        End If
    End If
Next

End Sub

Als je nu je wekelijkse uren veranderd hebt + weeknummer aangepast en je drukt op de knop 'overzetten' worden je uren naar de juiste week gekopieerd.


Groet,
Ferenc

 

[bosaap 34]

urenregistratiesysteem

ja dat was de bedoeling! hartstikke bedankt voor je hulp!:thumb:

groetjes tim