Pomoc s makrem Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

cemmotar
nováček
Příspěvky: 7
Registrován: listopad 17
Pohlaví: Muž

Pomoc s makrem  Vyřešeno

Příspěvekod cemmotar » 18 kvě 2018 14:24

Ahoj, prosím o pomoc s vytvořením makra. Jsem v tomto začátečník a nějak se mi to nedaří dát dohromady. Popis: v souboru "návrh" kliknu na tlačítko "zapiš" a provede se následující - v souboru s názvem v C4 se vezmou hodnody ze sloupců B a C a zapíší se do souboru "DWG_seznam". Do tohoto souboru se následně do sloupce E dopíše hodnota ze souboru "gen.XLSX" - dle pořadového čísla se dohledá číslo interní.
Přikládám v příloze vzorové soubory. Doufám, že jsem to popsal srozumitelně. Doted jsem to měl napsané z části funkcemi, ale v množství souborů které mě čekají bych to chtěl vyřešit makrem.

Díky za reakce
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 189
Registrován: červen 13
Pohlaví: Muž

Re: Pomoc s makrem

Příspěvekod elninoslov » 20 kvě 2018 10:06

Venujem Vášmu problému oveľa viac času pri analýze, ako Vy sám, ale iba raz :

- Návrh a C4 ? Myslíte B4, lebo KUS je tam. V B4 bude výberový zoznam z možných súborov v nejakej zložke ? Aktualizovaný napr. pri aktivácii listu? Alebo máte vlastnú tabuľku s možnými hodnotami?
-V KUS treba skontrolovať, koľko je vyplnených riadkov v A15:A466 (Prečo 466? Prečo nie 500?), a iba tie vyplnené A a B skopírovať? Medzery medzi nimi byť nemôžu?
-Na vyhľadanie v súbore gen.XLSX sa dá použiť VLOOKUP/SVYHLEDAT ? Teda má súbor stále rovnakú štruktúru a veľkosť prehľadávaného rozsahu? To aby sa ten súbor nemusel tiež otvárať.
-O aké množstvo súborov sa jedná? A o ktorom druhe hovoríte, ktorých je veľa ? Tých, ktorých názvy sa zapisujú do B4? Tých, ktoré sú ako Návrh ? Alebo také ako DWG_Seznam?
-V zošite DWG_Seznam sa majú dáta prepisovať (staré zmazať), alebo pripisovať na prvý voľný riadok ? Číslovanie v A je pevne dané 1-24 ? Treba ho postupne dopĺňať, alebo prestať v prípade možného prekročenia ? Či vložiť odsek novej strany ?
...

Uživatelský avatar
Grimm
Level 1
Level 1
Příspěvky: 66
Registrován: září 17
Pohlaví: Muž

Re: Pomoc s makrem

Příspěvekod Grimm » 20 kvě 2018 14:43

Když už sem se s tím drbal, přikládám svůj pokus o řešení. Postupoval sem podle zadní tazatele, Neřešil sem rozpory co se týče buňky pro jméno souboru (C4 vs B4). Hodnoty v souboru "Kus" podle kterých se má hledat v souboru "Gen" nejsou obsaženy, v souboru "Gen" pracuji s druhým listem (protože poslední sloupec obsahuje "správné" záhlaví = číslo interní).
Všechny soubory musí být ve společné složce odkud se tahá cesta k souborům (ThisWorkbook.Path).
Snad se mi podařilo podchytit i případné chybové stavy, ale jelikož tazatel byl na informace skoupí nemusí to být stoprocentní.

Věřím, že elninoslov přijde s lepším (elegantnějším) řešením.
V tom případě to berte jako vzor jak se to nemá dělat. :lol:
Nemáte oprávnění prohlížet přiložené soubory.

cemmotar
nováček
Příspěvky: 7
Registrován: listopad 17
Pohlaví: Muž

Re: Pomoc s makrem

Příspěvekod cemmotar » 21 kvě 2018 10:07

Ahoj, oběma díky za reakci. Celý problém je více komlikované a tak jsem se to snažil zjednodušit a teď dle vaší reakce se dívám, že jsem to zjednodušil asi až moc. Od Grima to funguje skvěle, tak jak jsem v příspěvku popsal. Pokud jde o příspěvek od "elninoslov" - nenapadlo mě že se tím bude někdo zabývat až tak do hloubky. Takže to popíší více: v souboru Návrh měly být uvedeny původně cesty k souborům. Ted když nad tím přemýšlím tak úplně nejjednodušší by bylo, aby při zmáčknutí tlačítka Zapiš se objevilo zadávací okno, kde bych soubor KUS XXX našel - soubory s názvem KUS bude ve výsledku tisíce, ostatní soubory mají pevnou složku. U souborů KUS XXX jsem si uvědomil tvojí poznámku - ano, mezery můžou být (viz. KUS 2). Ohledně vyplněných řádků-466 je náhodné číslo, v každém KUS XXX souboru to může bít jiné - záleží na vyplněných řádcích. Dá se říci, že více než 500 řádků nikdy nebude vyplněno.
K soboru gen - sloupce se měnit nebudou, budou přibývat řádky a listy
V sešitě DWG_Seznam by se data měly zapisovat na další volný řádek. Pořadí se bude doplňovat. Mám soubor, který má 2735 řádků.
Doufám, že jsem to popsal lépe. Je to dost komplikované. Kdyžtak doplním, pokud bude potřeba. Děkuji
Nemáte oprávnění prohlížet přiložené soubory.

Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 189
Registrován: červen 13
Pohlaví: Muž

Re: Pomoc s makrem

Příspěvekod elninoslov » 22 kvě 2018 17:35

Kolegov príklad som ešte nevidel, no jeden dám aj ja. Vidieť, že ak sa človek snaží odchytať všetky možné stavy, ktoré by mohli v makre viesť k chybe, tak kód poriadne nabobtná, až je nakoniec neprehľadný. Pokúšal som sa urobiť to vkladaním predpripravených vzorcov a následný prevod na hodnoty, aby sa nemusel súbor otvárať, kvôli rýchlosti. Prišiel som ale na jednu situáciu, ktorá sa nedá ošetriť. Ak dáta v KUS súbore majú v Poradovom čísle ten identifikátor listu v gen.xlsx taký, aký list tam nieje, tak Excel vyhodí tabuľku, kde treba vybrať hociaký iný list, to je fuk, lebo aj tak nebude hodnota nájdená, a teda sa vloží prázdna bunka (jedine že by aj na liste "A1" začínali kódy napr. "A2", pričom iné "A2" kódy by boli na liste "A2", v tom prípade je to celé zle). Rovnako predpokladám identický zápis kódov, teda ľavé 2 písmenká identifikujú list. V KUS4 som zmenil jedno na A6 na skúšku.

DWG sa otvárať samozrejme musí, v prípade že nieje otvorený. To trvá najdlhšie, inak je rýchlosť OK.

Pridal som ešte featurku na vyhľadávanie, ak ich budú tisíce, tak rozbaľovacom zozname to bude o nervy.

Je tam výber umiestnenia, nejaké kontroly, správy užívateľovy, vytváranie zoznamu súborov, automatické dopĺňanie čísel, orámovanie cez PF a pod.

Skúste...

Ak je makro na Vás zložité, skúste kontaktovať užívateľa MePExG, je macher na PowerQuery, snáď by Vám vedel pomôcť dolovať tie dáta zo súborov pomocou PQ.
Nemáte oprávnění prohlížet přiložené soubory.

cemmotar
nováček
Příspěvky: 7
Registrován: listopad 17
Pohlaví: Muž

Re: Pomoc s makrem

Příspěvekod cemmotar » 25 kvě 2018 12:44

Moc děkuji, makro funguje skvěle. Ještě ho budu testovat na velkém balíku souborů. Uvidím jetli nenarazím na něco co bych měnil. Ještě jednou díky oběma


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Pomoc
    od Jirka228 » 06 bře 2019 17:46 » v Vše ostatní (inet)
    1
    415
    od ITCrowd
    06 bře 2019 19:42
  • Pomoc
    od Faffejt » 11 dub 2019 14:20 » v Programování a tvorba webu
    2
    356
    od Faffejt
    11 dub 2019 15:05
  • Pomoc
    od Fabregas7 » 17 lis 2018 22:28 » v Design a grafické editory
    7
    1763
    od faraon
    18 lis 2018 07:39
  • prosím o pomoc
    od desirek » 08 zář 2018 12:10 » v Windows 10, 8, 7, Vista, XP…
    10
    824
    od desirek
    15 zář 2018 16:58
  • pomoc s propojením
    od Maximus20 » 27 čer 2018 23:10 » v Rady s výběrem hardwaru a sestavením PC
    5
    383
    od ITCrowd
    28 čer 2018 10:31

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 4 hosti