Uren registratie

[Theunie]

Uh hoe pas je dat aan in de macro, Sorry zoals ik al eerder heb uit gelegt ik heb er de ballen verstand van, ik ben echt op jullie hulp aan gewezen, kun je dat dan nog voor mij aub aan passen.
Dan zou het bestand helemaal klaar zijn nogmaals bedankt.

Gr Theunie

 

[ExcelAmateur]

Bij deze aangepast.

 

[Theunie]

Hoi super van je

Bedankt voor alle hulp en werk

Gr Theunie

 

[Theunie]

Hoi

Sorry maar in kolom opmerkingen blijft alles staan als je naar een andere maand gaat.!!!!


Gr Theunie

 

[ExcelAmateur]

Ik begrijp het niet, als je op de knop drukt slaat hij het Blad op en komt weer op Blad1 terug.
Deze is dan helemaal leeg, bij mij althans.

 

[VenA]

Als draadjes te lang worden dan is het niet meer te volgen wie nu wat en met welk doel gemaakt heeft.

Volgens mij is dit voldoende.

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
tabnaam = Format([F3], "mmmm-yyyy")
If IsError(Evaluate("'" & tabnaam & "'!A1")) Then
    Sheets("Blad1").Copy , Sheets(Sheets.Count)
    With ActiveSheet
        .Name = tabnaam
        On Error Resume Next
        For Each shp In .Shapes
            shp.Delete
        Next shp
        .UsedRange = .UsedRange.Value
        .[A1].Select
    End With
    With Sheets("Blad1")
        .[G3:N33].SpecialCells(2).ClearContents
        .[B3] = .[B3] + 1
        Application.GoTo .[G3]
    End With
 Else
    MsgBox "Het tabblad  " & tabnaam & "  bestaat al", , "Foutje dubbel"
End If
End Sub

 

[ExcelAmateur]

@Theunie,

Hier is het bestandje, kijk of het nu wel goed werkt.
Bij mij gaat het wel goed.

 

[Theunie]

Toppie

Van harte bedankt.

Gr Theunie

 

[Haije]

Theunie,

zet je de status dan ook even op "opgelost"?

 

[Theunie]

Hoi

Ik kan de knop niet vinden???

 

[ExcelAmateur]

Theunie,

Dit zit bij de vraag stelling, dus waar je de vraag ben begonnen.
Bovenaan staan 3 items en je moet de linkse hebben.(onderwerpopties) kies voor opgelost.

Ik heb het bestandje nog een beetje aan gepast,
Hij past de formule, die de zaterdag en zondag uitrekent, automatisch naar het bereik aan.