No keďže najrozumnejšiu radu nepotrebuješ, tak asi takto
=TRIM(RIGHT(A1;LEN(A1)-FIND("-";A1)))-TRIM(LEFT(A1;FIND("-";A1)-1))-B1/24
A tie "dny v týdnu" je potom čo, keď o ne nejde? Možno na 50-ty krát do nejako vysvetlíš.
martinek.v napsal/a:
To je moje chyba, nevysvětlil jsem problém.
V každém tom sloupci ta data budou ještě seřazena dle dnů v týdnu.
Tak potom bude chyba medzi stoličkou a klávesnicou.
Bez prílohy ťažko niečo poradiť.
honza787145 napsal/a:
Uprimne si myslim, ze byste meli svuj cas venovat necemu jinemu.
Proc?
Nomi napsal/a:
no lol to mě nenapadlo, díky.
Criteria1:=True funguje ja to zkoušel protože jsou všude CZ tak jen s funkcí PRAVDA
Hmm.. A skúsil si
Criteria1:="TRUE"
alebo
Criteria1:=True
pantalone2 napsal/a:
Tak nakoniec som to vyriešil, trebalo to cez VLOOKUP.
For Each list In Worksheets
If list.Name <> Worksheets("KALKULACE").Name Then list.Visible = False
Next list
No zrejme treba k tlačítku "skrýt" priradiť aj makro.
Zrejme treba postupovať podľa príručky alebo návodu.
Nevieme verziu excelu ani ako ten list vyzerá.
A ako to z toho prístroja prenášaš do excelu?
Ako ťa to napadlo písať to do riadkov? To sú vyplnené iba dva riadky? A stĺpcov je ako maku?
A čo tak použiť funkcie RIGHT, MID, FIND, INSTR, INSTRREW, prípadne SPLIT?
A povedal si že vzorce nechceš kopírovať? A je problém to preformátovať po tvojom? To ti všetko treba urobiť ako na podnose?
Public Sub kopy()
Worksheets("hárok2").UsedRange.Copy
Worksheets("hárok1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
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.