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, KamilReceived on Mon, 25 Apr 2005 15:21:23 +0200
This archive was generated by hypermail 2.1.8 : 25. 04. 2005, 15:20 CEST