Textbox ile girilen veri mükerer ise uyar

[mozakay]

MERHABA ARKADAŞLAR.

("KAYIT") isimli bir sayfadan form aracılığı ile textbox1 ve textbox4 üzerinden ("TAKİP") isimli sayfaya veri giriyorum. girdiğim veri daha önceden girilmiş ise uyarmasını istiyorum. yardımcı olabilecek biri var mıdır acaba? kullandığım kodlar şu şekilde

Private Sub CommandButton2_Click()

'TAKİP EKLEME FORMU KAYDET BUTONU
Sheets("TAKİP").Select

If Range("A2") = "" Then
Range("A2").Select
ActiveCell = 1
ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = TextBox4.Value


Else

[B65536].End(xlUp).Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 0) = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox4.Value

End If

TextBox1.Value = ""
TextBox2.Value = ""

TextBox4 = ""




TextBox1.SetFocus



End Sub

 

[vardar07]

Sizdeki kodlar ile değiştirip denermisiniz.

Private Sub CommandButton1_Click()
Dim varmi As Range
Sheets("TAKİP").Select
    [A65536].End(xlUp).Offset(1, 0).Select
For Each varmi In Range("B2:B" & [B65536].End(3).Row)
    If TextBox1 = varmi Then
        MsgBox " Aynı İsimde Kayıt Var"
        Exit Sub
    End If
Next varmi
        With ActiveCell
            .Offset(0, 0) = .Offset(-1, 0) + 1
            .Offset(0, 1) = TextBox1
            .Offset(0, 2) = TextBox2
            .Offset(0, 3) = TextBox3
            .Offset(0, 4) = TextBox4
        End With
End Sub