Laatste rij automatiche doorvoeren

[booz6]

Hallo,

Ik ben al de hele dag bezig om het volgende voor elkaar te krijgen, maar het wil maar niet lukken.
Ik wil graag dat de onderste cellen automatische worden doorgevoerd met 1 werkdag.
Het mooiste is om dit te gaan doen met een macro omdat dit op meerdere tabbladen moet gebeuren.
In de bijlage heb ik een voorbeeld met 1 tabblad.


Met vriendelijke groet,
Jasper

 

[HSV]

Maak er een tabel van (menu invoegen → tabel).

De code in module van het blad.

Sub hsv()
Dim ld As Date
With ListObjects(1)
ld = .DataBodyRange(.ListRows.Count, 2)
  .ListRows.Add
  .DataBodyRange(.ListRows.Count, 2) = ld + 1
  End With
End Sub

 

[booz6]

Dank voor de snelle reactie.
Deze werkt prima, maar hoe kan ik er nu nog voor zorgen dat hij alleen de weekdagen doorvoert

 

[JanBG]

Zo bij voorbeeld:

Sub hsv()
Dim ld As Date
With ListObjects(1)
ld = .DataBodyRange(.ListRows.Count, 2)
  .ListRows.Add
  .DataBodyRange(.ListRows.Count, 2) = ld + 1
  End With
ActiveSheet.ListObjects(1).Range.AutoFilter Field:=1, Criteria1:= _
        Array("maandag", "dinsdag", "woensdag", "donderdag", "vrijdag"), Operator:=xlFilterValues
    ActiveWorkbook.RefreshAll
 End Sub

 

[booz6]

Bedankt voor de reactie.
Maar als ik de code in het orginele bestand plak dan neemt hij de formules die in de overige cellen staan niet mee.

 

[JanBG]

Welke formules in welke cellen?

 

[HSV]

Werkdagen of weekdag < 7.

Sub hsv()
Dim ld As Date
With ListObjects(1)
ld = .DataBodyRange(.ListRows.Count, 2)
  .ListRows.Add
  .DataBodyRange(.ListRows.Count, 2) = Application.WorkDay(ld, 1)
  End With
End Sub

 

[booz6]

In het orgineel staan er in formules in die door gevoerd moeten worden.
Ik zou graag dmv een druk op de knop de onderste regel willen selecteren en doorvoeren (met weekdagen) naar beneden.

 

[HSV]

Zover was de eerst code al.
Mijn laatste schrijven net gemist denk ik.

 

[JanBG]

Heb je in je originele bestand je tabel dan wel goed ingesteld?

 

[booz6]

Hij voert alleen B en D door.
Zie bijlage

 

[HSV]

In het eerste bestandje werkt de code prima na er een tabel van te hebben gemaakt.

Ps. 4x een 'm' is wel voldoende in kolom D.

=TEKST(B2;"mmmm")

 

[emields]

of bedoel je dit?

 

[booz6]

Ik heb hem werkend.
Lag inderdaad aan de opmaak van mij tabel denk ik.

Ik heb deze opnieuw ingesteld en hij werkt.
Bedankt voor alle hulp!!