Zdravím, rád bych se zeptal zkušených VBA expertu, zda lze následující:
v sešitu mám několik listy plán a vstup. Do listu vstup se mi načítá zkrze připojení csv soubor a v tomto listu jsou sloupce s čísly, datum začátku, datum konce a množství a já bych potřeboval do listu plán z listu vstup dostat tyto sloupce do jednotlivých buněk (toto bych zvládl udělat) ale jde o to že v listu plan mám naformatované a sloučené buňky. Jedna tato soustava sloučených a samostatných buňek (tabulka) odpovídá jednomu řádku v listu vstup.
Takže má představa je ta že přes VBA zjistím kolik řádků má list vstup, a na listu plán se mi tolikrát nakopíruje soustava zformátovaných buněk (tabulek) a pak do těchto namnožených tabulek se pak zkopírují řádky z listu vstup. V příloze jsem označil barevně co a jak.
Lze to, nebo by byla jiná lepší cesta? Děkuji za rady, nápady a případnou pomoc.
VBA import a kopirování buněk do zformátované tabulky Vyřešeno
VBA import a kopirování buněk do zformátované tabulky
- Přílohy
-
- plan.xlsm
- (20.71 KiB) Staženo 45 x
-
- Pohlaví:
Re: VBA import a kopirování buněk do zformátované tabulky
Jednoduše - lze to. Správným algoritmem/krokem/offsetem v cyklu. Zápis probíhá do první buňky sloučené oblasti.
Re: VBA import a kopirování buněk do zformátované tabulky
Ahoj, věnoval jsem se tomu několik dní ale bohužel jsem s tím prakticky nepohnul. V příloze je soubor s makrem, kde jsem to zkoušel, ale dostal jsem sa akorát k tomu spočítání řádků. Nepovedlo se mi dosáhnout toho aby se mi oblast kterou chci zkopírovat tolikrát namnožila.
Protože se v tom absolutně nevyznám, tak jsem si jist že to co jsem zplodil je nejspíše blbost :(
Byl by ochoten mi s tím někno pomoci, třeba krok po kroku. Rád bych se to naučil, nebo alespoň pochopil.
Protože se v tom absolutně nevyznám, tak jsem si jist že to co jsem zplodil je nejspíše blbost :(
Kód: Vybrat vše
Option Explicit
Sub spocitat2v() 'pokus 1
Dim PocetRadku As Long
Dim OblastKop As Range
Dim i As Integer
'smazat prázdné řádky
Sheets("vstup").Select
For i = 500 To 2 Step -1
If StrComp("", Cells(i, "A").Value) = 0 Then
Rows(i).Delete
End If
Next i
Sheets("Plan").Select
'zjistit kolik je řádků na listu vstup
PocetRadku = Sheets("vstup").Cells(Rows.Count, "A").End(xlUp).Row
'zapíše počet řádků
Range("F1") = "" & PocetRadku
'definování oblasti která se má kopírovat
Set OblastKop = Range("A3:W20")
For i = 3 To PocetRadku Step 18
Cells(i, 1).Value = Range("A3:W20").Copy
Next i
Byl by ochoten mi s tím někno pomoci, třeba krok po kroku. Rád bych se to naučil, nebo alespoň pochopil.
Naposledy upravil(a) rk9 dne 25 črc 2017 21:28, celkem upraveno 1 x.
Re: VBA import a kopirování buněk do zformátované tabulky
Pozeral som všetky súbory. Neviem z nich usúdiť, akú máte predstavu pre výstup (aké konkrétne údaje chcete do tabuľky umiestňovať).
Naposledy upravil(a) MePExG dne 26 črc 2017 05:29, celkem upraveno 1 x.
Re: VBA import a kopirování buněk do zformátované tabulky
Vystupem budou informace o zakazkach. Bohužel mám k dispozici jen 2013 bez možnosti instalovat doplňky.
Re: VBA import a kopirování buněk do zformátované tabulky
Už několik měsíců zkouším Office 2016 Pro CZ a nestačím se divit, normálně zapnu Excel a ten mi do pár sekund shodí Desktop Sidebar a před pár dny jsem zjistil, že když mám spuštěný Bit Comet - samozřejmě jen pro stažení Linuxových distribucí - tak ten blokuje Excelu schránku, poprvé ji dovolí Excelu použít, ale pak si Excel ani neškrtne, prý mu nějaký program blokuje schránku, po vypnutí Bit Cometu funguje normálně Takže není o co stát ... vážně přemýšlím, že se vrátím ke zlaté verzi 2003 Nemluvě o tom, že 2016 je proti verzi 2003 pomalá (i na mém dělu) jako šnek ... zkoušeno na jednom vlastním Excel 2003 seznamu, co má necelých 40 MB.
- Blitzkrieg
- Level 3.5
- Příspěvky: 680
- Registrován: prosinec 16
- Pohlaví:
- Stav:
Offline
Re: VBA import a kopirování buněk do zformátované tabulky
Hm, mně se Office 2016 spouští obstojně rychle a i práce v něm je z mého pohledu rychlá a bezproblémová... Na druhou stranu nemám ultrarychlé U.2 SSD jako ty, takže jsem na nějakou tu sekundu načítání zvyklí.
Docela mě ale irituje bug v Excelu, kde když se přepnu do nové buňky a napíšu obě závorky "()" a následně chci do nich něco napsat (= zmáčknu levou šipku), tak mě to přepne o jednu buňku vlevo.
Docela mě ale irituje bug v Excelu, kde když se přepnu do nové buňky a napíšu obě závorky "()" a následně chci do nich něco napsat (= zmáčknu levou šipku), tak mě to přepne o jednu buňku vlevo.
Re: VBA import a kopirování buněk do zformátované tabulky
Copak, spuštění mám bleskové, ale když natáhnu onen dokument, tak je pohyb v něm líný a dokonce na chvíli mrzne, to přitom bylo na 2003 bezproblémové a rychlé, se starým PC (z roku 2004), ale všiml jsem si kdysi u známého, co měl novější verzi (2007?), že to bylo také pomalejší.
Re: VBA import a kopirování buněk do zformátované tabulky
Chlapi proč si nezaložíte své téma "Mám problém s excelem 1016"
Opravdu nevím jak to souvisí s mou prozbou!!?
Opravdu nevím jak to souvisí s mou prozbou!!?
Re: VBA import a kopirování buněk do zformátované tabulky
To považuji za nesmyslné řešení. Vkládat sloupec do buňky je zhovadilost. A používat sloučené buňky je také nesmyslné a hlavně nepotřebné. Jen to přináší problémy. To jsou také zřejmě důvody, proč se Ti nedaří sestavit VBA. Zbytečně si to komplikuješ.
Stejně jako MePExG jsem však nepochopil, jaký má být výstup.
Stejně jako MePExG jsem však nepochopil, jaký má být výstup.
Re: VBA import a kopirování buněk do zformátované tabulky
Zkusím to tedy vysvětlit podrobněji a s novou přílohou:
Vstupem bude jeden soubor s informacemi o zakázkách které se budou vyrábět (číslo, datum začátku, datum konce, množství) a jeden řádek bude jedna zakázka. Vstupní informace jsou na listu vstup a tyto informace jsem chtěl dostat do buněk v níže přiloženém sešitu, komplikace je v tom, že každá zakázka má několik operací (příprava dat, ofsetový tisk, sítotisk) a každá ta operace má zase své, např ofsetový tisk se skládá např ze 4 barev C M Y K + Pantone barva, sítotisk také může mít několik barev. Dále zakázka má přední stranu a zadní stranu každá ze stran má jiný počet operací (tisků).
A na základě čísla zakázky na listu plan se mi importuje náhled k dané zakázce a naimportují další informace z jiných sešitů ve kterých jsou informace k dané zakázce (ty o tom kolik bude offsetového tisku, sítotisku, čas atd).
Vlastně lze říci, že ta soustava buněk je jedna zakázka a zakázek bude několik (dle řádku na listu vstup), proto jsou tam ty sloučené buňky.
Jakmile budu mít všechny tyto informace naimportovány v listu plan roztřídí se na listy CTP, Ofset, Síto, dle jednotlivých operací a tím vznikne jeden celkový plán a plány pro jmenované operace.
Vstupem bude jeden soubor s informacemi o zakázkách které se budou vyrábět (číslo, datum začátku, datum konce, množství) a jeden řádek bude jedna zakázka. Vstupní informace jsou na listu vstup a tyto informace jsem chtěl dostat do buněk v níže přiloženém sešitu, komplikace je v tom, že každá zakázka má několik operací (příprava dat, ofsetový tisk, sítotisk) a každá ta operace má zase své, např ofsetový tisk se skládá např ze 4 barev C M Y K + Pantone barva, sítotisk také může mít několik barev. Dále zakázka má přední stranu a zadní stranu každá ze stran má jiný počet operací (tisků).
A na základě čísla zakázky na listu plan se mi importuje náhled k dané zakázce a naimportují další informace z jiných sešitů ve kterých jsou informace k dané zakázce (ty o tom kolik bude offsetového tisku, sítotisku, čas atd).
Vlastně lze říci, že ta soustava buněk je jedna zakázka a zakázek bude několik (dle řádku na listu vstup), proto jsou tam ty sloučené buňky.
Jakmile budu mít všechny tyto informace naimportovány v listu plan roztřídí se na listy CTP, Ofset, Síto, dle jednotlivých operací a tím vznikne jeden celkový plán a plány pro jmenované operace.
- Přílohy
-
- plan.xlsm
- (178.52 KiB) Staženo 49 x
Re: VBA import a kopirování buněk do zformátované tabulky
Hezká slohová práce. Tak jsem se dozvěděli důvody, ale zadání (co konkrétně máme řešit) v příspěvku opět chybí:
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 18
- 3521
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 9
- 2080
-
od MK_Vs
Zobrazit poslední příspěvek
02 lis 2023 09:26
-
- 0
- 1702
-
od FIDLIK
Zobrazit poslední příspěvek
20 říj 2023 21:16
-
- 2
- 1037
-
od Myerina
Zobrazit poslední příspěvek
30 led 2024 08:44
-
- 0
- 38
-
od Funstorm007
Zobrazit poslední příspěvek
dnes, 21:01
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů