Otevřeme si rozpracovaný sešit 30-60-90.xlsm. Máme v něm již naimportovaná data, ze kterých budeme sestavu vytvářet. Také na listě Tlačítka jsme si umístili tlačítko Aktualizace dat, které v budoucnosti můžeme využívat pro načtení nových dat ze souboru faktury.csv (pokaždé, když tento soubor bude změněn).

Další makro, které použijeme pro zpracování sestavy, nám do tabulky doplní počet dní po splatnosti. Toto makro již jsme si vysvětlili v 5. díle našeho seriálu o makrech.  Známe již také možnost importu maker, proto si stáhneme soubor po_splatnosti.bas.  Ten si uložíme na pevný disk a do našeho rozpracovaného souboru jej naimportujeme pomocí nabídky Vývojář – Kód – VisualBasic. V okně VisualBasicu použijeme nabídku File – Import File. Nalistujeme soubor po_splatnosti.bas a dialogové okno potvrdíme tlačítkem Otevřít.

Zdrojový kód makra doplníme v prvním řádku o příkaz Sheets("data").Select.  Tím zajistíme, že makro bude skutečně spuštěno na listě Data, pokud by uživatel při práci se souborem např. nechtěně přepnul na jiný list.

Makro tedy doplní do tabulky na listě Data do buňky G1 nadpis Po splatnosti, v buňce G2 vytvoří  vzorec =KDYŽ(F2=0;DNES()-E2;" "), zkopíruje tento vzorec do celého sloupce G.

Přejdeme na list tlačítka, kde si vytvoříme tlačítko pro vyvolání makra. Způsob již známe – v nabídce Vývojář – Ovládací prvky – Vložit potvrdíme z grafické nabídky ikonu Tlačítko a šikmým tahem nakreslíme tlačítko. Otevře se dialogové okno Přiřadit makro, ze seznamu vybereme makro po_splatnosti a potvrdíme tlačítko OK. Označíme text na tlačítku a přepíšeme je naším vlastním textem – např. Počet dní po splatnosti.

Makro tedy vyčíslilo u každé z nezaplacených faktur, kolik dní je po splatnosti. Zatím máme na listě data pohromadě jak zaplacené, tak i nezaplacené faktury. Zaplacených si již nemusíme všímat, takže účelem dalšího makra bude vytvoření tabulky, která bude obsahovat pouze nezaplacené faktury.

Přejdeme tedy na kartu Vývojář a spustíme Záznam makra, které uložíme to tohoto sešitu pod názvem Nezaplacene. Provedeme následující kroky:

1. Klepneme na ouško listu Data.

2. Pomocí klávesové zkratky Ctrl+Home přemístíme kurzor na buňku A1.

3. V nabídce Data – Seřadit a filtrovat zapneme příkaz Filtr.

4. Rozbalíme šipku filtru sloupce G (Po splatnosti). V nabídce filtru zvolíme Filtry textu – Vlastní filtr. V jeho dialogovém okně nastavíme podmínku Je větší než a zadáme 0.

5. Označíme vyfiltrovaná data (CTRL+*) a zkopírujeme je (CTRL+C).

6. Vložíme do sešitu nový list.

7. Do buňky A1 nového listu vložíme zkopírovaná data pomocí klávesové zkratky CTRL+V.

8. Klepneme pravým tlačítkem myši na ouško listu a přejmenujeme ho – nezaplacene.

9. Ukončíme záznam makra.

Přepneme do okna VisualBasicu, protože zdrojový kód makra budeme muset ještě trochu upravit (žlutě označený text nahradíme červeným), aby vše fungovalo správně i v případě, že aktualizovaná data budou mít jiný počet řádků nebo kdyby nově vložený list neměl z nějakých důvodů název List3.

Sheets("data").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$G$229").AutoFilter Field:=7, Criteria1:=">0", _ - nahradit (“A:G“)

Operator:=xlAnd

Selection.Copy

Sheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Paste

Sheets("List3").Select – nahradit ActiveSheet.Select

Sheets("List3").Name = "nezaplacene" nahradit ActiveSheet.Name

ActiveCell.Select

Pro hotové makro s názvem nezaplacene opět vytvoříme známým způsobem tlačítko na listě Tlačítka. Pojmenujeme jej Vypsat nezaplacené faktury.

Připojené soubory:

1. Sešit 30-60-90.xlsm ve stavu po provedení popsaných postupů.

2. Zdrojové kódy maker po_splatnosti.bas (určen pro import) a nezaplaceno.txt (určen pro porovnání s Vaším vlastním zdrojovým kódem).