Kako da mi se ni jedna rijec na ponovi u Excelu

Kako da mi se ni jedna rijec na ponovi u Excelu 16.06.2005. u 14:25 · pre 260 meseci #1

Iz neke literature vadim nepoznate rijeci engleskog jezika i upisujem ih u excelovu tabelu.

Kako da postignem to da u "rijecnik" nikada ne upisem istu rijec vise puta? Pokusavao sam pratiti kada mi nadopunjuje prethodno napisane rijeci koje upisujem u celiju ali sam primijetio da mi ni to vise ne radi u potpunosti tj. da neke rijeci uopste ne nadopunjuje pa ne mogu vidjeti da ih vec imam upisane.

Ako se ovo ne moze uraditi u Excelu da li se moze u Accessu ili ima li neko bolje rjesenje?

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 18.06.2005. u 17:20 · pre 260 meseci #2

Zdravo Ucenik25

Mozda ovako: Ako si reci poceo da upisujes u kolonu A od celije A2
onda u kolonu B pocev od celije B2 upisi sledecu formulu:

"=IF(A2<>"";IF(MATCH(A2;A:A;0)=ROW(A2);"";"Postoji u
redu_"&MATCH(A2;A:A;0));"")"

(bez navodnika na pocetku i kraju) i kopiraj je u potrebni broj celija
B kolone. Pri prvom pojavljivanju duplirane reci u A koloni, u B
koloni tog reda pojavice se tekst "Postoji u redu_" i broj reda u kojem
je rec vec upisana.

Ako je tvoja organizacija podataka drugacija probaj da navedenu
formulu prilagodis.

Sve najbolje.
Ratko.

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 18.06.2005. u 18:02 · pre 260 meseci #3

Otvori Visual Basic Editor (Tools > Macro > Visual Basic Editor ili ALT+F11), odaberi Sheet1 u project exploreru (dvostruki klik) i stavi ovaj kod.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celija As Range
If Target.Row = 1 Then Exit Sub
For Each celija In Range("A1", "A" & Target.Row - 1)
If celija.Value = Target.Value Then
MsgBox "Ovu rec ste vec uneli u redu " & celija.Row
Exit For
End If
Next celija
End Sub

To je pod pretpostavkom da reči upisuješ samo u kolonu A.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 20.06.2005. u 08:48 · pre 260 meseci #4

Hvala ti, ovo radi.

Nego, nije mi jasno nesto. Na Microsoftovom sajtu kao i na stotinama drugih sajtova postoji "rjesenje" koje ne radi: http://support.microsoft.com/default.aspx?scid=kb;en-us;189005

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 20.06.2005. u 09:04 · pre 260 meseci #5

Jos jednom, hvala ti na pomoci, ovo je ono sto sam trebao.

Nego, ako ti nije problem, mozes li mi reci samo sta da dipisem u onaj code da mi odmah obrise rijec koju sam upisao tj. da mi neda da je upisem uopste. Ovo je finesa i nije toliko bitno, ali ako ti bude usput samo...

Hvala u svakom slucaju.

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 20.06.2005. u 17:13 · pre 260 meseci #6

Samo dodaj posle Msgbox-a još ovo

Code:
Target.Value = ""
Cells(Target.Row, Target.Column).Activate

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 21.06.2005. u 08:07 · pre 260 meseci #7

Unio sam ovaj code:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celija As Range
If Target.Row = 1 Then Exit Sub
For Each celija In Range("A1", "A" & Target.Row - 1)
If celija.Value = Target.Value Then
MsgBox "Ovu rec ste vec uneli u redu " & celija.Row
Target.Value = ""
Cells(Target.Row, Target.Column).Activate
Exit For
End If
Next celija
End Sub

I non stop mi javlja poruku da tu rijec vec imam i ne mogu da zatvorim Excel osim da idem na task menager i da ga ukinem.

Kako god, koristicu ja ono staro sigurn rjesenje, a tebi hvala, ne moras se dalje muciti.

Sve najbolje. :)

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 21.06.2005. u 21:22 · pre 260 meseci #8

Pozdrav! Vidim da su Todra i Marko_L veoma aktivni po pitanju davanja saveta u vezi Excel-a, meni su pomogli pre nekoliko dana. Za pohvalu!!! Usput, da li je moguce kategoriju SOFTWARE razdeliti na podkategorije, a jedna od njih bi bila za pitanja vezana za Excel? Jedan od mojih drugara rece da je Excel najkorisniji program ikad napravljen od strane M$ (?).

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 22.06.2005. u 08:20 · pre 260 meseci #9

Mozda bi bilo previse, evo ja sad razmisljam koje grupe da izbacim iz svog prikaza, a opet, zao mi, uvijek nesto moze zatrebati...

Re: Kako da mi se ni jedna rijec na ponovi u Excelu 22.06.2005. u 20:04 · pre 260 meseci #10

Citat:

I non stop mi javlja poruku da tu rijec vec imam i ne mogu da zatvorim Excel osim da idem na task menager i da ga ukinem.

Izvini, ja sam napravio manji previd.Naime onim Target.Value = "" se pokreće beskonačna petlja koja stalno poziva Change event.Evo malo prepravljenog koda koji radi kako treba.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celija As Range
If Target.Row = 1 Or Target.Text = "" Then Exit Sub
For Each celija In Range("A1", "A" & Target.Row - 1)
If celija.Value = Target.Value Then
MsgBox "Ovu rec ste vec uneli u redu " & celija.Row
Target.Value = vbNullString
Cells(Target.Row, Target.Column).Activate
Exit For
End If
Next celija
End Sub

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Forum kao aplikacija na telefonu

Srodne teme