Duplicate sheet 1 within same workbook

[amzma]

Hi there

I have an excel document that I am creating sales invoices in, I need to create the invoice a few times (customer copy, delivery note, our copy, export copy).

At the moment I enter the data on sheet one (customer) and it automatically copies across to the other sheets but it loses all the formatting that I do (bold, italic), is there anyway of copying it across but keeping the formating?

Thanks.
Amy

 

[ranman256]

like this?

Sub Duplicate()
Dim wsSrc As Worksheet
Set wsSrc = ActiveSheet
    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "customer copy"

    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "delivery copy"
  
    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Export copy"
Set wsSrc = Nothing
End Sub

 

[amzma]

like this?

Sub Duplicate()
Dim wsSrc As Worksheet
Set wsSrc = ActiveSheet
    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "customer copy"

    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "delivery copy"
 
    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Export copy"
Set wsSrc = Nothing
End Sub

Hi ranman256, thanks for your quick reply!
Where abouts do I post this code? in the VBA of the customer worksheet?

 

[amzma]

like this?

Sub Duplicate()
Dim wsSrc As Worksheet
Set wsSrc = ActiveSheet
    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "customer copy"

    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "delivery copy"
 
    wsSrc.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Export copy"
Set wsSrc = Nothing
End Sub

Hi again!
I have made a button with this code in the customer copy and when pressed it generates the extra worksheets nicely but I need to amend the other copies slighlty, like the delivery copy shouldnt have any prices detailed on it like the other copies..

At the moment I am using this formula in the cells of my old invoice that is copying the data across but without formatting
=IF('Red - A'!C28= ISBLANK(TRUE), " ", 'Red - A'!C28) ** red is the customer copy