forenkel koden??

Hvad mener du
med "når det skal ligges ind til 31 rækker"

skal koden dække over 31 rækker i excel, så skal du jo bare fange aktive række, så kan koden gælder dem for alle, med lidt tilretning.

prøv at sende et eksempel ark.

kabbak snabela tiscali dot dk

kort sagt er det time seddler jeg er ved at lave.
så jeg har jo mandag, tirsdag, osv. og så en hel månede (31 rækker)

men det er jo en større opgave, da den selv skal finde ud af, om den skal regne timerne ud det ene eller andet sted.

Har en seddel til fast arbejdsplads, den anden er i tilfælde af at jeg tager et vikarjob, begge seddler er der 3 * 7 celler, (dag, aften, nat) og ned af fra (mandag til søndag)

Håber det gav et lidt bedre indblik i hva' jeg prøver på, koden har jeg, som i du ser fundet, men sys den virker noget uoverskuelig da den skal bruges i så mange rækker, så håbet der var en som lige kendte nogle små fikse koder som ville gøre det lidt nemmer??

Jeg prøver:

koden er lavet om, så du skal stå på den række der udregnes, den virker overalt.

Sub timer()
    Dim iResultat, iResultat1, iResultat2, RW As Long
    'Sheets("jan").Select
    RW = ActiveCell.Row    ' her findes rækken hvor du står

    If Cells(RW, "M") = 2 Then GoTo aften
    If Cells(RW, "M") = 1 Then GoTo dag
dag:
    Cells(RW, "X") = ""
    Cells(RW, "Y") = ""
    If Cells(RW, "I") * 24 < 17 Then
        iResultat = 17 - (Cells(RW, "I") * 24)
        iResultat1 = (Cells(RW, "J") * 24) - 17
        Cells(RW, "S") = iResultat + (Cells(RW, "E") - Cells(RW, "D") * 24)

        If Cells(RW, "N") = "" Then
            Cells(RW, "T") = iResultat1
        Else
            GoTo Nat
        End If
    Else
        Cells(RW, "T") = (Cells(RW, "J") - Cells(RW, "I")) * 24
    End If
    Exit Sub

aften:
    Cells(RW, "S") = ""
    Cells(RW, "T") = ""
    If Cells(RW, "I") * 24 < 17 Then
        iResultat = 17 - (Cells(RW, "I") * 24)
        iResultat1 = (Cells(RW, "J") * 24) - 17
        Cells(RW, "X") = iResultat
        Cells(RW, "Y") = iResultat1
    Else
        Cells(RW, "Y") = (Cells(RW, "J") - Cells(RW, "I")) * 24
    End If

    If Cells(RW, "O") < Cells(RW, "N") Then
        iResultat2 = (((Cells(RW, "O") * 24) + 24) - (Cells(RW, "N") * 24))    '+ iResultat1
        Cells(RW, "Z") = iResultat2
    Else
        iResultat2 = (Cells(RW, "O") - Cells(RW, "N") * 24)    '+ iResultat1
        Cells(RW, "Z") = iResultat2
    End If
    Exit Sub

Nat:
    If Cells(RW, "O") < Cells(RW, "N") Then
        iResultat2 = (((Cells(RW, "O") * 24) + 24) - (Cells(RW, "N") * 24)) + iResultat1
        Cells(RW, "T") = iResultat2
    Else
        iResultat2 = (Cells(RW, "O") - Cells(RW, "N") * 24) + iResultat1
        Cells(RW, "T") = iResultat2
    End If
    Exit Sub
End Sub

Du har ramt helt plet med det svar, det funker præcis som det skal.. så smid et svar.. :)

vil dog lige høre om man evt kan få den til at tage højde for at man efter at have trykket start tid og slut tid normalt ville bruge enter i stedet for tab igen??

Vi kan lave den automatisk, hvis du synes, hvilke kolonner skriver du starttid og sluttid i, og hvilken rækker er du i.
eks. C2:D32

hvor du har starttid i c kolonnen og sluttid i D kolonnen

den har jeg faktisk flere steder da der både er plads til at skrive dag, aften og nat vagter ind.. men hva mener du med at lave den automatisk??

Du glemte dit svar.. ;)

Jeg mener at hvis du skriver i en række og så når du er færdig med at skrive i den sidste celle, så kører koden automatisk.
Jeg skal bare vide hvilken kolonne du sidst skriver i.

Jeg har dag start i "D", aften start i "I", og nat start i "N"
og så dag slut i "E", aften slut i "J", og nat slut i "O"

og hva for en jeg skriver i sidst kommer jo an på om jeg tilføjer dag, aften eller natte vagt..

Det gør det jo lidt vanskeligere, men du kan jo også styre den bedre manuelt, den laver jo ikke noget uønsket. ;-))

jeg forstår ikke hvad du mener med:

"vil dog lige høre om man evt kan få den til at tage højde for at man efter at have trykket start tid og slut tid normalt ville bruge enter i stedet for tab igen??"

ja det gjord det nemlig.. :)
men du du må gerne skrive det til mig alligevel, kunne godt være jeg kunne få brug for det til noget andet jeg også har givet mig i kast med.. :)

hvis vi nu siger at jeg står i D16 og taster start tid ind, trykker tab, og taster slut tid ind, trykker jeg så enter nu, så hopper den ned på D17, hvilket betyder at det er række 17 og ikke række 16 den regner ud som den jo gerne skulle??

forstår du hva jeg mener med det nu??

OK, det styrer du i Excel, her i 2003,
Funktioner > indstillinger >Fanen Rediger, ved Flyt markering efter Enter, vælg til højre.

Denne i arkets modul, du skal have en i hvert ark du har timesedler i.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E2:E32,J2:J32,O2:O32")) Is Nothing Then Exit Sub
    Call timer(Target.Row)
End Sub



Ret toppen af den anden kode til dette

Sub timer(RW)
    Dim iResultat, iResultat1, iResultat2 '
    'Sheets("jan").Select
  ' RW = ActiveCell.Row    ' her findes rækken hvor du står

okay, og hva er det helt præcis koden her vil gå ind og gøre??

den del her, holder øje med om du skriver i E, J eller O kolonnen, der er der su skriver sluttid, hvis disse celler ændrer sig kører koden.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E2:E32,J2:J32,O2:O32")) Is Nothing Then Exit Sub
    Call timer(Target.Row)
End Sub