reset vraagje

[peng]

Omdat ik de vorrige keer zo goed geholpen was, dacht ik bij mezelf ik probeer het nog eens een keer hier.

Ik heb nu een mooi gebruikbaar excelbestand, maar ik wilde er 2 opties aan toevoegen, mits dat mogelijk is.

het gaat hier om het volgnummer.
Ik zou graag willen dat aan het begin van een nieuwe dag het volgnummer zich terug zet naar 1

bijgevoegd is het bestand wat ik bedoel

 

[Cobbe]

Zou dit u verderhelpen?

Cobbe

 

[peng]

bedank voor je reply maar dat was eigenlijk niet wat ik zocht.

want nu klopt de datum niet meer ik bedoelde meer iets in de zin als het bestand wat ik nu erbij heb toegevoegd, er zit een reset knop bij, maar wil liever dat die 1 zich reset aan het eind van de dag

 

[Roncancio]

Je zou gebruik kunnen maken van FileDateTime.

Private Sub Workbook_Open()
If Format(FileDateTime(ActiveWorkbook.Path), "dd-mm-yyyy") <> Format(Now(), "dd-mm-yyyy") Then Worksheets(1).Range("G4").Value = 1

End Sub

Bovenstaande code zet je neer bij ThisWorkbook.

Bij het openen van het bestand wordt gekeken wanneer voor het laatst het bestand is opgeslagen en/of veranderd.
Indien dat niet de dag van vandaag is wordt de waarde van cel G4 op 1 gezet.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Of zo

Private Sub Workbook_Open()
    If Format(ThisWorkbook.BuiltinDocumentProperties(12), "ddmmyyyy") <> Format(Date, "ddmmyyyy") Then
            Worksheets(1).[G4].Value = 1
    End If
End Sub

Mvg

Rudi

 

[Cobbe]

Sorry, foutje in de afdrukmacro:

Sub Afdrukken()
' Oud nummer wordt opgehaald
    oldnumber = Range("G1")
'Printbereik wordt vastgelegd en geprint
        Range("A1:G54").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'De huidige maand wordt vasgesteld en vergeleken met het huidige nummer
    Maand = Mid(Format(Date, "ddmmyy"), 4, 2)
      If Mid(oldnumber, 2, 2) <> Maand Then
' Als het een nieuwe maand betreft wordt de teller terug op 01 gezet
    Number = Format(Date, "yymmdd" & "01")
' Het nummer wordt in het werkblad gezet
        Range("G1") = Number
      Else
' Anders wordt er gewoon een(1) bijgeteld
        Range("G1") = Range("G1") + 1
' De twee cellen met datums worden vastgezet bij het printen
     '   Range("G2") = Range("G2")
     '   Range("G3") = Range("G3")
      End If
End Sub

Dan hoef je geen extra knop en je kunt er het save-gedeelte nog aan vast knopen.

Cobbe

 

[peng]

bedankt voor de hulp jongens :thumb: