Nieuw tabblad aanmaken als maand

[sont]

Goeden dag,

Heb weer iets waar ik niet uit kom.
Wil namelijk een kilometer registratie lijst met een knop vernieuwen naar een nieuwe maand. Dus als ik de maand ingevuld heb en ik druk op de knop,dat ik dan een opvolgende maand als nieuw tabblad krijgt die dan blanco is.
Wel moet hij de gegevensvalidatie (uit de bron) meenemen naar het nieuwe blad en de calender functie moet ook mee naar de nieuwe maand.
De maand (in dit geval Maart) in cel D2 moet ook automatisch veranderen

Heb ooit eens zoiets gehad maar ik kom er niet uit met het veranderen van de code.

Wie o wie wilt dit even voor me regelen?
Heb de gegevens even voor het gemak in de bron even aangepast en toegevoegd aan dit bericht

Bedankt maar weer.:thumb:

Bekijk bijlage Kilometerlijst .xlsm


Vriendelijke groeten,

Hans

 

[SjonR]

test dit eens:

Sub SjonR()
maand = InputBox("Geef hier de maand op")
Sheets("Maart").Copy ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = maand
ActiveSheet.Cells(2, 4).Value = maand

End Sub

 

[sont]

Er gebeurt niets. Heb wel een knop aangemaakt

Bekijk bijlage Kilometerlijst .xlsm

Bedankt voor de snelle reactie.:thumb:

 

[SjonR]

je zal de code dan wel onder de knop moeten zetten of de macro aanroepen met de knop.

Private Sub CommandButton1_Click()
maand = InputBox("Geef hier de maand op")
Sheets("Maart").Copy ThisWorkbook.Sheets(Sheets.Count)
With ActiveSheet
    .Name = maand
    .Cells(2, 4).Value = maand
    .Range("B9:Q52").ClearContents
End With
End Sub

 

[sont]

Heel mooi!

Is er nog een mogelijkheid om niet de maand in hoeven te vullen? Dat hij gewoon de volgende maand neerzet als nieuw blad?


Bedankt voor de moeite alvast.Top!



Groeten,


Hans.

 

[HSV]

@SjonR, @sont,

Wat zal er gebeuren als het blad al bestaat?

 

[sont]

Begrijp je vraag niet helemaal!
Weet wel dat wanneer ik bij het invoeren van de nieuwe maand en dan annuleer, ik een foutmelding krijg en wordt dan eenzelfde maand gemaakt met een nummer 2 erachter.
Dus als de maand maart aanwezig is en ik druk op de button en ik annuleer krijg ik een foutmelding en maakt hij een tabblad Maart 2 aan.
Wil eigenlijk alleen nog af van het invullen van de maand af. Hij moet gewoon kijken welk tabblad als maand openstaat en dan van daaruit een volgende maand maken.

Bedankt voor het meedenken.:thumb:



Groeten,
Hans

 

[sont]

Nu begrijp ik je vraag.
Als de code een nieuwe maand aanmaakt dan komt de button in de nieuwe maand te staan. Vanuit daar werk ik dan verder.

 

[HSV]

Private Sub CommandButton1_Click()
With Application
maand = .Match(Me.Name, .GetCustomListContents(4), 0)
If maand = 12 Then Exit Sub
   maand = .GetCustomListContents(4)(maand + 1)
If Not Evaluate("ISREF('" & maand & "'!A1)") Then
Me.Copy Sheets(Sheets.Count)
  With ActiveSheet
     .Name = maand
     .Cells(2, 4).Value = maand
     .Range("B9:Q52").ClearContents
  End With
 End If
End With
End Sub

 

[sont]

Super!
Dit scheelt weer invullen. Werkt als een speer!!:thumb:

Bedankt SjonR en HSV