excel springe et fælt over (macros)

som det er nu, så tages den næste frie række - du kan lave det om til 'kalender-look' ved at lade den bruge dagnummer i række-tallet.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim RK As Long, X As Byte
    If Weekday(Date) = vbMonday Then X = 1    'hopper en linje over hver mandag
    RK = Sheets("Arbejdstimer 2011").Range("D" & Rows.Count).End(xlUp).Row + X
    Sheets("Arbejdstimer 2011").Range("d" & RK + 1) = Now()
End Sub

Private Sub Workbook_Open()
    Dim RK As Long, X As Byte
    X = 0
    If Weekday(Date) = vbMonday Then X = 1    ''hopper en linje over hver mandag
    RK = Sheets("Arbejdstimer 2011").Range("B" & Rows.Count).End(xlUp).Row + X
    Sheets("Arbejdstimer 2011").Range("B" & RK + 1) = Now()
End Sub

mange tak for løsningen kabbak men hvad med de da dage hvor jeg holder ferie der vil jeg jo gerne til af springe de felter ferien vare fx. hvis jeg har ferie i 3 dage skal den springe 3 felter over. er mugligt og lave ?

Hvis du i kolonne A, sætter alle datoer for året, så finder denne selv datoen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Arbejdstimer 2011").Range("A:A").Select
   
        Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Offset(0, 3).Activate ' 3 kolonner til højre for A kolonnen
        ActiveCell = Now()
End Sub

Private Sub Workbook_Open()
Sheets("Arbejdstimer 2011").Range("A:A").Select
    Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Offset(0, 1).Activate ' 1 kolonne til højre for A kolonnen
        ActiveCell = Now()
End Sub

jeg har kun dansk version, men
=DATO(;MÅNED(IDAG());DAG(IDAG()))-DATO(;MÅNED(1);DAG(1))
giver fx 63 for i dag, og så skal den bare skrive i linje 63.
det bliver så til

Private Sub Workbook_BeforeClose(Cancel As Boolean)

rk = DATO(;MÅNED(IDAG());DAG(IDAG()))-DATO(;MÅNED(1);DAG(1))
Sheets("Arbejdstimer 2011").Range("d" & rk) = Now()

End Sub


Private Sub Workbook_Open()

rk = DATO(;MÅNED(IDAG());DAG(IDAG()))-DATO(;MÅNED(1);DAG(1))
Sheets("Arbejdstimer 2011").Range("b" & rk) = Now()

End Sub

så kan I selv oversætte...

hvis jeg nu optog tastningen som makro, så bliver det oversat til
        "=DATE(,MONTH(TODAY()),DAY(TODAY()))-DATE(,MONTH(1),DAY(1))"

så resultatet bliver

Private Sub Workbook_BeforeClose(Cancel As Boolean)

rk = DATE(,MONTH(TODAY()),DAY(TODAY()))-DATE(,MONTH(1),DAY(1))
Sheets("Arbejdstimer 2011").Range("d" & rk) = Now()

End Sub


Private Sub Workbook_Open()

rk = DATE(,MONTH(TODAY()),DAY(TODAY()))-DATE(,MONTH(1),DAY(1))
Sheets("Arbejdstimer 2011").Range("b" & rk) = Now()

End Sub


bemærk at år ikke er med i beregning - så tager den år 1900, og det er et skudår, så feb er på 29 dage - på den måde vil 1. marts altid stå i samme række år for år.

rk = DatePart("y", today(), vbUseSystemDayOfWeek, vbUseSystem)
giver også bare dagsnummeret

today er ukent, så
rk = DatePart("y", Now(), vbUseSystemDayOfWeek, vbUseSystem)
så har den rækkenummer

mange tak for svarene smid et svar så i kan få nogle point

takker