mükerrer kayıt

[gedavet]

selam arkadaşlar mükerrer kayıt olan veriyi engellemek ve önceki veriyi kırmızı renkle belirtmesini istiyorum

 

[fedeal]

Merhaba alttaki kodlar işnizi görür umarım.

Private Sub CommandButton1_Click()
Set bul = Sheets("sayfa1").Range("a:a").Find(TextBox1)
If Not bul Is Nothing Then
MsgBox " bu kayıt daha önce girilmiş."
Sheets("sayfa1").Cells(bul.Row, 1).Interior.ColorIndex = 3
Else
son = Sheets("sayfa1").Range("A65536").End(xlUp).Row + 1
Sheets("sayfa1").Cells(son, 1).Value = TextBox1.Text
End If
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun,

A1:A10 arasındaki koşullu biçimlendirmeyi ve veri doğrulamayı inceleyiniz.

Detaylı bilgi için linki incelemenizi tavsiye ederim.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.