How to create many (a lot of) tabs that copy the info from the worsheet

Copper Contributor

I am making data sheets on the rooms of a building. There are hundreds of rooms, and i need individual sheets for each one. So I have the first sheet made (like a template) that I need to copy over many, many times, to then begin filling out. Is there an efficient way to do this (other than selecting one tab, holding ctrl and draggin it)?

 

Additionally, these rooms are numbered, so the tab will have the same number as the tab name. Is it is possible to have the numbers name themselves in numerical order?

 

Lastly, Is it possible to create some sort of index page that links to each of these tabs in order to find them more efficiently. Also to have the index generate and name itself based on the title of each tab?

 

I would prefer to not use plugins if it is at all possible

Thanks for the help! 

1 Reply

@mbartolucci

 

Hi,

 

To create a new sheet based on a template and order it, you can use this macro below and add it to the Quick Access Toolbar so you can reach it quickly:

 

Sub AddSheet()
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Room" & Sheets.Count - 2
End Sub

 

Note: this macro supposes that the first sheet is the template and the second is the Index.

Also, it names the sheets like the following order: Room1, Room2, Room3...

 

With regard to the Index page, you can use the solution that explained in this link to do so.

 

Anyway, I've done all this in the attached workbook as an example of what you are asking for.

 

Hope that helps