Příspěvky uživatele

Nemyslím, že to funguje. Na mojom novom, aktualizovanom Office 2016 Pro SK x64, Win10 x64 SK, sa OnTime spúšťa absolútne divoko a netypicky. Excel si akoby prestal pamätať, kedy načasoval akciu. Vyvolá ju, aj keď ju zruším (presne daný uchovaný čas a Schedule:=False), aj keď zavriem súbor, otvorí ho. Děs-běs... Skúsil som dokonca nie nadeklarovať Dim alebo Public globálnu premennú, ale keďže sa mi zdalo, že zabúda pri BeforeClose danú premennú, tak som vytvoril aj Triedu, kde to bolo uchované. Aj tak ale keď nechám zošit dlhšie otvorený, tak spustí OnTime 2x. Akoby makro po nejakej dobre pokračovalo za MsgBox-om, bez potvrdenia MsgBoxu. ako vravím - Děs-běs...

Aby to išlo rýchlo, s tou funkcionalitou čo tam máte načrtnutú, tak to treba celé prekopať. Tie makrá nie sú vhodné. Nemám viac času, ale nezmenené Vaše makrá sú pod hrubou čiarou. Ostatné som prerobil, zmenil, pridal, ubral.
Dalo by sa to urobiť ešte v menej krokoch, ak by sme mali popis. A čas samozrejme.
Pridajte sem aj jeden vzorový súbor CSV.

No a ešte nejaký slovný popis, toho čo chcete dosiahnuť ?
Nechce sa mi príliš skúmať celý kvázi-kód a hľadať logiku. Možno totiž urobiť nové riešenie bude kratšie ako preskúmať a zmeniť kód (ktorý z toho čo vravíte, nemusí byť 100%-ný). Ale len možno...

Iný príklad. Dynamický počet rokov, údajov pre každý rok, a kontrola pomocou PF.

...LookAt:=xlPart...
zmente na
...LookAt:=xlWhole...

+- autobus ...

EDIT 2 (19:41): Opäť vymenená príloha. To snáď nieje možné :)

Skúsim to vysvetliť:
-Skopírujte si zlúčenú bunku z F8 dočasne do AP8 (Ctrl+C, Ctrl+V)
-Označte všetky bunky F8:G39, a dajte zrušiť zlúčenie.
-Onačte dočasnú zlúčenú bunku AP8, dajte Ctrl+C
-Označte všetky bunky F8:G39, a dajte pravý klik a Možnosti prilepenie - Formátovanie
-Dočasnú AP8 zrušte tak, že ju označíte a Domov - Úpravy - Vymazať - Vymazať všetko.

Teraz Vám pôjde zoraďovanie. Filter ale nie, lebo máte zase časť hlavičiek zlúčené riadky, to si ale môžete urobiť inak.

EDIT: Toto funguje len ak chcete zoraďovať podľa Štátu.

EDIT2 :
Urobil som pokus a všetky bunky som zduplikoval a zlúčil (spôsobom vyššie), aby nebola jediná, ktorá by mala inú veľkosť. Takže ste tam mal 2 zlúčené stĺpce, a teraz sú všetky. Pridal som aj filter s malou zmenou hlavičiek. Filtrovanie ide asi normálne. Zoraďovanie ale nefunguje cez filter, ale musí sa označiť oblasť A8:Z39, Údaje - Zoradiť, vybrať polia, ich poradie a smer. Potom to ide.

Za mňa osobne, ak tam to zlúčenie je len kvôli estetike, tak sa na to vykašlite, bunky urobte normálne (ak sú štáty široké, skúste skratky), a nebudú takéto nevyspytateľné problémy. Veď spodná tabuľka ZÁLOHY bude vpravo vytŕčať len o 2 bunky (o jednu ak nebude medzi nimi pauza).

A keby boli zlúčené iba naoko ?
Zarovnanie na stred výberu
Funguje to dobre.

Tak áno, ale vymeniť si vo vzorci prvý a tretí výskyt [@Dátum] za napr. "SERVIS" alebo čokoľvek iné, už Jano z Blavy zvládne. Druhý výskyt [@Dátum] vo vzorci nemeniť, ten je potrebný.

Tak ešte príklad

No a čo určuje kedy bol servis vykonaný ??? Veď predsa môže byť vykonaný pri 2098 hodinách, a potom treba hľadať položku s min 3098 hod. Nie 3000.

A test chyby musí byť na <>0, nie na =0.

Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
Application.Windows("Test2.xlsm").Activate

If Err <> 0 Then Call aha
end sub

Ak chcete iba otestovať či je súbor s daným názvom otvorený, a nie ho pritom aktivovať, tak napr.
Sub RunEveryTwoMinutes()
Dim Test As Boolean

ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
Test = Application.Windows("Test2.xlsm").Visible

If Err <> 0 Then Call aha
end sub

alebo použite Workbooks:
Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
If Len(Workbooks("Test2.xlsm").Name) = 0 Then Call aha
end sub

Príklad

Ukážte 1 súbor s dátami a želanú podobu výsledkového súboru.

Podľa mňa máte nedomyslených alebo neuvedených zopár dôležitých vecí. Napr. ako chcete dopĺňať do skladu nové veci, kontrolu či je možné vôbec odpísať požadovaný počet, čo ak nie (ostatné odpísať alebo zastaviť, lebo bude nekompletná obj.), história objednávok a výdaju sa nevedie ? ... atď ...

Každopádne sa skúste inšpirovať, vyhľadávanie pozície som dal cez Collection. Záleží na obvyklom počte položiek skladu a objednávky, či bude rýchlejšie Match, For, Collection, Evaluate, a zápis či po jednom alebo upravené celé skladové pole...

Popis sa mi už nechcelo robiť.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje