Excel Mudar nome da planilha em função de uma célula endereçadas

[André Oak]

@Edson Luiz Branco Boa dia, tenho essa mesma necessidade do David, porém preciso de um código ou códigos que altere os nomes de planilhas a partir células endereçadas numa lista de uma planilha, onde terei uma lista cadastrada de equipamentos.

Conforme a imagem exemplo:

Planilha1, será a planilha de cadastro em linhas

Planilha2 será renomeada pela célula B3

Planilha3 será renomeada pela célula B4

Planilha4 será renomeada pela célula B5

e assim sucessivamente quantas planilhas foram necessárias ao arquivo ao longo do ano, a princípio terá 35 pode aumentar no ano seguinte.

 

A Planilha1, será uma guia de Menu Principal do aplicativo, se puder ajudar, estou reiniciando em VBA depois de uns anos rsrs.

 

[André Oak]

1 hora atrás, André Oak _I_I_ disse:

@Edson Luiz Branco Boa dia, tenho essa mesma necessidade do David, porém preciso de um código ou códigos que altere os nomes de planilhas a partir células endereçadas numa lista de uma planilha, onde terei uma lista cadastrada de equipamentos.

Conforme a imagem exemplo:

Planilha1, será a planilha de cadastro em linhas

Planilha2 será renomeada pela célula B3

Planilha3 será renomeada pela célula B4

Planilha4 será renomeada pela célula B5

e assim sucessivamente quantas planilhas foram necessárias ao arquivo ao longo do ano, a princípio terá 35 pode aumentar no ano seguinte.

 

A Planilha1, será uma guia de Menu Principal do aplicativo, se puder ajudar, estou reiniciando em VBA depois de uns anos rsrs.

 

 

Após criar esse código, deu depurar o erro 1004

[Patropi]

Bom dia, @André Oak _I_I_

 

No código consta como Sheets em inglês e na tua planilha está em português Planilha1, Planilha2, etc...

 

Se foi útil, clique em Curtir.

 

[]s

[Edson Luiz Branco]

Bem vindo ao fórum, @André Oak _I_I_

 

Sub RenomearPlans()
  Dim cél As Range
  For Each cél In Worksheets("Planilha1").Range("A3:A5")
    Worksheets(cél.Value).Name = cél.Offset(0, 1).Value
  Next cél
End Sub

 

[André Oak]

@Patropi Bom dia, grato, mas percebi que isso não seria o problema, o Excel reconhece o Sheets corretamente, mesmo estando nas guias escrito em português, obrigado pela dica.

@Edson Luiz Branco Ontem macro com a lista de alterações Sheets po Sheets alterou o nome corretamente até a célula que não tinha dados de cadastro inserido, hoje já pediu para depurar na primeira Sheets.

Usei sei comando, copiei da sua mensagem criei nova macro no módulo2, e executei, mas pediu para depurar o erro.

Qual seria a solução mais prática digamos assim, na primeira ou segunda, visto que a lista de cadastro de pode crescer ao longo do ano?

Hoje nenhum dos dois comandos funcionou.

 

[Edson Luiz Branco]

Da sua imagem:

 

For Each cél in Worksheets("Sheets1")...

 

• Não existe nenhuma planilha com nome Sheets1 em seu arquivo, pelo que se depreende da imagem.
• Além disso, qual é a coluna do nome velho e qual a do nome novo? No código que te passei, no intervalo A3:A5 estavam os nomes velhos e na coluna imediatamente à direita (por isso o Offset é de 0 linhas e 1 coluna) estava o novo nome.
• É bem mais difícil obter auxílio quando o membro anexa só imagens  ao invés de anexar a pasta de trabalho Excel.