Příspěvky uživatele

lubo napsal/a:

Ontik napsal/a:
Datum vypadá takto 01.07 a potřebuji ho převést na 01.07.2024

Nevypadá, Je tam text v této podobě. Automatický převod může nějakou dobu fungovat, nějaký rok si to vymyslí, většinou asi správně, někdy špatně.

Prostě si srovnejte data.

veny napsal/a:

nevím další použití ale mohlo by pomoci
eng DATEVALUE
cz DATUMHODN
které převede text na pořadové číslo

lubo napsal/a:

tak?
=LET(
_datum; DATUMHODN(C2) + D2 + ČAS(2; 0; 0);
_den; DENTÝDNE( _datum; 2 );
hod; HODINA(_datum);
KDYŽ( _den < 6;
VYHLEDAT( hod; {0; 8; 16}; {"N"; "R"; "O"} );
VYHLEDAT( hod; {0; 12}; {"N-12"; "D-12"} )
)
)

Ontik napsal/a:

Lader napsal/a:Jsou tu dva tu problémy:
1) nedělní noční N-12 od 22:00 do 10:00 se překrývá s pondělní ranní směnou v době od 6:00 do 10:00.
2) páteční noční končí v sobotu ráno v 6:00, ale sobotní denní D-12 začíná v 10:00, takže doba od 6:00 do 10:00 není obsazená.Příloha: 56607_rozvrh.jpg (100kB, staženo 9x)

Dobrý den, 1) nedělní noční N-12 začíná v sobotu 22:00 a končí v neděli 10:00, pondělní noční začíná v neděli večer 22:00 a končí v pondělí 6:00
2) páteční noční začíná ve čtvrtek 22.00 a končí v pátek 6:00
3) v týdnu jsou 8h směny ranní od 6.00 / odpolední od 14:00 / noční od 22:00 a o víkendu jsou 12h směny - denní a noční od 10:00 do 22:00
4) každá noční směna začíná vždy ve 22:00 den předem (např. pondělní noční začíná v neděli 22:00 nebo sobotní začíná v pátek 22:00
Moc děkuji za pomoc

Lader napsal/a:

Jsou tu dva tu problémy:
1) nedělní noční N-12 od 22:00 do 10:00 se překrývá s pondělní ranní směnou v době od 6:00 do 10:00.
2) páteční noční končí v sobotu ráno v 6:00, ale sobotní denní D-12 začíná v 10:00, takže doba od 6:00 do 10:00 není obsazená.Příloha: 56607_rozvrh.jpg (100kB, staženo 9x)

elninoslov napsal/a:

To myslíte asi PowerQuery. Tak si doinštalujte PQ pre Office 2013, lebo E2013 ho ešte natívne neobsahuje. Už sa síce nebude aktualizovať, ale neva. Pribudne Vám záložka POWER QUERY - tam From File - From Folder - ...

elninoslov napsal/a:

V tomto súbore "ZoradenieLog.xlsm" som pridal 2 makrá na Log.
makro VytvorLog
makro XLog
a na začiatku premennú
Dim Subor As String
V tomto mojom skúšobnom súbore to teda je nastavené, ale chcem od Vás:
-vytvorte si kópiu toho Vášho súboru
-otvorte ju, a skontrolujte či 1 dátový riadok Tabuliek neobsahuje citlivé info (RČ, meno, mail, telefón, adresa). Ostatné riadky okrem hlavičky a 1. riadku Tabuliek, nebudú do logu zahrnuté, ani iné dáta mimo Tabuliek (objekt Tabuľka). Tieto citlivé dáta zmeňte, ale tak, aby presne zodpovedali forme predchádzajúcich, veľké malé písmená, formát číslo, text, dĺžka, počet medzier (s medzerami vôbec nehýbte, nemažte, neprepisujte, iba ich obíďte kurzorom, teoreticky môže byť chyba aj v nesprávnych medzerách Alt+0160 vs Alt+032), nemeňte vzorce, neredukujte dáta, ani nevymazávajte celé bunky, riadky, stĺpce.
-vložte na začiatok do modulu makier tú deklaráciu premennej
Dim Subor As String
a na koniec modulu makier vložte tie 2 makrá VytvorLog a XLog
-takže máte 2 súbory s tými novými makrami (VytvorLog, XLog), teda súbor "ZoradenieLog.xlsm" a kópiu Vášho súboru.
-v oboch súboroch spustite makro "VytvorLog", pričom dajte pozor, z ktorého modulu ktorého súboru makro spúšťate. Nepomýlite sa, ak bude otvorený vždy iba 1 súbor.
-spustenie je nevyhnutné urobiť na oboch PC, teda aj na tom s Office pre domácnosti, kde to šlo, aj na tom s Office Enterprise.
-pri každom súbore vznikne textový log tam, kde sa súbor nachádzal, a to v takomto tvare:
Log_13.02.2023_09_17_24_Zoradenie.xlsm.txt
-takže dokopy budú 4 txt logy.
-tieto logy, si ešte pozrite, či v nich nie sú citlivé dáta, a pripadne opakujte od kroku s úpravou dát v 1. dátovom riadku
-tie 2 logy, ktoré sú z Enterprise, ešte označte na začiatku názvu "E_...názov súboru"
-tieto 4 logy mi pošlite, či už ich spolu zabalíte, alebo pošlete v 4 postoch, alebo mi ich hoďte na mail (mám ho v info v profile).Příloha: 54444_zoradenielog.zip (28kB, staženo 1x)

elninoslov napsal/a:

Tieto 2 pokusy Vám prejdú?
Sub pokus1()
MsgBox Range("Tabulka1[příjmení, jméno]").Address
End Sub
Sub pokus2()
MsgBox Range("Tabulka1[" & Worksheets("DATABAZE ZAMESTNANCU").Range("B1").Value2 & "]").Address
End Sub

Ontik napsal/a:

elninoslov napsal/a:Enterprise verziu k dispozícii nemám. Každopádne chýba mi odpoveď a) aj text chyby (screenshot) c).

Pre skok na bunku aj so scrolovaním nahradiť daný riadok za tento
Application.Goto Range("Tabulka1[příjmení, jméno]").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False), True

přílohou posílám PrtScr chyby
Zkoušel jsem to v té vaší verzi i v té mé.