Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
ERRO ao mostra nome...
 
Notifications
Clear all

ERRO ao mostra nome da tab em célula

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por vsophia 12 anos atrás
13 Posts
2 Usuários
0 Reactions
1,865 Visualizações
RSS
 vsophia
(@vsophia)
Posts: 31
Trusted Member
Topic starter
 

Bom dia meus amigos, depois de passar algumas horas bem frustrantes no excel e no google, eu volto a contar com a ajuda de vocês.

Eu estou preciso que o nome um tab (aba) apareça em uma célula. Já tentei as maneiras abaixo mas o excel fica dando erro:

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256)

e já tentei a UDF abaixo:

Function TabName()
TabName = ActiveSheet.Name
End Function

e lancei: =TabName() em outra célula.

Galera eu sei que é simples, mas esse erro realmente tá me matando.

O erro que aparece é na parte: "filename",A1

o que eu faço?

Grande abraço!

 
Postado : 30/01/2013 6:48 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

vsophia, a planilha está salva? Caso não esteja salva a fórmula não funcionará.

Tenta assim:

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,256)

Qualquer coisa da o grito.
Abraço

 
Postado : 30/01/2013 7:02 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente também

RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))
=CELL("filename")

Ou

Function SheetName(rCell As Range, Optional UseAsRef As Boolean) As String

    Application.Volatile

        If UseAsRef = True Then

            SheetName = "'" & rCell.Parent.Name & "'!"

        Else

            SheetName = rCell.Parent.Name

        End If

End Function
 
Postado : 30/01/2013 7:44 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

E se o Excel estiver em português use:

=EXT.TEXTO(CÉL("filename");PROCURAR("]";CÉL("filename"))+1;256)

[]Doni

 
Postado : 30/01/2013 7:49 am
 vsophia
(@vsophia)
Posts: 31
Trusted Member
Topic starter
 

Amigos, muito obrigado pelas respostas, mas vejam o meu dilema, não funcionou.
Eu postei a planilha no 4shared. (link: http://www.4shared.com/file/CaU7sTnJ/Carne.html )
Eu sei que é pedir muito, mas se fizerem isso vai poupar muito o meu tempo.
Continua dando erro.
Muito obrigado mais uma vez!

 
Postado : 30/01/2013 8:11 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja se é isso
http://www.sendspace.com/file/30qgac

Att

 
Postado : 30/01/2013 8:16 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Copie e cole a fórmula que passei, pois seu Excel está em português e não em inglês.

Doni

 
Postado : 30/01/2013 8:18 am
 vsophia
(@vsophia)
Posts: 31
Trusted Member
Topic starter
 

Alexandre, muito obrigado, estamos chegando perto da solução, mas no meu caso o que quero que apareça é o numa da TAB, e não do arquivo.
Está dando erro quando eu faço.
Eu já, via macro, criei os 615 carnes que preciso em tabs diferentes, e cada uma com o nome de um cliente.
Mas esse detalhe esta me matando.
Se puder postar já pronto eu agradeceria, meu medo é que alguma opção esteja bloqueando isso.
Já segurei alt+shift e ctrl+shift antes de dar enter para ver se era o problema.
Preciso muito da ajuda de voces.
Sabem indicar algum curso aqui no RJ?
Abs!

 
Postado : 30/01/2013 1:06 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente
=EXT.TEXTO(CÉL("filename");LOCALIZAR("]";CÉL("filename"))+1;20)
Baixe o arquivo:
http://www.sendspace.com/file/djom0r

Att

 
Postado : 30/01/2013 1:12 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente
=EXT.TEXTO(CÉL("filename");LOCALIZAR("]";CÉL("filename"))+1;20)
Baixe o arquivo:
http://www.sendspace.com/file/djom0r

Att

 
Postado : 30/01/2013 1:12 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Alexandre, Boa Noite!

Acho que deve estar havendo algum equivoco, pois ela disse que criou 615 tabelas, seriam 615 planilhas???

Doni

 
Postado : 30/01/2013 5:26 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja se isso ajuda.

Sub NOmePlanilhas()
    Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

Outra forma:
http://www.ashishmathur.com/generate-a- ... using-vba/
Att

 
Postado : 31/01/2013 5:53 am
 vsophia
(@vsophia)
Posts: 31
Trusted Member
Topic starter
 

Valeu Alex!!!
Muito obrigado meu camarada!!!
Me ajudou muito!

 
Postado : 31/01/2013 11:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico