Iz TextBoxa na formi podatak se upisuje u prvu praznu celiju Sheeta1,podrucja "D5:D500". Posto je rec o podacima koji ne smeju da se ponavljaju, tj, ne sme da postoje 2 ista broja, potrebno je pri samom unosu u Textbox, otkriti duplikat i porukom obavestiti korisnika. Pokusao sam u TextBox_Exit.. da stavim petlju:
Private Sub TextBox1_Exit..
Sheets("1").Select
Range("D5:D500").Select
Dim rb As Range
For Each rb In Selection
If rb.value = TextBox1.value Then MsgBox "Duplikat !"
Next rb
End Sub
Ali nema efekta. Pokusao sam isti kod da umetnem na kraju CommandButton1._Click, pa da se "ispreci" pri unosu svih podataka, ali nista se ne desava, tj. duplikat se unese. Resenje za ovo je verovatno jednostavno, ali ja ga trenutno nemam. Pozdrav i hvala unapred.