RE: MAKRO do excelu

Ten druhy mi nefunguje...urobim vyber (ci uz buniek s nazvami alebo
vedlajsich),ale nic sa nedeje...ale nemusis s tym stracat cas, poradil som
si aj s povodnym makrom, takze diki.

> -----Original Message-----
> From: AleX [mailto:faklabrejle@gmail.com]
> Sent: Tuesday, April 26, 2005 11:06 AM
> Cc: servis-internet@nawebu.cz
> Subject: Re: MAKRO do excelu
> 
> Nastastie mam medzi sebou a looserom teda userom este jednu vrstvu
> funkcneho teamu ktori sa snazia pretavit blaboli usera na nieco co sa
> da napisat ale viem presne o com hovoris nie vzdy dostanem to co
> potrebujem.
> aspon sa moze clovek sem tam porozculovat a zdvihnut si trochu hladinu
> adrenalinu
> ale to uz asi nepatri sem skor do polemiky
> btw: funguje ta druha moznost?
> 
> On 4/26/05, Kristian Angyal <kristian@rebus.sk> wrote:
> > No..zly ako zly :-)...ak programujes pravidelne, myslim ze sa s tymto
> > problemom potykas dennodenne...funkcny popis v hlave zadavatela
> jednoducho
> > nemoze byt myslienkovym ekvivalentom programatorskeho riesenia problemu,
> > kedze programatorske riesenie pouziva ine logicke postupy, metody a
> > riesenia, a pracuje na inej urovni abstrakcie.
> > Je to ako kvantova fyzika vs. Newtonova. Jedno aj druhe je vlastne to
> iste v
> > istom zmysle ale aj tak nesumeratelne da sa povedat.
> > Mne tiez zakaznici niekedy narozpravaju take fantazmagorie ze co vsetko
> > nefunguje a funguje, ked doma diagnostikuju nejaku zavadu, ze neviem ci
> sa
> > mam smiat alebo plakat. Zaludne a vhodne polozenymi otazkami aj tak z
> nich
> > vypacim, co je presne za problem.
> > Vcera mi jedna baba z firmy ktora 100% zavisi na informaciach a kde je
> 25
> > peciek s troma servermi povedala ze vobec nefunguje siet..co moze byt
> horsie
> > zee..no vyklula sa z toho prepnuta tlaciaren do rezimu offline na jej
> stroji
> > :-) Uz som voci takymto red-alertom imunny.
> >
> >
> > > -----Original Message-----
> > > From: AleX [mailto:faklabrejle@gmail.com]
> > > Sent: Tuesday, April 26, 2005 10:34 AM
> > > To: servis-internet@nawebu.cz
> > > Subject: 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
> > >
> > >
> > > ===================================================== 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/ --