MS Excel

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.

Zaslat odpověď >

Strana: 1 2 další »

Palooo(11.9.2014 8:58)#021525

napr. takto:
Sub aa()
If aTestuj Then ActiveSheet.SaveAs Filename:="U:\AV_Beku\Mischform\hotove zakazky2014" & "\" & Sheets("list1").Range("BK2").Text
End Sub

Private Function aTestuj() As Boolean
aTestuj = True
If Range("D2").Text = "" Then aTestuj = False: Exit Function
If Range("BK2") = "" Then aTestuj = False: Exit Function
If Range("BK3") = "" Then aTestuj = False: Exit Function
If Range("BL5") = "" Then aTestuj = False: Exit Function
If Range("BJ16 ") = "" Then aTestuj = False: Exit Function
If Range("BJ18 ") = "" Then aTestuj = False: Exit Function
If Range("BN8 ") <> "OK" Or Range("BN8 ") <> "STOP" Then aTestuj = False: Exit Function
End Functioncitovat

cinkim(11.9.2014 9:12)#021526

Bohužel to nefunguje. Soubor se uložil i když nebyly buňky vyplněny.Ani žádné chybové hlášení že musím zkontrolovat zadání.citovat

Stalker(11.9.2014 9:25)#021527

Jen taková poznámka, ty buňky co si tu vypsal jsou opravdu prázdné nebo obsahují vzorec, který vrací prázdnou hodnotu?citovat

cinkim(11.9.2014 9:28)#021528

Buňky jsou prázdné. Pouze v buňce BN8 je vzorec s podmínkou když(...;"OK";"STOP")citovat

Palooo(11.9.2014 9:40)#021529

prilozte priklad takto mozem hadat co vam tam nejdecitovat

cinkim(11.9.2014 10:34)#021531

Vyházel jsem z toho nepotřebné věci, ale princip je stejný.
První podmínka, všechny červené pole musí být vyplněny(některé mají rozevírací seznam pro výběr).
Druhá podmínka, pole BN8 musí obsahovat "OK". V našem případě stačí do D2 zadat číslo 10.
Když jsou splněny podmínky, kliknutím na "Archiv" dojde k uložení souboru s názvem v BK2.
Nesplněním byť jediné podmínky, nesmí jít soubor uložit a potřebuji hlášku "Zkontroluj zadání"
Díky moc

Příloha: zip

21531_sesit1.zip (14kB, staženo 18x)

citovat

Palooo(11.9.2014 10:44)#021532

tu som to opravil ale posledna podmienka je tam podla mna zbytocna kedze je vzdy splnena

Příloha: zip

21532_seit1.zip (18kB, staženo 17x)

citovat

cinkim(11.9.2014 11:01)#021533

Ještě to není ono. Soubor jde uložit i když mám v buňce "Stop"
Těď to blokuje uložení do doby než zadám do D2 libovolné číslo.
Potřebuji aby to opravdu kontrolovalo "OK" "STOP"
Tato podmínka je důležitá.
Jinak už to začíná být supercitovat

Palooo(11.9.2014 11:03)#021534

oprava:

Příloha: zip