Bereken Totaal Gewerkte Uren per week ?

[raygra]

Laat verschillende FOTOs zien. Bepalend door een Getal?

Hallo

Niet opgelost

Vraag zie onderin : Laat verschillende FOTOs zien. Bepalend door een Getal


Is opgelost

Ik wil elke dag bijhouden hoeveel uur ik werk.
Er zijn 2 dingen die ik moet invoeren.

- Working Date
- Working Hours
1. Van de ingevoerde gegevens. Wou ik graag De gewerkte uren per week weten. (Ma- zon 7dagen)
Dit getal komt in het GRoen vakje.
2. Ik wil elke keer De cellen H8 en H10 gebruiken om de Working Date en Working Hours in te voeren.
En doormiddel van een knop de gegevens moet wegzetten naar linkerkant van de pagina in Colum A en B.
Kan iemand een VBa code maken thanks?
3. Als ik mij Excel 2003 open wil ik in H8 de Current date hebben. Is dit mogelijk?
Antwoord is: =vandaag()

--------------- Excel Document ----------------
Bekijk bijlage working Hours v1.xls
-----------------------------------------------
Thank You
Ray

 

[Warme bakkertje]

Public Function ISOweeknum(ByVal Datum As Date) As Integer
  ISOweeknum = DatePart("ww", Datum - Weekday(Datum, 2) + 4, 2, 2)
End Function

Function WeekdagEerste(Optional Jaar, Optional Week)
    Dim X As Integer, Y As Integer
    If IsMissing(Jaar) Then Jaar = Year(Date)
    If IsMissing(Week) Then Week = ISOweeknum(Date)
    Y = Weekday(DateSerial(Jaar, 1, 1))
    If Y > 5 Then X = 7
    WeekdagEerste = DateSerial(Jaar, 1, 1) - 5 + X + 7 * Week - Y
End Function

Sub MoveIt()
    With Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Offset(1) = Format(Range("H8"), "d/mmm/yy")
        .Offset(1, 1) = Range("H10")
    End With
    For Each cl In Range("A17:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If cl >= WeekdagEerste And cl <= WeekdagEerste + 6 Then
            sn = sn + cl.Offset(, 1)
        End If
    Next
    Range("H13") = sn
End Sub

Plaats alles in een standaardmodule en maak een knop aan op je werkblad. Verbindt deze dan met de macro MoveIt

 

[raygra]

Hey Warme Bakkertje,

Bedankt voor de code.

Nog een ander vraag.

Er zijn 2 kolommen. Kolom C bevat Datums en D kolom bevat een getal

1. Zoek in kolom b de hoogst getal, en zet dit getal in Cel J8 met de bijbehorende Datum.

Alvast bedankt.

 

[Warme bakkertje]

Range("J8") = WorksheetFunction.Max(Range("D:D")) & " - " & Sheets("Blad1").Columns(4) _
                .Find(WorksheetFunction.Max(Range("D:D")), , xlValues, xlWhole).Offset(, -1).Value

 

[raygra]

Laat verschillende FOTOs zien. Bepalend door een Getal

Thanks

Nu een If- formule die:

Laat één van de 3 Image zien, welke plaatje wordt weergegeven hangt af van de hoogte van het getal.
De invoer getal is verschillend. Bv kan heel getal zijn of met komma's:

If <=13 then show image1 die in C5 zit
If >=14 and <=20 show image2 die in C6 zit
If >=21 then show image3 die in C7 zit

Thank you
Ray

 

[Warme bakkertje]

Ja, OK.
Dit begint verdacht veel op schoolwerk te lijken en daar pas ik voor.
Laat eerst maar eens zien wat jij al bijeengestoofd hebt.

 

[raygra]

Leuk Ik zit al lang niet meer op school. Dit is persoonlijk project. Aan de andere kant kan ik jouw mening begrijpen.

Hoe kan je iets afronden bijv

7,10 wordt 7,15
7,25 wordt 7,30

afronden naar:
0,15
0,30
0,45

ray


De Oplossing heb ik onderin de pagina gezet:
Met een Roze kleur

 

[raygra]

Ja, OK.
Dit begint verdacht veel op schoolwerk te lijken en daar pas ik voor.
Laat eerst maar eens zien wat jij al bijeengestoofd hebt.

Bijeengestoofd, wat bedoel je precies?
Ik heb een klein beetje ervaring met simple formules, verder ik kan image laten zien doormiddel van een getal bijv
1 laat een afbeelding1 zien
als ik
2 kies laat hij afbeelding2 zien
etc

Alleen het is mij nog niet gelukt om een random getal die iets moet voldoen. voordat de juiste image.

Ik had op school wel certificaat voor excel. Maar dat was een hele tijd geleden en Rekenen formules is niet mij sterke eigenschappen helaas.

Ik beweert niet op school te zitten. Dit kan je controleren. Bijv door:
Na 2013 nog eens na mij vragen te kijken en misschien een oplossing wilt geven.
Op die manier kan ik aantonen dat ik niet op school zit.

Als dit Huiswerk was zal dit een Deadline hebben = misschien week of max 2 maanden.
Mijn project is persoonlijk.
Dit bericht is positief bedoelt.

Groetje
Ray

 

[raygra]

Mijn oplossing
Formule die op een kwart afrond, A1 is waar het getal ingevoerd moet worden

=AFRONDEN.BOVEN.NAUWKEURIG(A1;0,25)

 

[raygra]

Een kleine opmerking jullie server is al een paar keer OFFLine gegaan.
Ik kon de Topic niet opgelost zetten. :-(