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ť.
Príklad. V makre je popis 3 druhov.
Vlastnosť
Worksheets(1).ProtectContents
S tým riešiteľom Vám žiaľ nepomôžem, a ten PF stačí málo poupraviť.
Kurník aj šopa, to je dobrá haluška ...
Je fuk či A$2 alebo A$3, vždy ako sa stretne tá istá bunka, tak sa to pokaká. Proste sa nesmie asi použiť vypĺňanie tak, že sa "pretne" rovnaká bunka z jedného smeru do druhého.
Väčšinou sa ale podľa mňa používa vypĺňanie od bunky do jedného smeru, nie cez ukotvenú bunku.
Skúste
Tak, tak, treba "" a nie "'" aby to frčalo.
EDIT: A keď budeme uvažovať atribúty za textové položky, čo podľa všetkého vždy sú, tak v týchto 3 stĺpcoch obalte VLOOKUP/SVYHLEDAT do REPT/OPAKOVAT aby Vám neukazovalo 0 ak je prázdne pole.
No tak ten apostrof hromadne odstráňte.
Inak zabudli sme obaja v rýchlosti zadať posledný parameter FALSE/NEPRAVDA, ktorý rieši nezoradené položky. Prílohu som vymenil.
Keď prídem, ešte na to pozriem, ale bodla by reálna príloha (nechajte formáty, rozmiestnenie, zredukujte len počet a citlivé dáta).
No a normálny VLOOKUP/SVYHLEDAT Vám nefachá?
PS: Nezabudnite, že musíte mať vzorce v stĺpcoch C:H nakopírované na správny počet riadkov pre každú zákazku, keď už to chcete mať takto rozdelené.
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.