Applying format of Master sheet to all other sheets in workb

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,303
Office Version
  1. 365
Platform
  1. Windows
Deymon

Could you actually state your problem/question?

What formats do you want to apply?

Have you considered using the 'Master' sheet as a template, creating copies of it and transferring the data from the other sheets to the new copies?

That's probably the easiest way to do this.
 

deymongussman

Board Regular
Joined
Jul 25, 2004
Messages
112
Thanks Norie:

My apologies for not being clear. Bases on your suggestion, what codes would allow me to make multiple copies of the master worksheet in the workbook. Thanks

Deymon
 

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,303
Office Version
  1. 365
Platform
  1. Windows

ADVERTISEMENT

Deymon

No problem.:)

You could use something like this.
Code:
Sub CreateCopies()
Dim wsMstr As Worksheet
Dim wsNew As Worksheet
Dim wsOld As Worksheet

    Set wsMstr = Worksheets("Master")
    For Each wsOld In Worksheets
         If wsOld.Name <> wsMstr.Name And Left(wsOld.Name, 3) <> "New" Then
             wsMstr.Copy After:=Worksheets(wsOld.Index)
             Set wsNew = ActiveSheet
             wsOld.Cells.Copy
             wsNew.Range("A1").PasteSpecial xlPasteValues
             wsNew.Name = "New - " & wsOld.Name
        End If
    Next wsOld
    Application.CutCopyMode = False
    
End Sub
 

deymongussman

Board Regular
Joined
Jul 25, 2004
Messages
112
Norie:

Thanks for your help. Would it be possible to have codes that make a specific number of copies? Also my workbook has only one formatted worksheet from which copies will be made. Your help is appreciated.

Deymon
 

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,303
Office Version
  1. 365
Platform
  1. Windows
Deymon

I don't see why not.:)

But it would help if you explained what you actually want to do.
 

Forum statistics

Threads
1,141,587
Messages
5,707,258
Members
421,498
Latest member
matinebi

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top