W trakcie pracy ze skoroszytem zawierającym dużą liczbę arkuszy może zajść potrzeba ich uporządkowania i przeniesienia do oddzielnych plików. Najpopularniejszym rozwiązaniem w tym przypadku jest skopiowanie zawartości do nowego arkusza w innym pliku. Jeżeli arkuszy do przeniesienia jest kilkadziesiąt, to takie zadanie okaże się bardzo pracochłonne. Skorzystaj z makra, a wykonasz je w kilka sekund.
Aby z każdego arkusza utworzyć osobny plik:
Otwórz Edytor Visual Basic, wybierając z menu Narzędzia polecenie Makro/Edytor Visual Basic (w Excelu 2007: kliknij kartę Deweloper i w grupie poleceń Kod wybierz Visual Basic). Możesz także skorzystać z wygodnego skrótu klawiaturowego lewy Alt + F11.
Uwaga
Jeżeli karta Deweloper jest niewidoczna, kliknij Przycisk pakietu Office i u dołu wyświetlonego okna wybierz Opcje programu Excel. W kategorii Popularne zaznacz pole Pokaż kartę Deweloper na Wstążce i kliknij OK.
Z menu Insert wybierz polecenie Module i wpisz kod makra przedstawiony na rysunku 2.
Zapisz i zamknij Edytor VBA.
Teraz sprawdź jak działa makro.
W tym celu:
Wciśnij kombinację klawiszy lewy Alt + F8, a następnie w oknie dialogowym wybierz nazwę makra przeniesienie_arkusza i kliknij przycisk Uruchom.
W rezultacie otrzymasz oddzielne skoroszyty o nazwach: Balik.xls, Komar.xls itd., zapisane w folderze Handlowcy na dysku C.
Wskazówka
Arkusze są tworzone na dysku C w folderze Handlowcy. Jeżeli nie jest on jeszcze utworzony, to zrób to przed uruchomieniem makra, albo zmień ścieżkę na inną. Zrobisz to w linii:
ActiveWorkbook.SaveAs "C:\Handowcy\" & Arkusz.Name