Objetivo: Demonstrar o uso da função Indireto em uma aplicação prática, neste exemplo temos este realizando link para um arquivo externo de modo a mitigar problemas com perdas de referências. Com a atualização automática via vba dos dados sempre que abrir a planilha.
Nesta planilha é utilizada a função Indireto para fazer referência a células de planilhas externas.
Este post é uma melhoria da planilha em: http://guiadoexcel.com.br/relatorio-com-link-para-pasta-externa-utilizando-indireto com a alteração de fazer com que a ela seja atualizada sempre que ela é aberta.
Configure o local dos dados na guia Configuração da planilha Relatório das lojas.xlsm.
O VBA abaixo foi incluso na planilha:
Private Sub Workbook_Open() Workbooks.Open Filename:=Worksheets("Configuração").Cells(1, 2).Value + Worksheets("Configuração").Cells(2, 2).Value Calculate ActiveWindow.Close End Sub
O comando Workbooks.Open Filename:=Worksheets(“Configuração”).Cells(1, 2).Value + Worksheets(“Configuração”).Cells(2, 2).Value faz com que a planilha a qual a planilha se utiliza para atualizar os dados seja aberta
Calculate faz com que sejam calculados os dados da planilha atualizando assim as informações
ActiveWindow.Close faz com que a planilha aberta seja fechada logo em seguida.
Estes comandos simples resolvem o problema de ter de abrir a planilha de origem dos dados sempre que abrir o relatório.
Abraço
Marcos Rieper