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,899 Visualizações
RSS
 vsophia
(@vsophia)
Posts: 31
Eminent 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
 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

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

 
Postado : 30/01/2013 7:02 am
Fernando Fernandes
 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

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

 
Postado : 30/01/2013 7:44 am
Fernando Fernandes
 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

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

 
Postado : 30/01/2013 7:49 am
 vsophia
(@vsophia)
Posts: 31
Eminent 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
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

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

Att

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

 
Postado : 30/01/2013 8:16 am
Fernando Fernandes
 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

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

 
Postado : 30/01/2013 8:18 am
 vsophia
(@vsophia)
Posts: 31
Eminent 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
 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

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

 
Postado : 30/01/2013 1:12 pm
Fernando Fernandes
 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

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

 
Postado : 30/01/2013 1:12 pm
Fernando Fernandes
 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

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

 
Postado : 30/01/2013 5:26 pm
Fernando Fernandes
 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

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

 
Postado : 31/01/2013 5:53 am
 vsophia
(@vsophia)
Posts: 31
Eminent 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