![Stalker](./pictures/avatars/5a84a0f55ed4d.jpg)
![rar](./plugins/extend/postattach/icons/archive.png)
Zaslal/a cinkim 11.9.2014 8:29
Zdravím všechny.
Napsal jsem si toto makro pro uložení kopie souboru podle čísla v konkrétní buňce.
Dim fJmeno As String
Dim fCesta As String
fCesta = "U:\AV_Beku\Mischform\hotove zakazky2014"
fJmeno = Sheets("list1").Range("BK2").Text
ActiveSheet.SaveAs Filename:=fCesta & "\" & fJmeno
Potřebuji aby před tím ale proběhla kontrola některých buňek, jestli obsahují data. Může jít o čísla i text. Jedná se o buňky D2, BK2, BK3, BL5, BJ16 a BJ18.
Dále zkontrolovat buňku BN8. Zde může být pouze "OK" nebo "STOP".
Když budou buňky obsahovat data a v poslední buňka obsahovat "OK", pak se soubor uloží podle čísla v buňce. Když ne tak potřebuji zahlásit "Zkontrolovat zadání" a soubor se nesmí uložit.
Díky moc za pomoc.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.