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 ....
Poredjenje dve kolone i upisivanje nedostajucih karaktera..
Zaključano
Zakačeno
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.
Dakle, ako je nesto promenjeno u skupu A1:A1000 tada filtriramo A1:celija sa promenom u kolonu B
Pozdrav
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
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