Página 1 de 1

Extrair o nome da Aba

Enviado: 17 Jun 2022 às 17:18
por Bravoc
Boa tarde a todos!
Tentei várias opções e não consegui fazer funcionar, por isso recorro novamente à vocês.

Eu preciso saber o "nome da aba" que a informação foi obtida. Por exemplo:
Código: Selecionar todos

Patrimônio    Data Levantamento	         Resultado Pretendido	
123           17/06/2022	          recepção1	< Nome da aba que o valor da célula B1 foi obtido
678           17/06/2022	           Salão2	   < Nome da aba que o valor da célula B2 foi obtido
910           17/06/2022	            Salão3	  < Nome da aba que o valor da célula B3 foi obtido
É possível isso através de fórmula ou VBA?
Para melhor entendimento, anexo uma planilha de modelo.
Desde já agradeço imensamente a ajuda.

Re: Extrair o nome da Aba

Enviado: 17 Jun 2022 às 20:05
por Estevaoba
Boa noite.

Crie uma lista com os nomes das abas. No caso, eu criei a lista no intervalo M2:M4.
Cole esta fórmula matricial em D2. Dependendo da sua versão de Excel, talvez você precise confirmar com Ctrl+Shift+Enter em vez de apenas Enter.
Em seguida copie para baixo.
Código: Selecionar todos
=ÍNDICE($M$2:$M$4;CORRESP(1;1/CONT.SE(INDIRETO("'"&$M$2:$M$4&"'!B2:B100");B2);0))
Good luck!

Re: Extrair o nome da Aba

Enviado: 17 Jun 2022 às 20:23
por osvaldomp
Código: Selecionar todos
=EXT.TEXTO(FÓRMULATEXTO(B2);2;LOCALIZAR("!";FÓRMULATEXTO(B2))-2)

Re: Extrair o nome da Aba

Enviado: 18 Jun 2022 às 06:44
por Bravoc
Muito obrigado amigo, @Estevaoba !!!!

Estevaoba escreveu: 17 Jun 2022 às 20:05 Boa noite.

Crie uma lista com os nomes das abas. No caso, eu criei a lista no intervalo M2:M4.
Cole esta fórmula matricial em D2. Dependendo da sua versão de Excel, talvez você precise confirmar com Ctrl+Shift+Enter em vez de apenas Enter.
Em seguida copie para baixo.
Código: Selecionar todos
=ÍNDICE($M$2:$M$4;CORRESP(1;1/CONT.SE(INDIRETO("'"&$M$2:$M$4&"'!B2:B100");B2);0))
Good luck!

Re: Extrair o nome da Aba

Enviado: 18 Jun 2022 às 06:45
por Bravoc
Bom dia! @osvaldomp !
Sua fórmula é genial, funcionou perfeitamente! Mais uma vez, muito obrigado!
osvaldomp escreveu: 17 Jun 2022 às 20:23
Código: Selecionar todos
=EXT.TEXTO(FÓRMULATEXTO(B2);2;LOCALIZAR("!";FÓRMULATEXTO(B2))-2)