Em algumas planilhas eu uso algumas listas dinâmicas onde os valores se encontram em outra planilha, como segue o comando abaixo:
Código: Selecionar todos
=DESLOC('D:\Dados Alex Abreu\Trabalho\Controle de estoque\[Sistema de Controle de Estoques 2019.18.06144124.xlsm]BD'!$N$2;0;0;CONT.VALORES('D:\Dados Alex Abreu\Trabalho\Controle de estoque\[Sistema de Controle de Estoques 2019.18.06144124.xlsm]BD'!$N:$N);1)
Para contornar esse problema consegui resolver fazendo os seguintes Passos:
- Usei uma Macro para exportar automaticamente o Nome do caminho do arquivo de Origem para um arquivo TXT de valor Fixo e usei uma macro para importar para uma célula da planilha apontando de onde necessito buscar esses dados. (Imagem em Anexo)
- Segundo Passo Foi Gravar uma Macro alterando o nome do Caminho Desloc mencionado acima e fazer alguns ajustes conforme comando abaixo.
- Por último acrescentei que executassem as macros abaixo ao iniciar o arquivo cujo depende das informações do Arquivo com o Nome Variável
Código: Selecionar todos
Sub Listagem_Dinamica()
Dim Nome_Caminho
Nome_Caminho = Planilha1.Range("O8").Value
'Para Centro de Custo
ActiveWorkbook.Names("Centro_Custo").RefersToR1C1 = "=OFFSET('[" & Nome_Caminho & "]BD'!R2C14,0,0,COUNTA('[" & Nome_Caminho & "]BD'!C14),1)"
End Sub