Re: MAKRO do excelu

a k tomu zositu skus Workbooks("nazov zositu").Worksheets("test").Cells.Find(B4)


On 4/26/05, AleX <faklabrejle@gmail.com> wrote:
> 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/ --
> >
> >
> 
> --
> AleX
> 


-- 
AleX