Příspěvky uživatele
< návrat zpět
pantalone2 napsal/a:
Tak nakoniec som to vyriešil, trebalo to cez VLOOKUP.
Si šikovný. Ja by som na to neprišiel.
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. 
Neviem, načo si tam skopíroval zbytočnosti.
toto skopíruje z hárku2 do hárku1
Public Sub kopy()
Dim oblast As Range
Set oblast = Worksheets("hárok2").UsedRange
oblast.Copy Worksheets("hárok1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
StavrosJorgos napsal/a:
Zajímavé, používám vrzi ex.2017,...
2017? To už budú každý rok dávať novú verziu excelu?
mepexg napsal/a:
netypujem
=OFFSET(List1!$A$1;(COLUMN()+1)*5-6;IF(ROW()=1;0;(ROW()-1)*7))
Ešte by sa dalo údaje transponovať a nepotrebné stĺpce (1.-4. = A-D,6-9,...) zmazať; vyfiltrovať prvý a každý 8. riadok.
A načo je tam ten IF?
IF(ROW()=1;0;(ROW()-1)*7)
veď stačí
ROW()-1)*7
Inak "páčia" sa mi takéto zadania.
Vraj každá ôsma bunka. Ale nenapíše kde sa začína prvá bunka, či v prvom stlpci alebo ôsmom. Aby pridal prílohu to ho samozrejme ani nenapadne. Nemáme čarovné gule, iba obyčajné
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články