Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Dat lijkt me geen enkel probleem.Dan word het idd een stuk lastiger vrees ik want kans is héél groot dat het niet op 1 januari word geopend maar een paar dagen later.
De melding zou dan alleen in de eerste 2 weken van het nieuwe jaar moeten komen (maar dat is niet te doen vrees ik)
Private Sub Workbook_Open()
If today >= IsDate("1.1." & Year(today)) And today <= IsDate("15.01." & Year(today)) Then MsgBox prompt:="Er is een nieuw jaar begonnen"
End Sub
Sub Testnu()
If today >= IsDate("31.7." & Year(today)) And today <= IsDate("15.08." & Year(today)) Then MsgBox prompt:="Er is een nieuw jaar begonnen"
End Sub
Private Sub Workbook_Open()
With Sheets("2021").Cells(1).CurrentRegion
.AutoFilter 1, "<" & CLng(Date)
.Offset(1).Copy Sheets("Verleden 2021").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Ik denk dat aanpassen naar een automatisch werkend script een beter idee is dan enkel een alert te tonen.
[/I]
Private Sub Workbook_Open()
With Sheets("2021"&"2023"&"2023").Cells(1).CurrentRegion
.AutoFilter 1, "<" & CLng(Date)
.Offset(1).Copy Sheets("Verleden 2021"&"Verleden 2023"&"Verleden 2023").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Private Sub Workbook_Open()
On Error Resume Next
hj = ThisWorkbook.Names("Huidig_Jaar").RefersToR1C1 'lees waarde van gedefinieerde naam "Huidig_Jaar" uit
On Error GoTo 0
If VarType(hj) = vbEmpty Then ThisWorkbook.Names.Add Name:="Huidig_Jaar", RefersToR1C1:="=xxx" 'naam bestond nog niet, dan aanmaken met dummy-inhoud
If hj <> "=" & Year(Date) Or Format(Date, "ddmm") = "0101" Then MsgBox "Het is weeral nieuwjaar !!!!", vbInformation 'jaar verschilt van huidig jaar of we zijn nog steeds 1 jan, dan msgbox
ThisWorkbook.Names("Huidig_Jaar").RefersToR1C1 = "=" & Year(Now) 'huidig jaar erin zetten
End Sub
Je hebt dus een werkblad met als naam "202120232023"?
Dan kan dit uiteraard niet:
Sheets("2021"&"2023"&"2023")
Private Sub Workbook_Open()
With Sheets(Array("2021", "2022", "2023")).Cells(1).CurrentRegion
.AutoFilter 1, "<" & CLng(Date)
.Offset(1).Copy ("Sheets(Array("Verleden 2021", "Verleden 2020", "Verleden 2023")).Select").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Private Sub Workbook_Open()
With Sheets(cstr(year(date))).Cells(1).CurrentRegion
.AutoFilter 1, "<" & CLng(Date)
.Offset(1).Copy Sheets("Verleden "&year(date)).Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Private Sub Workbook_Open()
Application.EnableEvents = False
With Sheets(CStr(Year(Date))).ListObjects(1).Range
.AutoFilter 1, "<" & CLng(Date)
.Offset(1).Copy Sheets("Verleden " & Year(Date)).Cells(Rows.Count, 1).End(xlUp).Offset(1)
If .Columns(1).SpecialCells(2).Count > 1 Then .Offset(1).EntireRow.Delete
.AutoFilter
End With
Application.EnableEvents = True
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.