Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  19 20 21 22 23 24 25 26 27   další » ... 156

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. 6

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. 10

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? 7

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. 6

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


Strana:  1 ... « předchozí  19 20 21 22 23 24 25 26 27   další » ... 156

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje