Na, is esmes tai sita funkcija dar neranda nieko :) Ji tik suskaiciuoja, kiek yra pasikartojanciu reiksmiu celese 'kur'.
Zemiau salygos 'if C>1 then'  reiktu ikelti cikla, kuris ieskotu reiksmes 'ko' celese 'kur', bet pradedant paieska
nuo sekancios eilutes nei rodo kintamasis 'n'. Su kokia nors For ar Loop ciklo funkcija. Ir rastasias reiksmes vis prisumuoti prie 
kokio nors laikino string tipo kintamojo, kuri ciklui pasibaigus jau perduoti i funkcijos grazinama reiksme Paieska.
Zodziu programint cia reikia.

On Tue, 8 Sep 2015 15:06:02 +0300, "BURRIS" <burris@gmail.com> wrote:

>dabar man raso rasta ir skaiciu, o kaip man padaryti kad tuos rastus 
>atkeltu?
>
>
>
>
>
>"rimux"  wrote in message news:i9rsual8c3gtv9r2pglv8bh8duc09c3do4@4ax.com...
>
>Galvoju, kad paprasciausias sprendimas butu vba funkcija pasirasyti, bet su 
>vba fuunkcijomis toks trukumas yra, kad jos zymiai ilgiau skaiciuoja nei
>standartines funkcijos. Zemiau imetu funkcijele kuri daro lygiai ta pati ka 
>ir INDEX/MATCH funkciju kombinacija:
>
>Public Function Paieska(ko, kur, rez_stulp)
>  'ieskom ko reindze kur, ir jei randam grazinam reiksme is stulpelio 
>rez_stulp
>  'jeigu rasta daugiau nei 1, grazinam kiek yra vienodu reiksmiu
>
>  On Error GoTo klaida
>
>  n = Application.WorksheetFunction.Match(ko, kur, 0)
>
>  C = Application.WorksheetFunction.CountIf(kur, ko)
>
>  If C > 1 Then
>    Paieska = "rasta " + str(C)
>  Else
>    Paieska = Application.WorksheetFunction.Index(rez_stulp, n)
>  End If
>
>  Exit Function
>
>klaida:
>  Paieska = "-"
>End Function
>
>Tada reiktu i C2 cele irasyti:
>=Paieska(B2;'kodai barkodai'!$A:$A;'kodai barkodai'!$B:$B)
>
>
>Issibandyk sita funkcija ant savo duomenu, ir jeigu jos veikimo greitis 
>tenkina, tada ja galima pamodifikuoti kad ji generuotu atsakyma toki kokio
>reikia.
>Dar vienas patarimas - naudojant tokia ir panasias ilgai veikiancia 
>sfunkcija,s galima Excelio opcijose isjungti automatini formuliu 
>perskaiciavima,
>ir formuliu skaiciavima daryti rankiniu budu su F9.
>
>
>On Fri, 4 Sep 2015 10:18:19 +0300, "BURRIS" <burris@gmail.com> wrote:
>
>>dar šiek tiek prie to pačio excel.
>>nepastebėjau kad yra vienodų kodų ir skirtingų barkodų tam pačiam kodui:
>>POP99011CBR    325 10 BG2
>>POP99011CBR    4587DR
>>POP99011CBR    8031006020312
>>POP99011CBR    GD4587DR
>>POP99011CBR    HF-OP11012-G1
>>POP99011CBR    OP08-000G-A1
>>POP99011CBR    OP080000G-1R00
>>POP99011CBR    OP99016CAR
>>POP99011CBR    POP99011CBR
>>POP99011CBR    UOE04-34312
>>
>>ar galima kaip nors tuos barkodus sukisti i viena cele skiriant tuos
>>kabliataskiu? nes dabar atkelia tik pirma barkoda.