Prikazi cijelu temu 19.12.2012 14:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.