MS Excel

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.

Zaslat odpověď >

Palooo(24.6.2014 14:40)#020089

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

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.

citovat

Palooo(24.6.2014 15:15)#020093

tu som to napisal trochu presnejsie:

Příloha: zip

20093_vyhledatpoloku.zip (49kB, staženo 16x)

citovat

Black_PR(24.6.2014 15:19)#020095

Nevím jak vám, ale mě to nejede ani z vaší úpravy.citovat

Palooo(24.6.2014 15:20)#020096

a co vam to vypisuje?citovat

Black_PR(24.6.2014 15:24)#020097

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

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

Chyba na mé straně. Omlouvám se a děkuji za pomoc.citovat

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje