iCentar » Racunari i oprema » Softver i operativni sistemi » Ms office

Dado	17.12.2012 23:08
Predmet:Dupli unos? U excel tabeli u jednoj koloni Å¾elim da napravim da mi se ne ponavljaju dupli unosi ili pak da dobijem upozorenje kada upiÅ¡em podatak koji je već u toj koloni u nekoj ćeliji već upisan. PokuÅ¡ao sam sa uvjetnim oblikovanjem ćelija kao i sa vrijednovanjem ćelija ali nisam uspio. Da li neko moÅ¾e pomoći. Hvala unaprijed.

Dado

17.12.2012 23:08

Predmet:Dupli unos?

U excel tabeli u jednoj koloni Å¾elim da napravim da mi se ne ponavljaju dupli unosi ili pak da dobijem upozorenje kada upiÅ¡em podatak koji je već u toj koloni u nekoj ćeliji već upisan. PokuÅ¡ao sam sa uvjetnim oblikovanjem ćelija kao i sa vrijednovanjem ćelija ali nisam uspio. Da li neko moÅ¾e pomoći. Hvala unaprijed.

zxz	19.12.2012 14:01
Predmet:Re: Dupli unos? Evo ovako. Otvoris taj dokument. Ides u meni bar: Tools-->Macro-->VisualBasic editor na lijevoj strani odaberes Sheet u kome ti ovo treba te uradis dupli klik na njemu. Otvorit ce ti se prozor za kucanje koda i u taj prozor ovo kopiras ispod. PreuzmiIzvorni kôd (Visual Basic): Private Sub Worksheet_Change(ByVal Target As Range) Dim Celija As Object Dim I As Integer Dim Red As Integer, Kolona As Integer Dim Vrijednost Set Celija = Application.ActiveCell Kolona = Celija.Column Red = Celija.Row For I = 1 To Red - 1 Set Celija = Application.Cells(I, Kolona) Vrijednost = Celija.Value If Target = Vrijednost Then MsgBox "Vrijednost " & Target & " ve postoji" Celija.Select End If Next I End Sub Upozorenje. Kada sve istestiras ipak cemo morati nesto doraditi. Naime kontrolisat ce ti bilo koju kolonu pa te nekad moze zezati ako mi javis o kojoj koloni se radi mozemo vezati kod samo za tu kolonu.

zxz

19.12.2012 14:01

Predmet:Re: Dupli unos?

Evo ovako.
Otvoris taj dokument.
Ides u meni bar:
Tools-->Macro-->VisualBasic editor
na lijevoj strani odaberes Sheet u kome ti ovo treba te uradis dupli klik na njemu.
Otvorit ce ti se prozor za kucanje koda i u taj prozor ovo kopiras ispod.

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celija As Object
Dim I As Integer
Dim Red As Integer, Kolona As Integer
Dim Vrijednost
Set Celija = Application.ActiveCell
Kolona = Celija.Column
Red = Celija.Row
For I = 1 To Red - 1
Set Celija = Application.Cells(I, Kolona)
Vrijednost = Celija.Value
If Target = Vrijednost Then
MsgBox "Vrijednost " & Target & " ve postoji"
Celija.Select
End If
Next I
End Sub

Upozorenje.
Kada sve istestiras ipak cemo morati nesto doraditi.
Naime kontrolisat ce ti bilo koju kolonu pa te nekad moze zezati ako mi javis o kojoj koloni se radi mozemo vezati kod samo za tu kolonu.

Dado	20.12.2012 11:02
Predmet:Re: Dupli unos? Evo probao sam i radi ali isto tako kada unesem nekakav podatak za koji znam da ne postoji salje mi poruku da ga vec imama. Sto se tice kolone ona je u mom slucaju kolona "K" ali imam ja vise obrazaca na koje trebam primjeniti ovaj kod. To cu ja izmjeniti ako su kolone razlicite.

Dado

20.12.2012 11:02

Predmet:Re: Dupli unos?

Evo probao sam i radi ali isto tako kada unesem nekakav podatak za koji znam da ne postoji salje mi poruku da ga vec imama. Sto se tice kolone ona je u mom slucaju kolona "K" ali imam ja vise obrazaca na koje trebam primjeniti ovaj kod. To cu ja izmjeniti ako su kolone razlicite.

zxz	20.12.2012 11:27
Predmet:Re: Dupli unos? samo ovo popravi For I = 1 To Red - 2

zxz

20.12.2012 11:27

Predmet:Re: Dupli unos?

samo ovo popravi
For I = 1 To Red - 2

Dado	20.12.2012 15:23
Predmet:Re: Dupli unos? Hvala, sad radi baÅ¡ onako kao sam trebao. Ukoliko bude kakvih problema biću slobodan da opet pitam

Dado

20.12.2012 15:23

Predmet:Re: Dupli unos?

Hvala, sad radi baÅ¡ onako kao sam trebao. Ukoliko bude kakvih problema biću slobodan da opet pitam Grinning

Dado	20.12.2012 17:45
Predmet:Re: Dupli unos? Imam joÅ¡ jedno pitanje. Ukoliko imam kojim slučajem u jednoj koloni viÅ¡e istih podataka, onda mi se pojavi upozaravajuća poruka koju moram uklanjati sa tipkom ESC i koliko imam unosa toliko puta moram stisnuti tu tipku. MoÅ¾e li se to na jednostavniji način rijeÅ¡iti. NaglaÅ¡avam da imam već uneÅ¡ene podatke u tabele pa je moguće da imam podosta duplih unosa i ovo sa ESC tipkom bi mi bilo jako sporo. Evo u prilogu kako to izgleda.
Prilozi: PRIMJER.zip (Velicina datoteke: Bajt)

Dado

20.12.2012 17:45

Predmet:Re: Dupli unos?

Imam joÅ¡ jedno pitanje. Ukoliko imam kojim slučajem u jednoj koloni viÅ¡e istih podataka, onda mi se pojavi upozaravajuća poruka koju moram uklanjati sa tipkom ESC i koliko imam unosa toliko puta moram stisnuti tu tipku. MoÅ¾e li se to na jednostavniji način rijeÅ¡iti. NaglaÅ¡avam da imam već uneÅ¡ene podatke u tabele pa je moguće da imam podosta duplih unosa i ovo sa ESC tipkom bi mi bilo jako sporo. Evo u prilogu kako to izgleda.

Prilozi:
PRIMJER.zip (Velicina datoteke: Bajt)

Dado	20.12.2012 17:46
Predmet:Re: Dupli unos? Primjer u excelu
Prilozi: Book1.zip (Velicina datoteke:4.98 KB)

Dado

20.12.2012 17:46

Predmet:Re: Dupli unos?

Primjer u excelu

Prilozi:
Book1.zip (Velicina datoteke:4.98 KB)

zxz	20.12.2012 22:36
Predmet:Re: Dupli unos? PreuzmiIzvorni kôd (Visual Basic): Private Sub Worksheet_Change(ByVal Target As Range) Dim Celija As Object Dim I As Integer Dim Red As Integer, Kolona As Integer Dim Vrijednost Set Celija = Application.ActiveCell Kolona = Celija.Column Red = Celija.Row For I = 1 To Red - 2 Set Celija = Application.Cells(I, Kolona) Vrijednost = Celija.Value If Target = Vrijednost Then MsgBox "Vrijednost " & Target & " ve postoji" Celija.Select Exit For End If Next I End Sub

zxz

20.12.2012 22:36

Predmet:Re: Dupli unos?

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celija As Object
Dim I As Integer
Dim Red As Integer, Kolona As Integer
Dim Vrijednost
Set Celija = Application.ActiveCell
Kolona = Celija.Column
Red = Celija.Row
For I = 1 To Red - 2
Set Celija = Application.Cells(I, Kolona)
Vrijednost = Celija.Value
If Target = Vrijednost Then
MsgBox "Vrijednost " & Target & " ve postoji"
Celija.Select
Exit For
End If
Next I
End Sub

Dado	20.12.2012 22:49
Predmet:Re: Dupli unos? Hvala na trudu, samo gdje joÅ¡ da ubacim da mi se ovaj kod odnosi za određenu kolonu u listu.

Dado

20.12.2012 22:49

Predmet:Re: Dupli unos?

Hvala na trudu, samo gdje joÅ¡ da ubacim da mi se ovaj kod odnosi za određenu kolonu u listu.

zxz	20.12.2012 23:31
Predmet:Re: Dupli unos? PreuzmiIzvorni kôd (Visual Basic): Private Sub Worksheet_Change(ByVal Target As Range) Dim Celija As Object Dim I As Integer Dim Red As Integer, Kolona As Integer Dim Vrijednost Set Celija = Application.ActiveCell Kolona = Celija.Column If Kolona <> 3 Then GoTo kraj ' 3 je broj kolone Red = Celija.Row For I = 1 To Red - 2 Set Celija = Application.Cells(I, Kolona) Vrijednost = Celija.Value If Target = Vrijednost Then MsgBox "Vrijednost " & Target & " ve postoji" Celija.Select Exit For End If Next I Kraj: End Sub

zxz

20.12.2012 23:31

Predmet:Re: Dupli unos?

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celija As Object
Dim I As Integer
Dim Red As Integer, Kolona As Integer
Dim Vrijednost
Set Celija = Application.ActiveCell
Kolona = Celija.Column
If Kolona <> 3 Then GoTo kraj ' 3 je broj kolone
Red = Celija.Row
For I = 1 To Red - 2
Set Celija = Application.Cells(I, Kolona)
Vrijednost = Celija.Value
If Target = Vrijednost Then
MsgBox "Vrijednost " & Target & " ve postoji"
Celija.Select
Exit For
End If
Next I
Kraj:
End Sub