Copy Sheet VBA Code To New Sheet Automatically

[SGD78]

Hello everyone,

I'm working on a workbook that tracks clients, and therefore need to create a new sheet for each new client. Does anyone know of a way to configure excel to copy the sheet vba code of an existing worksheet to a newly added worksheet automatically?

Any assistance on this would be greatly appreciated. Thanks to all in advance.

SGD.

 

[Yongle]

It is built into Excel

Right-click Sheet tab \ select Move or Copy \ check Create a copy \ ok

Sheet and its code is copied

 

[Yongle]

here is a simple way to use VBA to achieve it

This code goes in the sheet module of sheet containing your list of clients
Assumes your cient names are in column A starting in row 2
Add new client in column A (and any other details in other columns)
Double click in client's cell in column A
"ModelSheet" & its code is copied
New named sheet is created

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row > 1 And Target.Column = 1 Then
        Cancel = True
        On Error Resume Next
        Sheets("ModelSheet").Copy after:=Me
        ActiveSheet.Name = Target
    End If
End Sub

 

[SGD78]

here is a simple way to use VBA to achieve it...

Thanks Yongle. I'll give that a try and see how it goes.

Respectfully,
SGD.

 

[SGD78]

here is a simple way to use VBA to achieve it

This code goes in the sheet module of sheet containing your list of clients
Assumes your cient names are in column A starting in row 2
Add new client in column A (and any other details in other columns)
Double click in client's cell in column A
"ModelSheet" & its code is copied
New named sheet is created

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row > 1 And Target.Column = 1 Then
        Cancel = True
        On Error Resume Next
        Sheets("ModelSheet").Copy after:=Me
        ActiveSheet.Name = Target
    End If
End Sub

This worked marvelously. Thanks again for the help Yongle.