Tabelrijen verwijderen op bepaalde data via VBA

[Mansv1966]

Hallo,

Is het mogelijk om tabelrijen te verwijderen met Vba op een bepaalde datum? bv op 1 januari en 1 aug.

En zo ja hoe doe ik dat dan.

Mansv1966

 

[edmoor]

Onduidelijk wat je bedoelt want er staan geen datums in je tabel.
Of bedoel je dat alle regels weg moeten op het moment dat het b.v. 1 januari is?

If Format(Date, "d-mm") = "1-01" Then
    Sheets("Blad1").ListObjects("Tabel1").DataBodyRange.Delete
End If

 

[Mansv1966]

Hallo edmoor ,

Alle regels op de bovenste na mogen verwijdert worden zowel op 1 jan als op 1 aug

 

[edmoor]

Dat staat er dus al. Nu met 1 augustus er bij en foutafhandeling als er geen regels zijn:

If Format(Date, "d-mm") = "1-01" Or Format(Date, "d-mm") = "1-08" Then
    On Error Resume next
    Sheets("Blad1").ListObjects("Tabel1").DataBodyRange.Delete
    On Error Goto 0
End If

 

[Mansv1966]

HAllo Edmoor,

Zal ws wel iets verkeerds doen hij werkt niet. Heb de klok van PC even terug gezet maar er gebeurt dus niets

 

[edmoor]

Doet het hier prima.
En het is nergens voor nodig je klok terug te ztten.
Je kan in de code toch even de datum aanpassen?

Je hebt het nu in het Worksheet_Change event staan.
Dat betekent dat je wilt dat die code wordt uitgevoerd bij iedere wijziging in het werkblad.
Wijzig dus die "1-08" eens in "6-08" en vul iets in, bijvoorbeeld in cel E1 en druk dan op de Enter toets.

 

[Mansv1966]

Als ik hem wil activeren zonder dat ik iets hoef in te vullen waar zet ik hem dan in Worksheet_........

 

[edmoor]

Dat ligt er maar net aan op welk moment je die code wilt laten uitvoeren.
Als je wilt dat dat gebeurt bij het openen van het document bijvoorbeeld, dan zet je dat in de ThisWorkbook sectie als Sub Workbook_Open.
Het zou ook kunnen met een druk op een knop, dan maak je er een knopje voor op het werkblad.
En zo zijn er nog veel meer mogelijkheden, het is dus aan jou wat je wilt.

 

[Mansv1966]

Als ik s nachts om 00:01 deze wil laten uitvoeren hoe luid de code dan:

If Format(Date, "d-mm") = "1-01" Or Format(Date, "d-mm") = "6-08" and Format(Time, "uu:mm") = "00:01" Then
    On Error Resume Next
    Sheets("Blad1").ListObjects("Tabel1").DataBodyRange.Delete
    On Error GoTo 0
End If

er vanuit gaande dat de computer dan aanstaat

 

[edmoor]

Dan moet je met een timer gaan werken, moet je PC aan staan en het Excel document open staan.

 

[Mansv1966]

Ja dat snap ik

Hoe zou dan de code zijn?

 

[edmoor]

Zie hier:
https://docs.microsoft.com/en-us/office/vba/api/excel.application.ontime

 

[Mansv1966]

Denk dat het voor mij het makkelijkste dan is om het handmatig te doen mijn VBA kennis is 0 , 0

 

[edmoor]

Met een knopje is eenvoudig:
Bekijk bijlage Test.xlsm

 

[Mansv1966]

Dank je

 

[Mansv1966]

Heb toch nog een vraagje,

Als ik de rijen wil wissen aan de hand van een getal i.p.v een knopje. hoe doe ik dat dan?

 

[edmoor]

Welk getal?
Waar staat dat getal?
Hoe komt die daar?

Zie ook #6.

 

[Mansv1966]

Welk getal? Willekeurig getal

Waar staat dat getal? Cel H3

Hoe komt die daar? Door een formule

 

[edmoor]

Je reactie levert weer zoveel mogelijkheden en dus vragen op die ik hier niet ga beschrijven, dat ik er niets mee kan.
Plaats liever een relevant voorbeeld document met die situatie.

Maar bepaal eerst wat je nu eigenlijk precies wilt.