Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar Nome da Aba ...
 
Notifications
Clear all

Copiar Nome da Aba e colar em uma célula

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
2,268 Visualizações
RSS
 scalus
(@scalus)
Posts: 21
Eminent Member
Topic starter
 

Prezado(a)s,

Gostaria de pedir um Help, pois desenvolvi esse código, contudo ele está copiando os nomes de todas as abas.

Preciso copiar só o da aba que estou usando !

Sub nome_da_aba()
'
' Macro1 Macro
' Copia aba pra célula
'
' Atalho do teclado: Ctrl+a
'
Dim onde_colocar As Range
Set onde_colocar = Range("C7") ' coloque aqui a faixa onde os nomes das abas serão guardados

For i = 1 To Worksheets.Count
onde_colocar.Cells(i, 1).Value = (Sheets(i).Name)
Next

End Sub

 
Postado : 20/03/2014 12:29 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Tente..

Sub AleVBA()
[A1].Value = ActiveSheet.Name
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2014 12:36 pm
 scalus
(@scalus)
Posts: 21
Eminent Member
Topic starter
 

Vou tentar aqui !

Muito obrigado.

 
Postado : 20/03/2014 12:56 pm
 scalus
(@scalus)
Posts: 21
Eminent Member
Topic starter
 

Têm como colocar ele pra ativar assim que eu abrir uma nova aba ?

 
Postado : 20/03/2014 1:20 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Dentro do Editor VB no módulo de Estapasta_de_trablaho, insira o código

Private Sub Workbook_Open()
[A1].Value = ActiveSheet.Name
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2014 2:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico