Re: MAKRO do excelu

From: Kamil <sverak (zavinac)>
Date: 25. 04. 2005, 15:21 CEST
To je zadání jak...

> Vyhlada v harku2 nejaky konkretny string znakov v nejakej bunke,

harku2 je co? Soubor
Windows("harku2").Activate
nebo název listu.
Sheets("harku2").Activate
Cells.Find("konkretny string").Activate


> dajme tomu to najde na B15, posunie sa potom o zopar
> buniek doprava na B18 nacita ciselnu hodnotu

Proč se má posunout doprava?
Není problém - ActiveWindow.ScrollColumn = 2
ale asi myslíš že o pár buněk napravo je ta hodnota,
i když podle B18 je to spíš o pár řádek níž..

No aktuální pozici zistíš třeba takto:
sloupec = ActiveCell.Column
radek = ActiveCell.Row

No a pak
hodnota = Cells(radek+3, sloupec)
nebo
hodnota = Cells(radek, sloupec + 3)

> a tuto zapise do harku1 niekam.

harku1 je co? Sešit?
Sheets("harku1").Activate
Cells(1,1) = hodnota

Hele koukám, že Milan to pochopil uplně jinak.. Neva už to
nemažu, když jsem se tak zapotil. Zkus lépe napsat zadání..

-- 
cao,
 Kamil 
Received on Mon, 25 Apr 2005 15:21:23 +0200

This archive was generated by hypermail 2.1.8 : 25. 04. 2005, 15:20 CEST