Ir para o conteúdo principal

 Como copiar a planilha e renomear com base no valor da célula no Excel?

Normalmente, você pode aplicar o Mover ou Copiar recurso para copiar uma planilha e, em seguida, digite um novo nome para a cópia manualmente, conforme necessário. Mas, você já tentou renomear a planilha com base no valor de uma célula depois de copiar a planilha? Neste artigo, vou falar sobre como renomear a planilha com base no valor da célula automaticamente quando você faz uma cópia.

Copie uma planilha e renomeie com base no valor da célula com o código VBA

Copie uma planilha várias vezes e renomeie com base nos valores das células com o Kutools para Excel


Copie uma planilha e renomeie com base no valor da célula com o código VBA

O seguinte código VBA pode ajudá-lo a copiar uma planilha e renomeá-la com um valor de célula específico automaticamente, faça o seguinte:

1. Ative a planilha que deseja copiar e mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: copie uma planilha e renomeie com um valor de célula:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. E, em seguida, pressione F5 para executar este código, e sua planilha atual foi copiada para a pasta de trabalho atual após todas as planilhas, e ela foi renomeada com o valor da célula que você especificou, veja a captura de tela:

doc copy raname por valor 1

Note: No código acima, a referência da célula A1 é o valor da célula que você deseja renomear para a nova planilha copiada, você pode alterá-lo conforme sua necessidade.


Copie uma planilha várias vezes e renomeie com base nos valores das células com o Kutools para Excel

O código acima só pode ser renomeado com um valor de célula, se você precisar copiar a planilha várias vezes e renomeá-la com base em uma lista de valores de célula, Kutools for Excel'S Criar planilha de sequência pode ajudá-lo a terminar esta tarefa o mais rápido possível.

Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. 

Depois de instalar Kutools for Excel, faça o seguinte:

1. Clique Kutools Plus > Planilha > Criar planilhas de sequência, veja a captura de tela:

doc copy raname por valor 3

2. No Criar planilha de sequência caixa de diálogo, faça as seguintes operações:

(1.) Selecione o nome da planilha que você deseja copiar do Planilha Base lista suspensa;

(2.) Selecione a opção Dados em um intervalo sob o Nomes de planilhas com base em seção e clique doc copy raname por valor 5 para selecionar os valores da célula nos quais deseja renomear as planilhas copiadas.

Baixe o Kutools para Excel agora!

3. Então clique Ok botão, e a planilha específica foi copiada várias vezes e renomeada com os valores da célula que você selecionou em uma nova pasta de trabalho, consulte a captura de tela:

doc copy raname por valor 4

Baixe e teste grátis Kutools para Excel agora!


Demonstração: copie uma planilha várias vezes e renomeie com base nos valores das células com o Kutools para Excel

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations