Página 1 de 1

Possibilidade ou não de alterar o nome da plan na fórmula

Enviado: 23 Jan 2021 às 20:05
por carloscirilo77
Bom dia, boa tarde, boa noite...

Não sei se isso é possível...

Eu tenho uma planilha pela qual a mesma faz a leitura de um Procv através de uma planilha externa e que está na rede corporativa. A planilha pela qual a mesma faz a leitura é alimentada diariamente por um robô sistêmico interno.

Na minha planilha base, eu tenho que alimentar esse Proc sempre com o nome da planilha atual que o robô grava na pasta da rede corporativa.

Gostaria de saber se há um jeito de colocar na barra de fórmulas de forma automática, uma outra fórmula que altere ou entenda sempre o nome do arquivo mais atual de leitura desse arquivo externo. Vou exemplificar aqui embaixo.

Na planilha que preciso do resultado, por exemplo, a fórmula ficaria:


=PROCV(A3;'C:\Users\carlos\AppData\Local\Microsoft\Windows\INetCache\Content.Outlook\26DC4UIM\[21.01.2021.xlsx]Sheet1'!$A:$G;6;0)


A pegada então que quero saber é se, o nome do arquivo, ou seja, o [21.01.2021.xlsx] eu consigo alterar de forma automática, seja com uma condição de leitura em uma célula, ou com uma macro ou fórmula, pela qual ela altere sempre o nome da planilha atual do dia, ou seja, que ela leia no dia seguinte o arquivo [22.01.2021.xlsx] sem precisar que eu aperte F2 e altere na mão na barra de fórmulas.

Se alguém puder me ajudar, agradeço.

At..
Carlos Cirilo

Re: Possibilidade ou não de alterar o nome da plan na fórmula

Enviado: 23 Jan 2021 às 23:59
por osvaldomp
Seguem duas ideias, veja se aproveita.

1. com célula auxiliar ~~~> coloque em A1 =TEXTO(HOJE();"dd.mm.aaaa"), ou formate A1 para Texto e digite por exemplo 21.01.2021
Código: Selecionar todos
=PROCV(A3;INDIRETO("'C:\Users\carlos\AppData\Local\Microsoft\Windows\INetCache\Content.Outlook\26DC4UIM\["&A1&".xlsx]Sheet1'!$A:$G");6;0)
ou via macro
Código: Selecionar todos
ActiveCell.FormulaLocal = "=PROCV(A3;'C:\Users\carlos\AppData\Local\Microsoft\Windows\INetCache\Content.Outlook\26DC4UIM\[" & [A1] & ".xlsx]Sheet1'!$A:$G;6;0)"
#
#
2. sem célula auxiliar
Código: Selecionar todos
=PROCV(A3;INDIRETO("'C:\Users\carlos\AppData\Local\Microsoft\Windows\INetCache\Content.Outlook\26DC4UIM\["&TEXTO(HOJE();"dd.mm.aaaa")&".xlsx]Sheet1'!$A:$G");6;0)
ou via macro
Código: Selecionar todos
ActiveCell.FormulaLocal = "=PROCV(A3;'C:\Users\carlos\AppData\Local\Microsoft\Windows\INetCache\Content.Outlook\26DC4UIM\[" & Format(Date, "dd.mm.yyyy") & ".xlsx]Sheet1'!$A:$G;6;0)"
#
#
obs. vale lembrar que a função INDIRETO() funciona enquanto o arquivo de origem dos dados também estiver aberto, pois após ser fechado, no primeiro recálculo da planilha que contém a fórmula, esta resultará #REF.

Re: Possibilidade ou não de alterar o nome da plan na fórmula

Enviado: 24 Jan 2021 às 09:27
por carloscirilo77
Bom dia Oswaldo,

Deu muito certo meu amigo! Sobretudo a macro, vai de encontro perfeito com o que queria fazer
Mto obrigado e bom domingo

Abraços