Příspěvky uživatele
< návrat zpět
Jiří497 napsal/a:
lugr napsal/a:No jooo, máš pravdu. Vůbec mi to nedošlo. A teď mě to se*e. . Zato jsi byl rychlejší
No, ale víš jak? "Práce kvapná, úplně na ho..."
Hlavně, že je to vyřešené.
Jiří497 napsal/a:
Já šel na to trochu složitě, tak to sem dávat nebudu. Jen bych upravil vzoreček od lugra: =HODNOTA(ZPRAVA(A1;8))*24+IFERROR(HODNOTA(ZLEVA(A1;NAJÍT(".";A1;1)-1));0)*24
Ten tvůj vzorec počítá s tím, že je na začátku (před tečkou) jednociferné číslo. Podle mě zadání zní tak, že tam nemusí být nic nebo třeba i dvouciferné číslo.
No jooo, máš pravdu. Vůbec mi to nedošlo. A teď mě to se*e.
HODNOTA(ZPRAVA(A1;8))*24+HODNOTA(ZLEVA(A1;1)*24)
Mělo by to fungovat. Řadí podle sloupce A.
Tedy v řádku 4 je záhlaví tabulky a řadit se budou data podle sloupce A?
Ráno na to mrknu.
Potřeboval bych rozložení tabulek abych mohl dodělat kód Seřadit. Nemám to jak vyzkoušet.
Dá se na kartě Data -> Upravit propojení -> zde odkážete na daný sešit a je to.
vložit do ThisWorkbook
Private Sub Workbook_Open()
Application.OnKey "{DELETE}", ""
End Sub
Oba soubory musí být otevřené.
Ještě mě napadlo, ať si u zdroje změníte formát z tohoto:
dd\.mm\.rrrr hh:mm
na toto:
dd.mm.rrrr hh:mm
Vložte obě přílohy a napište konkrétně co a kam chcete kopírovat.
No ty kráso, celý den si nad tím lámu hlavu. 
Je vidět, že se musím ještě hodně učit.
Dost dobrý lubo.
Proto jsem chtěl zkusit
.PasteSpecial xlPasteValues
to kopíruje jen hodnoty bez formátu.
Ale vy máte v kódu hodně select.
Musí to fungovat jednoduše.
lastrow = (Sheets("EEX_vr_ISOT").Cells(.Rows.Count, "A").End(xlUp).row) + 1
Sheets("Predikcia_DE").Range("A29:B52").Copy
Sheets("EEX_vr_ISOT").Range("A" & lastrow).PasteSpecial xlPasteValues
Já se v tom malinko ztrácím.
Jen si myslím, že problém je s datumem již u zdroj (např. že je formátován jako text) a když ho překopírujete i s formátem, tak na tom nezáleží, že v cílové buňce máte formát správný, jelikož si ho přemažete.
Oto nejde, já jsem taky jen amatér. Jen mi přijde, že to máte moc překombinované. Kouknu na to.
Uživatelské menu
\nFormulář 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.
RSS nejnovější články