To je tenhle:citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: makro, vyhledání určité hodnoty v jinem excelu
MS Excel
Téma: makro, vyhledání určité hodnoty v jinem excelu 
Zaslal/a 21.7.2015 16:09
Dobrý den. Potřeboval bych poradit. Potřebuji poradit.
Problem.
Potřebuji vyhledat v adresáři excelovský soubor který ve sloupci C5:C19 obsahuje číslo/ hodnotu z A1 v aktuálním otevřeném excelu a poté zapíše z toho souboru ve kterém najde shodu hodnotu z buňky F2 v tom adresáři ve kterém našel shodu . Zřejmě to bude potřeba rozdělit na dvě funce první najít jméno souboru ve kterém je obsaženo číslo , a druhá z daného souboru vypsat hodnotu buňky f2.
Děkuji za odpověď.
26076_capture_4.jpg
Když se zaměřím na první kolonku na d3 kde je 6145709. tak v adresáři F:\CrossOrg\MC_development\BOM-zaloha\3D_modely_2015 mám přiložený soubor, kde se tahle konstrukce nalézá tady je na pozici c5. Ale nahlásí to danou chybu. Zkoušel jsem přemýstit soubor třeba sem F:\CrossOrg\MC_development\3D-Katalog\Construction , ale chyba zůstala stejná.
Příloha: 
26077_6143209_rac3d16_city_policeman_v1.zip (45kB, staženo 18x)
citovat26077_6143209_rac3d16_city_policeman_v1.zip (45kB, staženo 18x)Zmenťe riadok
.Cells(3, 1).Resize(1, UBound(F2)).Value = F2
na
.Cells(3, 1).Resize(1, UBound(F2)).Formula = F2
Pred týmto riadkom urobte BreakPoint, spustite makro, zastaví pred týmto riadkom, kliknite pklik na "F2" v kóde a dajte "Add Watch", dole v okne "Watches" rozplusknite to F2, upravte šírky stĺpcov tak aby boli vydieť celé hodnoty "Value", z tohto pošlite ScreenShot. Potom stlačte F8, vykoná sa krok. Uvidíme či to prejde.
Inak neodpovedali ste skoro na nič. Máte v tej zložke aj iné súbory ako tie z ktorých sa majú vyberať v tomto makre dáta ?
A ďalšia veľmi dôležitá vec, súbor ktorý ste poslal predtým, má v hľadanej oblasti riadky 4:18, a v tomto poslednom súbore máte 4:20. To je veľký problém. Súbory musia byť rovnako koncipované. Neviem, ako by sme jednoducho zisťovali, ktorý súbor má tu oblasť ako veľkú.citovat
.Cells(3, 1).Resize(1, UBound(F2)).Value = F2
na
.Cells(3, 1).Resize(1, UBound(F2)).Formula = F2
Pred týmto riadkom urobte BreakPoint, spustite makro, zastaví pred týmto riadkom, kliknite pklik na "F2" v kóde a dajte "Add Watch", dole v okne "Watches" rozplusknite to F2, upravte šírky stĺpcov tak aby boli vydieť celé hodnoty "Value", z tohto pošlite ScreenShot. Potom stlačte F8, vykoná sa krok. Uvidíme či to prejde.
Inak neodpovedali ste skoro na nič. Máte v tej zložke aj iné súbory ako tie z ktorých sa majú vyberať v tomto makre dáta ?
A ďalšia veľmi dôležitá vec, súbor ktorý ste poslal predtým, má v hľadanej oblasti riadky 4:18, a v tomto poslednom súbore máte 4:20. To je veľký problém. Súbory musia byť rovnako koncipované. Neviem, ako by sme jednoducho zisťovali, ktorý súbor má tu oblasť ako veľkú.citovat
Změnil jsem printscreen je v příloze. Hodnota konstrukce se ještě nikdy neobjevovala v posledních řádcích většinou je pouze v prvních třech. V adresáři jsou pouze tyto typy souborů. Po té jsem dal zase F8 a skočila zase chyba.citovat
tady to je je to moc velke nepodařilo se mi to na poprvé vložitcitovat
pak dám F8 acitovat
Soubor který hledám v prvním řádku najde je v seznamu: RAC3D16_City_Policeman.citovat
Urobte si pokusný adresár, kde budete mať iba 1 súbor a 1 jeho kópiu premenovanú (to aby sme eliminovali rozdielnosť). Zabezpečte, aby v oboch bolo hľadané číslo, a aby oba mali inú hodnotu v F2. Nastavte cestu k tomuto pokusnému adresáru v makre, a spustite. Opäť chyba ?
Ak áno makro opäť zastavte, tak ako predtým, pred tým riadkom, a vo Watches po rozkliknutí 2 x kliknite (nie dvojklik, ale 2 kliky po sebe) na niektorú hodnotu z poľa F2, a stlačte Ctrl+C. V tom liste potom do niektorej bunky na skúšku dajte v Editore vzorcov Ctrl+V a vymažte " na začiatku a na konci. Načíta to hodnotu zo súboru, alebo dá chybu ?
Nemáte náhodou otvorené aj iné Excel dokumenty počas toho makra ? Ak áno tak ešte pridajte do kódu pred všetky (3) "Worksheets(XYZ)..." toto "ThisWorkbook."
Ďalej ten inkriminovaný riadok presuňte pred predošlý so zápisom Súborov.
Ak sa nepodarí, skúste pravú stranu toho riadka obaliť 2x v Application.Transpose().
Nemáte náhodou obmedzený prístup k tým súborom ?
Ešte ma napadá, či nemáte Excel v režime R1C1.
To je všetko čo ma napadá. Snáď pomôže niekto skúsenejší...citovat
Ak áno makro opäť zastavte, tak ako predtým, pred tým riadkom, a vo Watches po rozkliknutí 2 x kliknite (nie dvojklik, ale 2 kliky po sebe) na niektorú hodnotu z poľa F2, a stlačte Ctrl+C. V tom liste potom do niektorej bunky na skúšku dajte v Editore vzorcov Ctrl+V a vymažte " na začiatku a na konci. Načíta to hodnotu zo súboru, alebo dá chybu ?
Nemáte náhodou otvorené aj iné Excel dokumenty počas toho makra ? Ak áno tak ešte pridajte do kódu pred všetky (3) "Worksheets(XYZ)..." toto "ThisWorkbook."
Ďalej ten inkriminovaný riadok presuňte pred predošlý so zápisom Súborov.
Ak sa nepodarí, skúste pravú stranu toho riadka obaliť 2x v Application.Transpose().
Nemáte náhodou obmedzený prístup k tým súborom ?
Ešte ma napadá, či nemáte Excel v režime R1C1.
To je všetko čo ma napadá. Snáď pomôže niekto skúsenejší...citovat
Když jsem to zkopíroval na C: tak to funguje. Takže asi nebude moci vytvořit ten temp. je to možné ? Protože umístění F: je síťový disk pro všechny. zkusil jsem přepsat umístění na celou cestu \\czare1\Files\CrossOrg\MC_development\BOM-zaloha\3D_modely_2015\ , ale to nahlásilo zase stejnou chybu.citovat
U mňa to funguje aj na sieti. Akurát je to podstatne pomalšie. Takže sa tu trápim(e) zbytočne. Problém je v obmedzeniach prístupu na sieťové úložisko. S tým Vám neporadím.
Týmto teda spoločne s Barnie prosím niekoho s väčšími sieťovými skúsenosťami o pomoc.citovat
Týmto teda spoločne s Barnie prosím niekoho s väčšími sieťovými skúsenosťami o pomoc.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\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