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.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.