View original (French)

Automatically rename tabs

Solved
Anémone39 Posted messages 2 Status Member -  
 Anémone -
Hello everyone,

I don't know if anyone can help me with my problem, but I'm taking a chance just in case...

Let me explain:
In my Excel file, I have a first tab named "FICHE" that contains a list of part names that vary depending on the projects.
Then I have 3 other tabs named "DEVIS-A", "LISTE-A", and "COMM-A".

I would like my 3 tabs to be automatically renamed according to the value entered in the list of the "FICHE" tab, while keeping the "DEVIS," "LISTE," and "COMM" parts intact.
For example: DEVIS-KITCHEN

Is this possible?

Thank you in advance
Have a great day everyone :D

4 answers

  1.
    Moi49 Posted messages 24 Registration date   Status Member Last intervention   1
     
    Hi

    In each tab (Quote, list, and Comm), create a cell that takes the name of a room (kitchen) and the name of the document to be created (Quote...). You can enter this formula in the cell in question: =CONCATENATE("Quote";'Sheet'!A1).
    Sheet A1 being the cell in the "Sheet" tab containing the name of a room
    Then create the following code:

    Sub RenameTabsFromCellB1()

    Dim Worksheet As Worksheet

    For Each Worksheet In Worksheets
    Worksheet.Name = Worksheet.Range("B1").Value
    Next Worksheet

    End Sub

    Hoping to have answered your questions
    Best regards
    Me49
    1
    1. Anémone
       
      Thank you, it's working.
      0