Relatório com Referência a Pasta Externa Utilizando Indireto 2

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