Příspěvky uživatele
< návrat zpět
veny napsal/a:
Cítím lehkou ironii?
No áno. Prečo tam dávaš tabuľky ktoré s problémom nesúvisia. Naviac so žiadnym popisom. Tu nejde o to ako kto ovláda excel. Problém je pochopiť, čo chceš dosiahnuť, aký výsledok požaduješ. Nič také si tam neuviedol. Čo si ty myslíš, do toho nikto nevidí.
veny napsal/a:
vypadá to nadějně, zítra zkusím aplikovat do mojí tabulky a dám vědět, hlavně ten vzorec musím pořádně prozkoumat.
A skús si tú tabuľku1 vyhodiť a sleduj čo sa zmení.
Alebo pridaj 20 ďalších tabulečiek.
elninoslov napsal/a:
Tak za Close pridajte False
xlApp.Workbooks(poleNazvu(c)).Close False
Ale v tomto prípade mi nie je jasné, prečo v tých súboroch robil zmeny.
neviem o čo ti ide. že by?
xlApp.Workbooks(poleNazvu(c)).Save
xlApp.Workbooks(poleNazvu(c)).Close
namiesto
$C$5:$C$29="L*"
daj
Zleva($C$5:$C$29;1)="L"
Úžasný návod. Ale máš to pekne vymaľované.
A čo tak najprv vytvoriť si kopiu toho súboru a ten môžeš potom upravovať?
No asi by som zvolil funkciu ON TIME.
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)
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