Página 1 de 1

Mudança de pasta afeta ficheiros externos

Enviado: 04 Out 2020 às 17:52
por andy14
Boas,

Possuo uma folha em excel que me faz procv em outros ficheiros de excel e me retorna certos valores de modo a preencher as minhas tabelas.

Enquanto estou no meu computador esta tudo bem, mas se eu tenho de trabalhar no escritorio ou mesmo noutro computador tenho de corrigir todos os links 1 por 1.

De forma a ultrapassar isto e facilitar as mudancas, queria saber se é possivel criar uma celula com a path dos ficheiros, desta forma mesmo que eu tenha de mudar de computador apenas tenho de mudar a celula que contem a path e tudo o resto ja fica sincronizado:

como esta agora:
Código: Selecionar todos
=PROCV(A9;'F:\Encomendas\[domadom.xls]Sheet1'!$A$1:$U$397;15;FALSO)
Como eu gostaria de ter:
Código: Selecionar todos
=PROCV(A9;A50'[domadom.xls]Sheet1'!$A$1:$U$397;15;FALSO)
A50=F:\Encomendas\


Desta forma em vez de alterar 50 referencias apenas alteraria 1.

E possivel?

Obrigado pela ajuda

Re: Mudança de pasta afeta ficheiros externos

Enviado: 05 Out 2020 às 08:59
por osvaldomp
Uma possibilidade é utilizar a função INDIRETO() referindo-se a A50, no entanto essa função só funciona se o arquivo de origem dos dados também estiver aberto.

Outra possibilidade é via macro: um código que atualizaria as fórmulas após alteração manual em A50. Retorne se for viável o uso de macro e se houver interesse.

Mudança de pasta afeta ficheiros externos

Enviado: 05 Out 2020 às 09:50
por andy14
Boas,

Em relacao á questao acima, resolvi com a funçao indireto() e funciona as mil maravilhas.

Agora apenas me falta resolver as questoes das macros:

- mesmo problema
Código: Selecionar todos
Set src1 = Workbooks.Open("C:\Users\Casa1\Desktop\Encomendas\domadom.xls", True, True)
Tenho o codigo assim, posso referenciar a celula a50 na macro para me ditar o caminho do workbook?

obrigado por tudo

Re: Mudança de pasta afeta ficheiros externos

Enviado: 05 Out 2020 às 10:24
por osvaldomp
Experimente:
Código: Selecionar todos
Set src1 = Workbooks.Open([A50] & "domadom.xls", True, True)