Příspěvky uživatele
< návrat zpět
Stalker napsal/a:
Pokud chci vybrat oblast dá se použít tento zápis Range(Cells(1, 1), Cells(122, 34)), i když bych spíše volil
Range("A1").Resize(122, 34)
nebo
Cells(1,1).Resize(122, 34)
Nebo si stojím na vedení?
A skúšal si to? Tiež by to malo hodiť chybu.
Ono to prejde ale keď to spustíš z aktívneho hárku. Ale ak je aktívny cieľový hárok tak je chyba. Ku každému CELLS musíš zadať aj cestu.
Stalker napsal/a:
Zápis musí být ve tvaru jaký uvádí marjankaj, protože Range(Cells(1,1)) je zhovadilost.
No ja tento zápis používam a funguje. Má to využitie v cykloch. Iba v tomto prípade s COPY to nefunguje.
Funguje aj toto:
Sub Try_This()
Range(Sheets("hárok1").Cells(1, 1), Sheets("hárok1").Cells(10, 5)).Copy Range(Sheets("hárok2").Cells(1, 1), Sheets("hárok2").Cells(10, 5))
End Sub
Toto funguje. Skús to aj s iným zošitom.
Sub Try_This()
Dim ws3 As Worksheet, ws2 As Worksheet
Set ws3 = Sheets("hárok1")
Set ws2 = Sheets("hárok2")
ws3.Range(ws3.Cells(1, 1), ws3.Cells(10, 5)).Copy ws2.Range(ws2.Cells(1, 1), ws2.Cells(10, 5))
End Sub
https://www.ozgrid.com/forum/index.php?thread/118668-copy-and-paste-using-range-cells-1-1-cells-1-7/
Workbooks(zdrojSesit).Worksheets(zdrojList).Range(Cells(1, 1), Cells(122, 34)).Copy _
Workbooks(cilSesit).Worksheets(cilList).Range("A1")
Ale toto funguje.
Zaujímavé čítanie.
Neviete o nejakom fóre, kde sa píše skutočne niečo o exceli? 
djph napsal/a:
tady je to co potrebuji upravit (tedy to makro i s tabulkou)Příloha: 45328_statistiky.zip (19kB, staženo 1x)
Toto mám najradšej. Tabuľka sa nezhoduje s popisom v zadaní. A potom to ešte bude chcieť prispôsobovať, lebo mu to kopíruje inak ako to chcel on.
skús toto.
Sub Makro1()
Static i As Long
i = i + 1
Range("B1:B51").Copy Range(Cells(1, i + 2), Cells(51, i + 2))
End Sub
@frantilopa
A snáď ti poradil zle? Alebo máš iný VLOOKUP?
že by takto?
A z akého dôvodu to potrebuješ takto? Nie je jednoduchšie skopírovať to naraz? 
A čo je ďalšie spustenie? Napríklad každý pondelok, keď znovu zapneš PC?
Jiří497 napsal/a:
Já myslím, že che mít výsledek v D25, tzn. že vzorec (ať už jakýkoliv) bude v buňce D25.
Každopádně je škoda, že pdvorak1998 nereaguje. Nicméně, minimálně mně je toto vlákno užitečné.
Ale veď to som napísal.
=D25
a je jedno čo bude v bunke B25. Toto nie je o tom ako je zadávateľ zdatný v exceli. Je to o tom aký výsledok chce. Ak má byť výsledok D25, tak načo špekulovať so vzorcami.
mepexg napsal/a:
Jiří497 napsal/a:to AL: díky za tip (CHOOSE místo IF). To se mi líbí.
Skúste toto je ešte krajšie (aspoň podľa mňa)=SWITCH(B25;"BÍLÁ";150;"MERUŇKA";1;"JAHODA";10;0)*C25
Ale netuším ako tam dostaneš výsledok D25. A zrejme ani zadávateľ nevie, čo chce. Keby bolo jednoznačné zadanie, tak už to má dávno vyriešené.
AL napsal/a:
Toto fórum ide do p.. Úroveň otázok a problémov ide od desiatich k piatim.
Presne tak.
@AL
Ani tvoje nespĺňa požiadavku zadávateľa.
Výsledkem má být hodnota v buňce D25
Podľa zadania by to malo byť jednoducho:
=D25
Aké zadanie - také riešenie 
Uživatelské menu
\nMenu
Formulář 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