Re: MAKRO do excelu

Dasa to spravit aj trosku inaksie nevedel som ze tam budu medzery....
(zly funkcy design :-(  )
oznac vsetky bunky ktore chces vyhladavat 
proste chytis myskou prvu a posun az na poslednu ktoru chces vyhladavat...
---------cut------------
Sub hledej_smudlo()
For Each mycell In Selection
If mycell.value <> "" Then
mykey = mycell.value
myRow = mycell.row
myCol = mycell.column
'vyhladaj v harku "X" (dopln meno harku) hodnotu myKey
Set foundcell = Workbooks("nazov zositu").Worksheets("test").Cells.Find(myKey)
If foundcell Is Nothing Then
cells(myRow,myCol+1).value = "not found"
else
cells(myRow,myCol+1).value = foundcell.value
end if
end if
next
end sub
---------------end cut --------------------------


On 4/26/05, Kristian Angyal <kristian@rebus.sk> wrote:
> Super, funguje to..trosku ma limituje to
> 1) ze vo svojom zosite A nesmiem mat medzeru medz jednotlivymi riadkami
> pretoze makro zastane.
> 2) ten zdrojovy sheet, ked bude v inom zosite alebo v inom subore, sa da
> tiez nacitavat?
> 
> Ale aj tak D.A.K.U.J.E.M  za pomoc. :-)
> 
> 
> > -----Original Message-----
> > From: AleX [mailto:faklabrejle@gmail.com]
> > Sent: Tuesday, April 26, 2005 9:43 AM
> > To: servis-internet@nawebu.cz
> > Subject: Re: MAKRO do excelu
> >
> > 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
> >
> >
> > ===================================================== 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