Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Planilha com o mesm...
 
Notifications
Clear all

Planilha com o mesmo nome da célula

 
2024 - VBA & Macros
Post Recente por FarahA 5 anos atrás
2 Posts
2 Usuários
0 Reactions
1,415 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, boa tarde!

Eu tenho uma pasta de trabalha que vão conter várias planihas.

eu gostaria de salvar essas planilhas com os nomes de cada usuário.

exemplo:

Na minha Plan1, o valor da célula A1 é = João
quando eu abrir o excel essa planilha agora vai se chamar de João e não mais de Plan1

Na minha Plan2, o valor da célula A1 é = Carlos
quando eu abrir o excel essa planilha agora vai se chamar de Carlos e não mais de Plan2

Como faço para isso ocorrer?

eu achei um código mas não está funcionando

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$1" Or Target.Value = "" Then Exit Sub
ActiveSheet.Name = [A1]
End Sub

muito obrigado a todos

 
Postado : 31/10/2019 1:38 pm
 FarahA
(@faraha)
Posts: 28
Eminent Member
 

JNEXCEL você quer que seja modificado ao abrir a pasta de trabalho correto?

Então o código seria:

Private Sub Workbook_Open()

Dim NumPlanilhas As Integer, x As Integer

NumPlanilhas = ThisWorkbook.Sheets.Count

For x = 1 To NumPlanilhas
If Sheets(x).Cells(1, 1) <> Empty Then
Sheets(x).Name = Sheets(x).Cells(1, 1).Value
End If
Next x
End Sub

Coloque este código no módulo da pasta de trabalho e não em um novo módulo.
Obs: Adicionei uma condicional para verificar se o valor de "A1" é vazio, pois se estivesse daria erro ao executar.

 
Postado : 31/10/2019 1:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico