< návrat zpět

MS Excel


Téma: kontrola při uložení rss

Zaslal/a 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.

Zaslat odpověď >

Strana:  1 2   další »
#021525
avatar
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 Function
citovat
#021526
avatar
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
#021527
Stalker
Jen taková poznámka, ty buňky co si tu vypsal jsou opravdu prázdné nebo obsahují vzorec, který vrací prázdnou hodnotu?citovat
#021528
avatar
Buňky jsou prázdné. Pouze v buňce BN8 je vzorec s podmínkou když(...;"OK";"STOP")citovat
#021529
avatar
prilozte priklad takto mozem hadat co vam tam nejdecitovat
#021531
avatar
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: zip21531_sesit1.zip (14kB, staženo 18x)
citovat
#021532
avatar
tu som to opravil ale posledna podmienka je tam podla mna zbytocna kedze je vzdy splnena
Příloha: zip21532_seit1.zip (18kB, staženo 17x)
citovat
#021533
avatar
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
#021534
avatar
oprava:
Příloha: zip21534_seit1.zip (18kB, staženo 20x)
citovat
#021535
avatar
Super..., díky moc. Ušetřili jste mi spoustu bezesných nocí. 1citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje