Příspěvky uživatele
< návrat zpět
Marw napsal/a:
Dobry den mepexg a marjankaj, děkuji za pomoc, funguje tak jak potřebuju. Omlouvám se za přílohu typu obrázek, neuvědomil jsem si, že je jednoduší poslat přímo xls soubor z důvodu přepisování. Příště bych Vás prosil o upozornění,rád přílohu upravím tak, aby byla co nejvýhodnější. Ještě jednou díky. M.
Veď my aj tak nemáme inú robotu. Aspoň si precvičíme ťukanie do klávesnice.
mepexg napsal/a:
Nedám xlsx, lebo ani zadávateľ nemá tú potrebu a núti nás pred riešením opisovať zadanie, tak nech si opisuje aj riešenie.
To som sa nepýtal teba, ale oceňujem tvoj nápad. Ako sa do hory volá, tak sa z hory ozýva.
A prečo nedávaš súbor *.xlsx?
Máš pravdu S RESIZE je to kratšie. Mne išlo o tú chybu. Ak pred CELLS(alebo RANGE) nie je cesta, tak sa uvažuje s ACTIVESHEET.
RANGE je čitateľnejšie, CELLS sa viac hodí do cyklov. Ak robíš len na jednom liste tak nič neriešiš. Na viac listoch si musíš dávať pozor.
Malo by to ísť aj s WITH, ale už to nebudem ďalej rozoberať.
Ospravedlňujem sa, máš pravdu. Ja som sa sústredil na druhú časť(cieľ) a ty si zase hovoril o zdroji.
Dal som aj to s WITH len s hárkami.
Sub Makro1()
With Sheets("zdroj")
.Range(.Cells(1, 1), .Cells(10, 5)).Copy Sheets("ciel").Cells(1, 1)
End With
End Sub
Stalker napsal/a:
marjankaj napsal/a:RESIZE je zbytočné. A je jedno ktorý list bude aktívny.
Otestuj si přiložené soubory a uvidíš
To je tak, keď máš zlé makro.
Písal som, že tam má byť cesta
Sub b()
Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Range(Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(1, 1), Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(122, 34)).Copy _
Workbooks("cilSesit.xlsx").Worksheets("cilList").Cells(1, 1)
End Sub
Vyskúšaj toto.
Stalker napsal/a:
marjankaj napsal/a:Keď tak na to pozerám stačilo vyhodiť ten RANGE.
Workbooks(zdrojSesit).Worksheets(zdrojList).Range(Cells(1, 1), Cells(122, 34)).Copy _
Workbooks(cilSesit).Worksheets(cilList).Cells(1, 1)
Jak se to vezme.
Ano kód bude funkční, ale pouze za předpokladu, že zdrojový list bude aktivní.
RESIZE je zbytočné. A je jedno ktorý list bude aktívny.
Máš pravdu chyba bola RANGE(CELLS(1,1)). Úplne stačilo CELLS(1,1). Tam bola chyba.
Keď tak na to pozerám stačilo vyhodiť ten RANGE.
Workbooks(zdrojSesit).Worksheets(zdrojList).Range(Cells(1, 1), Cells(122, 34)).Copy _
Workbooks(cilSesit).Worksheets(cilList).Cells(1, 1)
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
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