mükerrer kayıt

[y_tekeli]

FORUMDA BİRBİRİNDEN GÜZEL MÜKERRER KAYIT ÖRNEKLERİ MEVCUT ANCAK BEN DAHA ÖNCEDEN BULUĞUMU BİR FORMULÜ ŞİMDİ BULAMIYORUM.
A SUTUNUNA GİRİLEN BİR VERİ TEKRAR GİRİLDİĞİNDE B SUTUNUNDA MÜKERRER KAYIT İBARESİYLE BU UYARININ YAPILMASINI İSTİYORUM

 

[Ömer]

Merhaba,

Örnek dosyayı inceleyiniz. İstediğiniz bu mu?

 

[Necdet]

Bir örnekte benden.

Koşullu Biçimlendirme ile yapılmıştır.

 

[HaRaMi]

Koşullu biçimlendirme güzel.
Ancak;
a ve b sütunlarındaki hücreleri yanyana (örnek a1 ile b1, a2 ile b2, a3 ile b3 .....) beraber değerlendirilerek bu işlemi (tekrarlanan verileri) tesbit edebilirmiyiz.

 

[Mahmut Bayram]

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("Sayfa1").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & " Bu kayıttan var" & " Yeniden kayıt yapılsın mı?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
MsgBox "Kayıt başarılı"
End If
End Sub