Como copiar uma folha e renomeá-la com base no valor de uma célula no Excel?
Normalmente, pode utilizar a funcionalidade Mover ou Copiar para copiar uma folha de cálculo e, em seguida, atribuir-lhe manualmente um novo nome conforme necessário. Mas já alguma vez tentou renomear a folha com base no valor de uma célula imediatamente após a cópia? Neste artigo, explicamos como renomear automaticamente a folha com base num valor de célula ao criar uma cópia.
Copiar uma folha e renomeá-la com base num valor de célula com código VBA
Copiar uma folha várias vezes e renomeá-la com base em valores de células com Kutools para Excel
Copiar uma folha e renomeá-la com base num valor de célula com código VBA
O seguinte código VBA permite-lhe copiar uma folha e renomeá-la automaticamente com base no valor de uma célula específica. Siga os passos abaixo:
1. Ative a folha de cálculo que pretende copiar e, em seguida, prima as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o seguinte código na janela Módulo.
Código VBA: Copiar uma folha e renomeá-la 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. Em seguida, prima a tecla F5 para executar este código e a sua Planilha Atual será copiada para o Livro de Trabalho Atual após todas as folhas de cálculo, sendo renomeada com o valor da célula que especificou. Veja a imagem:
Nota: No código acima, a referência da célula A1 corresponde ao valor da célula que pretende utilizar para renomear a nova folha copiada; pode alterá-la conforme necessário.
Copiar uma folha várias vezes e renomeá-la com base em valores de células com Kutools para Excel
O código acima apenas permite renomear com um único valor de célula. Se precisar de copiar a folha várias vezes e renomeá-las com base numa lista de valores de células, a funcionalidade Kutools para Excel’s Criar Folha de Sequência poderá ajudá-lo a concluir esta tarefa o mais rapidamente possível.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Clique em KUTOOLS PLUS > Folha de Cálculo > Criar Planilhas de Sequência. Veja a imagem:
2. Na caixa de diálogo Criar Folha de Sequência, realize as seguintes operações:
(1.) Selecione a Nome da Planilha que pretende copiar a partir da lista pendente Com base na Planilha;
(2.) Selecione a opção Dados dentro da Seleção na secção Nome da Planilha Baseado em e clique no botão 
para selecionar os valores das células com base nos quais pretende renomear as folhas copiadas.
3. Em seguida, clique no botão OK e a folha de cálculo será copiada várias vezes, renomeada com os valores das células selecionadas e colocada num novo livro. Veja a imagem:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos