< návrat zpět

MS Excel

Téma: Přidání dalších sloupců rss

Zaslal/a Black_PR 24.6.2014 14:01

Uměl by někdo zkušenější upravit kód tak, aby se kopíroval za hypertextový odkaz celý řádek ?

Vyhledávací makro se vyvolá klávesovou zkratkou
Ctrl+Shift+F

Nalezené hodnoty se vypíšou na list "Výsledek".

Děkuji za rady.

Příloha: zip20088_vyhledatpolozku.zip (51kB, staženo 16x)
Zaslat odpověď >
Palooo(24.6.2014 14:40)#020089
avatar
Kedze mate podla mna dost dobre skusenosti s programovanim tak to napisem len kodovo a zbytok si hadam dotvorite podla vlasnej predstavy

doplnit:sub Najdi()
...
Do
...
ZapsatDo.Offset(i, 4).Value = c.Offset(0, 1)
ZapsatDo.Offset(i, 5).Value = c.Offset(0, 2)
ZapsatDo.Offset(i, 6).Value = c.Offset(0, 3)
...
Loop While Not c Is Nothing And c.Address <> firstAddresscitovat
Black_PR(24.6.2014 15:03)#020092
avatar
Bohužel nejsem autorem tohoto makra. Pouze jsem ho upravil v pár drobnostech, ale toto se mi nedaří.
Jestli můžu požádat, tak to odzkoušejte přímo v přiloženém souboru. Mě to po doplnění nevypisuje. 7citovat
Palooo(24.6.2014 15:15)#020093
avatar
tu som to napisal trochu presnejsie:
Příloha: zip20093_vyhledatpoloku.zip (49kB, staženo 16x)
citovat
Black_PR(24.6.2014 15:19)#020095
avatar
Nevím jak vám, ale mě to nejede ani z vaší úpravy.citovat
Palooo(24.6.2014 15:20)#020096
avatar
a co vam to vypisuje?citovat
Black_PR(24.6.2014 15:24)#020097
avatar
Chová se to stejně jako před úpravou. Je tam zase jen sloupec A a B. V sloupci A je hypertextový odkaz a v B je kompletní obsah nalezené buňky.citovat
Palooo(24.6.2014 15:27)#020098
avatar
a pustate tu novu verziu??

lebo v novej verzii je dopisane:
For x = 1 To 11
ZapsatDo.Offset(i, x + 1).Value = .Cells(c.Row, x)
Next

sam musite uznat ze tam musi byt zapisanych dalsich 11 hodnotcitovat
Black_PR(24.6.2014 15:31)#020099
avatar
Chyba na mé straně. Omlouvám se a děkuji za pomoc.citovat

Uživatelské menu

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

Menu

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.

On-line nástroje