1. nastavil si sa na bunku b4 kym si to spustil? 2. premenna pocet_riadkov_posunu je chybne nazvana ale asi si spravne pochopil ze su to stlpce. 3. nerozumiem preco si prepisal premennu myKey na B4? ak chces hladat hodnotu(value) ktora sa nachadza v bunke B4 musis sa nastavit na bunku c4 . makro si nacita hodnotu z bunky B4 a hlada ju v sheete test .... skus to teraz On 4/26/05, Kristian Angyal <kristian@rebus.sk> wrote: > Tuto je trochu zbastlena verzia, ale nejako mi to nefunguje,nic to neurobi. > Co mam zle? > Da sa namiesto listu-harku uviest aj zosit? Ako pri nom potom uvediem > adresarovu cestu? A samozrejme list-harok v ramci toho zositu? > Dik za pomoc zatial... > > ------------------------------------------------------ > Sub hledej_smudlo() > 'rob dovdety kym nebude vedla teba nalavo prazdna bunka > Do Until ActiveCell.Offset(0, -1) = "" > ' co ideme hladat .... > B4 = ActiveCell.Offset(0, -1) > 'vyhladaj v harku "X" (dopln meno harku) hodnotu myKey > Set foundcell = Worksheets("test").Cells.Find(B4) > If foundcell Is Nothing Then > ' nic sme nenasli :-( > ActiveCell = "not found" > Else > pocet_riadkov_posunu = 2 ' tu zadas o kolko riadkov sa ma posunut > ActiveCell = foundcell.Offset(0, pocet_riadkov_posunu) > End If > 'posun sa riadok nizsie a hladaj odznova > ActiveCell.Offset(1, 0).Select > Loop > End Sub > ------------------------------------------------------ > > > ===================================================== reklama ===== > Firemni bankovnictvi > Kdo vam pujci, kdo povede nejlevneji ucet? > http://firmy.mesec.cz/ > =================================================================== > > -- > -- Konference: SERVIS ------ Pravidla: http://pravidla.kab.cz/ -- > -- Archiv, instrukce pro odhlaseni: http://internet.nawebu.cz/ -- > -- Konference Internet Info, s.r.o. ----- http://www.iinfo.cz/ -- > > -- AleXReceived on Tue, 26 Apr 2005 09:42:57 +0200
This archive was generated by hypermail 2.1.8 : 26. 04. 2005, 09:43 CEST