< návrat zpět

MS Excel


Téma: Vyhledání a doplnění textu ve dvou souborech rss

Zaslal/a 26.6.2013 8:46

Zdravím
potřeboval bych vyřešit univerzální problém s vyhledáním textu v jednom souboru a doplnění do druhého.
Jako přiklad jsem si z netu stáhl tabulku z nějakými názvy instituci (berte to tedy jako příklad-nikoliv jako pravdivou informaci).
Jde mi o to - v souboru profes_org.xls prohledat sloupec, na kterem bude kurzor (v tomto případě A), a porovnat nalezený text se sloupcem A souboru zkratky.xls. Pokud bude nalezený text přesně souhlasit (neberou se v potaz malá/VELKÁ písmena) pak se do sloupce D doplní zkratka ze sloupce B (zkratky.xls).
Cesta k souborům aby byla v makru editovatelná (proměnná).
Díky 1

Příloha: zip14127_zkratka.zip (12kB, staženo 22x)
Zaslat odpověď >

Strana:  « předchozí  1 2 3   další »
icon #014144
eLCHa
Nevadí
Když(je.chybhodn(VZOREC);"nenalezeno";VZOREC)

VZOREC je to, co je za IFERROR - mělo by fungovat, vyzkoušet ale nemůžucitovat
#014145
avatar
prerobene aby to slo z profes_org.xls

treba si tam potom prepisat cestu k skratkam.xls
Příloha: zip14145_test.zip (28kB, staženo 18x)
citovat
#014147
avatar
příkazem
Set oWB = Application.Workbooks.Open("xxx\zkratky.xls") se otevře soubor zkratky.xls a stane se aktivní
další příkazy
For x = ActiveCell.CurrentRegion......
se provádějí v tomto souboru (čili se neprovede nic) a nikoliv v souboru profes_org.xls.
Jde otevřít soubor "na pozadí" (aby se vůbec uživateli nezobrazoval)?

Když už to budete upravovat, požádám rovnou o upravu aby se daný náze rovnou přepsal zkratkou (pokud nebude nalezena zkratka-neprovede se nic).citovat
#014149
avatar
Díky za rozpitvání makra - pochopeno
Používám Excel 2003.

nieje vidiet ze sa otvara
jak říkám, je vidět a stává se aktivní

probíhá to stejně při krokování makra i při přímem spuštění...

Ještě jednou požádám
Když už to budete upravovat, požádám rovnou o upravu aby se daný náze rovnou přepsal zkratkou (pokud nebude nalezena zkratka-neprovede se nic).
citovat
#014150
avatar
dnes sa dari :( ... ospravedlnujem sa zas ste mali pravdu

dufam ze do tretice to uz bude dobre
Příloha: zip14150_test.zip (28kB, staženo 18x)
citovat
#014151
avatar
dnes končím, podívam se zítra. zatím děkuji.citovat
#014168
avatar
7 řádek app.Visible = False
způsobí chybu 424-Object required

Pokud oremuju tento řádek, krokuju makro, ručně "zminimalizuji" okno se zkratkami a pak dál pustím makro - udělá co má :-)
Upravil jsem
ActiveSheet.Cells(x, 1) = oWB.Sheets(1).Cells(y, 2)
na
ActiveSheet.Cells(x, ActiveCell.Column) = oWB.Sheets(1).Cells(y, 2)
Teď jen nahradit tu "ruční část" 1citovat
#014173
avatar
tak ADODB riesenie ... podla mna jedno z najrychlejsich a na filtrovanie najlepsie (pre labuznikou SQL-ka je idealne) ... samozrejme k tomuto rieseniu sa az tak nehodi .. preto som radsej chcel otvarat cez Open alebo add

... jedine v com je este hacik ze okrem cesty k suboru sa bude musiet zadavat aj range tabulky
Příloha: zip14173_test.zip (24kB, staženo 18x)
citovat
#014174
avatar
btw. netusim preco vam nefunguje to visible, keby fungovalo tak to makro prejde bezproblemov

edit. uz som si to vygooglil Office 2003 a nihsie nemalo moznost zneviditelnenia dokumentu

http://msdn.microsoft.com/en-us/library/office/aa215950(v=office.11).aspxcitovat
#014175
avatar
Bohužel nemám možnost (práva) instalovat doplňky a řádek
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;...." hází chybu
3706 - Zprostředkovatel nebyl nalezen.

Pokud nejde "zneviditelnit" jedna tabulka nedalo by se to pořešit příkazem na "zviditelnění" té druhé profes_org.xls ?
Nějak načíst název otevřeného dokumentu (bude mít různé názvy) do proměnné a pak ji použít?citovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse