Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → Dupli unos?


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


Dado (21.12.2012 08:01):
Predmet: Re: Dupli unos?
Hvaaala. Happy

zxz (20.12.2012 22:31):
Predmet: Re: Dupli unos?
PreuzmiIzvorni k�d (Visual Basic):
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Celija As Object
  3. Dim I As Integer
  4. Dim Red As Integer, Kolona As Integer
  5. Dim Vrijednost
  6.  
  7. Set Celija = Application.ActiveCell
  8.  
  9. Kolona = Celija.Column
  10. If Kolona <> 3 Then GoTo kraj ' 3 je broj kolone
  11. Red = Celija.Row
  12. For I = 1 To Red - 2
  13. Set Celija = Application.Cells(I, Kolona)
  14. Vrijednost = Celija.Value
  15. If Target = Vrijednost Then
  16. MsgBox "Vrijednost " & Target & " ve postoji"
  17. Celija.Select
  18. Exit For
  19. End If
  20. Next I
  21. Kraj:
  22. End Sub

Dado (20.12.2012 21: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 21:36):
Predmet: Re: Dupli unos?
PreuzmiIzvorni k�d (Visual Basic):
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Celija As Object
  3. Dim I As Integer
  4. Dim Red As Integer, Kolona As Integer
  5. Dim Vrijednost
  6.  
  7. Set Celija = Application.ActiveCell
  8.  
  9. Kolona = Celija.Column
  10. Red = Celija.Row
  11. For I = 1 To Red - 2
  12. Set Celija = Application.Cells(I, Kolona)
  13. Vrijednost = Celija.Value
  14. If Target = Vrijednost Then
  15. MsgBox "Vrijednost " & Target & " ve postoji"
  16. Celija.Select
  17. Exit For
  18. End If
  19. Next I
  20. End Sub

Dado (20.12.2012 16:46):
Predmet: Re: Dupli unos?
Primjer u excelu

Dado (20.12.2012 16: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.

Dado (20.12.2012 14:23):
Predmet: Re: Dupli unos?
Hvala, sad radi baš onako kao sam trebao. Ukoliko bude kakvih problema biću slobodan da opet pitam Grinning

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

Dado (20.12.2012 10: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 (19.12.2012 13: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):
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Celija As Object
  3. Dim I As Integer
  4. Dim Red As Integer, Kolona As Integer
  5. Dim Vrijednost
  6.  
  7. Set Celija = Application.ActiveCell
  8.  
  9. Kolona = Celija.Column
  10. Red = Celija.Row
  11. For I = 1 To Red - 1
  12. Set Celija = Application.Cells(I, Kolona)
  13. Vrijednost = Celija.Value
  14. If Target = Vrijednost Then
  15. MsgBox "Vrijednost " & Target & " ve postoji"
  16. Celija.Select
  17. End If
  18. Next I
  19. 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 (17.12.2012 22: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.

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 2: 05 pm.