Macro excel blad koppieren en naam wijzigen

[fraanske82]

Hallo,

ZOuden jullie mij kunnen helpen aan een macro voor onderstaand?

Ik zou graag op een hoofdblad gegevens in willen vullen welke ik middels een button wil koppieren naar een tabblad (bestaand sjabloon)
Dus bijvoorbeeld op hoofdblad in Cel A1 werken invullen, dit kopieren naar nieuw tabblad en cel B2 "2" invullen wat de naam wordt van het nieuwe tabblad.

Hoor graag jullie reactie

Groet Frank

 

[Haije]

Frank,

ik nie snap nie?!

 

[fraanske82]

Beste Haije,

Zie bijgaand een voorbeeldjeBekijk bijlage test.xlsx

 

[Warme bakkertje]

Zonder knop.
Plaats onderstaande in de bladmodule van sheet Hoofdblad.
Vul naam in in kolom A. Na het invullen van nummer in kolom B wordt automatisch sjabloonblad gekopieërd, de naam v/h nieuwe blad gewijzigd en de naam van kolom A ingevuld op nieuw blad.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        Sheets("Sjabloon").Copy after:=Sheets(Sheets.Count)
        With ActiveSheet
            .Range("A4") = Target.Offset(, -1).Value
            .Name = Target.Value
        End With
    End If
End Sub