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
@elninoslov
Myslím, že by sa mal venovať niečomu inému-jednoduchšiemu.
Alebo nech si pozrie knihu o programovaní VBA pre excel. Tam sa možno niečomu priučí.
Na to sa nedá ani pozerať.
Napríklad, čo je toto za vzorec?
=B3*VLOOKUP(A3;tblData;4;FALSE)-(B3*VLOOKUP(A3;tblData;4;FALSE))*G3
Prečo nie takto?
=B3*VLOOKUP(A3;tblData;4;FALSE)*(1-G3)
Do bunky D3 daj vzorec a skopíruj ho dolu
=IF(B3<>"";"B"&COUNTA($B$3:B3);IF(C3<>"";"C"&COUNTA($C$3:C3);""))
Do češtiny si to snáď preložíš.
IF=KDYŽ
COUNTA=POčet2
@xlnc
On nepotrebuje vyskočiť z cyklu. On sa iba takto "zrozumiteľne" vyjadruje.
On potrebuje iba preskočiť tých 5 riadkov za LOOP
Inak ten cyklus je naozaj úžasný. Toto by som určite ani nevygooglil.
A tá podmienka tb.leght < 199 je naozaj intuitívna.
Ale hlavne že mu to funguje.
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.