Szybkie aktualizowanie łącz do zewnętrznych skoroszytów

Autor: Piotr Dynia
Data: 26-05-2015 r.

Pracujemy w skoroszycie zawierającym główny budżet firmy. Znajdują się w nim odwołania do innych zestawień budżetowych zawartych w oddzielnych plikach. W skoroszycie z budżetem głównym potrzebujemy często zmieniać łącza do kolejnych zestawień, aby móc tworzyć podsumowania dla poszczególnych oddziałów firmy.

Ręczne zmienianie każdego łącza poprzez wybór odpowiedniego polecenia jest dość czasochłonne, tym bardziej że okno dialogowe Zmienianie źródła otwiera się w domyślnej ścieżce lokalizacji plików i za każdym razem musimy przechodzić przez kilka folderów, aby dostać się do konkretnego pliku. Wyjaśniamy, jak to szybciej zrobić z wykorzystaniem makra.

Rysunek 1. Budżet główny oparty na danych z innych skoroszytów, zawierających miesięczne budżety poszczególnych komórek organizacyjnych

Aby utworzyć makro zmieniające łącza w skoroszycie:

  1. Otwórzmy Edytor Visual Basic za pomocą kombinacji klawiszy lewy [Alt]+[F11].

  2. Dodaj moduł standardowy (Insert/Module), w którym umieścimy makro.

  3. W oknie kodu, które się pojawi, wpiszmy następujące makro:

Sub ZmieńŁącza()

Dim łącza, łącze As Variant

Dim ścieżka As String

łącza = ActiveWorkbook.LinkSources(xlExcelLinks)

If Not IsEmpty(łącza) Then

For Each łącze In łącza

ścieżka = InputBox("Zmień łącze do pliku: " & łącze, "Zmień łącza", łącze)

If Dir(ścieżka) <> "" Then

ActiveWorkbook.ChangeLink łącze, ścieżka

ElseIf ścieżka <> "" Then

MsgBox "Nie znaleziono takiego pliku"

End If

Next

Else

MsgBox "Nie znaleziono żadnych łączy do innych skoroszytów"

End If

End Sub

  1. Zapiszmy kod i zamknijmy Edytor VBA.

Makro można uruchomić w następujący sposób:

  1. Wybierzmy polecenie Widok/Makra/Wyświetl makra.

  2. Na liście makr wybierzmy makro o nazwie ZmieńŁącza i naciśnijmy przycisk Uruchom.

Dla każdego łącza pojawi się okno ze ścieżką do innego skoroszytu (rysunek 2). Można ją zmienić lub pozostawić bez zmian.

Rysunek 2. Okno dialogowe ze ścieżką do innego skoroszytu, którą można zmienić

Po zmianie wszystkich łączy na pliki z budżetami główny raport będzie pokazywał stan finansów firmy w innym miesiącu.

Piotr Dynia

Tagi: excel

Zaloguj się, aby dodać komentarz

Nie masz konta? Zarejestruj się »

Zobacz także

Jak zatrzeć ślady po przeglądaniu Internetu?

pobierz

Wzór Polityki Bezpieczeństwa w ochronie danych osobowych

pobierz

Konfiguracja bezpieczeństwa. Windows 10

pobierz

10 sprytnych trików na szybkie obliczenia w Excelu

pobierz

Polecane artykuły

Polecamy kancelarię:

  • Kancelaria Radcy Prawnego Marcin Majcherczyk

    ul. Stawowa 4 lok. 39, 41-200 Sosnowiec

    Wyświetl wizytówkę
  • Buszan Suchecka Orłowski Adwokat Radcowie Prawni Sp.p.

    ul. Armii Krajowej 22/2, 81-849 Sopot

    Wyświetl wizytówkę
  • THE N.E.W.S. LAW CENTER Kancelaria Adwokatów i Radców Prawnych

    ul. Kazachska 1/89, 02-999 Warszawa

    Wyświetl wizytówkę
  • adwokat Wojciech Rudzki - kancelaria adwokacka

    Józefa Piłsudskiego 40/4 Kraków 31 - 111

    Wyświetl wizytówkę
  • KANCELARIA ADWOKACKA Adwokat Michał Gajda

    ul. Księcia Bogusława X 1/3, 70-440 Szczecin

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Robert Dudkowiak

    ul. Jana Pawła II 11 lok. 5, 62-300 Września

    Wyświetl wizytówkę
  • Kancelaria Adwokacka Adwokata Piotra Sęka

    ul. Narutowicza 44 lok. 20, 90-135 Łódź

    Wyświetl wizytówkę
  • Kancelaria Radców Prawnych ARVE M.Kusztan & R.Ponichtera Sp. K.

    ul. Czysta 4, 50-013 Wrocław

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Marek Foryś

    ul. Słupecka 9/1, Gdynia

    Wyświetl wizytówkę
  • Kancelaria MERITUM

    ulica Westerplatte 13/5, 31-033 Kraków

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Radosław Tymiński

    Łukowska 9 Lok. 126, 04-133 Warszawa

    Wyświetl wizytówkę
  • Kancelaria Prawna Iurisco Edyta Przybyłek

    ul. Zgrzebnioka 28, 40-520 Katowice

    Wyświetl wizytówkę
Array ( [docId] => 37265 )
Array ( [docId] => 37265 )

Array ( [docId] => 37265 )