Nieuw tabblad adhv sjabloon

[koennijntje]

Hey iedereen,

ik ben geen krak met Excel en had graag wat hulp in geroepen van jullie experts.
In bijlage, vinden jullie mijn Excel bestandje.

Bedoeling is dat ik met 1 druk op een knop.
Een nieuwe factuurnummer aanmaak, het sjabloon kopieer in een nieuw tabblad, dit nieuwe tabblad vernoem naar de nieuwe factuurnummer en de factuurnummer invul in de juiste cel vh sjabloon
en
van het nieuwe aangemaakte tabblad een link leg naar het overzicht (naam en bedrag moeten automatisch opgehaald worden uit het nieuwe tabblad).

een hele boterham en ik hoop dat mijn uitleg duidelijk is.

In the end krijg ik per factuur een tabblad

Hopelijk kunnen jullie me helpen.
grtjs

 

[edmoor]

Dit achter een knopje:

Sub FactuurNieuw()
    Dim Factuurnr As String
    
    Sheets("Sjabloon").Copy , Sheets("Sjabloon")
    Factuurnr = Year(Date) & "/" & Format(Right(Range("B14"), 3) + 1, "0##")
    Sheets("Sjabloon").Range("B14") = Factuurnr
    Range("B14") = Factuurnr
    ActiveSheet.Name = Replace(Factuurnr, "/", "-")
End Sub

Wat je precies met dat overzicht doet en hoe je die wilt gebruiken is me niet duidelijk.

 

[koennijntje]

Super, dat heb je geweldig gedaan.

Ik heb zoals gevraagd een knopje gemaakt en het sjabloon dupliceren en hernummeren werkt perfect.

Het overzicht heb ik nu momenteel zelf aangevuld, maar ik verwijs steeds naar de tabbladen met de gele veldjes die terug moeten te vinden zijn in het overzicht.

Dus het zou geweldig zijn als met een druk op 1 knop het sjabloon kopieer zoals je reeds hebt aangemaakt, maar dat vervolgens de gele veldjes terug te vinden zijn in het overzicht.

super dank je wel als je dat kan oplossen voor mij.

 

[edmoor]

Het factuurnummer kan uiteraard wel, maar de andere 2 zijn op dat moment nog niet bekend, die zijn leeg in het sjabloon.

 

[koennijntje]

Gelukt

Na wat proberen en zoeken tot deze code gekomen.



Sub FactuurNieuw()
Dim Factuurnr As String
Dim Naam As String
Dim Bedrag As String
Dim Lijn As Double

Sheets("Sjabloon").Copy , Sheets("Sjabloon")
Lijn = Format(Right(Range("B14"), 3) + 2, "###")
Factuurnr = Year(Date) & "/" & Format(Right(Range("B14"), 3) + 1, "0##")
Sheets("Sjabloon").Range("B14") = Factuurnr
Range("B14") = Factuurnr
Sheets("Overzicht facturen 2022").Cells(Lijn, 1).Value = Factuurnr
ActiveSheet.Name = Replace(Factuurnr, "/", "-")
Factuurnr = ActiveSheet.Name
Naam = "='" & Factuurnr & "'!C6"
Bedrag = "='" & Factuurnr & "'!E29"
Sheets("Overzicht facturen 2022").Cells(Lijn, 2).Value = Naam
Sheets("Overzicht facturen 2022").Cells(Lijn, 3).Value = Bedrag
Worksheets("Overzicht facturen 2022").Activate
End Sub