Excel renomear abas conforme celula k3 no excel

[Douglas Ramalho Amaral]

Bom dia!

Tenho 30 motoristas e cada aba corresponde a um motorista diferente. O nome do sujeito está na celula k3.

Como faço para renomear automaticamente as abas da planilha, conforme os nomes da celula k3.

Se eu alterar o nome, consequentemente altera o nome da aba.

Grato!

[Visitante]

3 horas atrás, Douglas Ramalho Amaral disse:

O nome do sujeito está na celula k3.

Como faço para renomear automaticamente as abas da planilha, conforme os nomes da celula k3.

Rode o primeiro código abaixo. O código irá travar se houver nome repetido do sujeito.

 

Se eu alterar o nome, consequentemente altera o nome da aba.

Instale o segundo código abaixo no módulo de EstaPasta_de_trabalho.

 

Sub RenomeiaPlanilhas()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
  ws.Name = ws.[K3]
  Next ws
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 If Target.Address <> "$K$3" Then Exit Sub
 Sh.Name = Sh.[K3]
End Sub

 

[Douglas Ramalho Amaral]

43 minutos atrás, osvaldomp disse:

Sub RenomeiaPlanilhas() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Name = ws.[K3] Next ws End Sub

Boa tarde!

Primeiramente obrigado pela ajuda.

a 1ª deu erro de depuração n1004....na linha  ws.Name = ws.[K3]

depois rodei a segunda e ok. Os nomes foram para as abas.

 

Mas tenho outra dúvida. Quando prossegui com as inclusões dos outros nomes,  ela não alterou automaticamente. Tive que entrar no alt+f11 e executar para depois ele alterar. Mesmo dando o mesmo erro, salvei, saí e alterou.

Como posso fazer com que altere sem ter que rodar a macro todas as vezes que alterar algum nome.;;?

 

Grato!

[Visitante]

O primeiro código irá renomear todas as planilhas do arquivo com o conteúdo existente em K3 da respectiva planilha, portanto não será necessário rodá-lo mais do que uma vez. A utilização deste código é opcional. Se ocorrer erro verifique se K3 não está vazia, se K3 contém um nome válido para planilha ou se há nome repetido em alguma planilha.

 

O segundo código irá renomear automaticamente qualquer planilha que tenha a célula K3 alterada. Essa operação irá ocorrer independentemente se o primeiro código foi ou não utilizado.

 

Se os códigos não funcionarem conforme descrito acima ou se apresentarem erro, por gentileza disponibilize uma amostra do seu arquivo com os códigos instalados.