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