[es] - Poredjenje dve kolone i upisivanje nedostajucih karaktera..

Zigi87

Član broj: 103507
Poruke: 3
*.gronet.rs.

Profil

Poredjenje dve kolone i upisivanje nedostajucih karaktera..

^{25.10.2008. u 09:57 - pre 188 meseci}

Problem se sastoji iz sledeceg: imam dve kolone sa imenima, u prvoj koloni se non-stop dodaju neka nova imena bez odredjenog reda tipa marko, igor, ivan, milan, zarko dok u drugoj koloni postoje neka od tih imena marko, igor, milan, zarko, kako da da automtski prepozna ime koje fali u drugoj koloni i da ga ubaci u tu drugu kolunu. Evo i primer ....

Prikačeni fajlovi

Book1.xls - 13.5k

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Poredjenje dve kolone i upisivanje nedostajucih karaktera..

^{25.10.2008. u 16:27 - pre 188 meseci}

Na prvu loptu, resenje tvog problema je Advanced Filter sa ukljucenom opcijom za UNIQUE records.
Dakle adv.filter omogucava da se tabela filtrira na novo mesto pri cemu je moguce prikazati podatke
bez ponavljanja. Raditi ovo automatski kada se nesto dopise u kolonu A je izvodljivo ali opasno po
performanse rada jer bi advanced filter mogao da potraje kod veoma velikog spiska podataka. No,
evo ipak resenja. Ubaci ovo u kod za aktivni radni list npr. Sheet1.

Code:

Private Sub Worksheet_Change(ByVal target As Range)
If Not Intersect(target, [A1:A1000]) Is Nothing Then _
Range("A1:" & target.Address).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
End Sub

Dakle, ako je nesto promenjeno u skupu A1:A1000 tada filtriramo A1:celija sa promenom u kolonu B

Pozdrav

Odgovor na temu