mükerrer kayıt

[bahones]

biliyorum bu konu forumda fazlasıyla var ama ben işin içinden çıkamadım bu konuda bana yardımcı olursanız sevinirim form üzerinden aynı kaydı girdiğimde uyarı vermesini istiyorum
saygılar

Private Sub CommandButton1_Click()
If ListBox5.ListIndex = -1 Then MsgBox ("Kaydedilecek ayı seçiniz."): Exit Sub
If TextBox1 = "" Then MsgBox "FATURA TARİHİ BOŞ OLMAZ!", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox2 = "" Then MsgBox "FATURA NO BOŞ OLMAZ!", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox3 = "" Then MsgBox "FATURA TUTARI BOŞ olamaz!", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox4 = "" Then MsgBox "VADESİ BOŞ OLMAZolamaz!", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox4.Value < TextBox1.Value Then
MsgBox "VADE TAR&#304;H&#304; FATURA TAR&#304;H&#304;NDEN K&#220;&#199;&#220;K OLAMAZ. !", vbCritical, "&#304;&#351;lem Yap&#305;lamaz!"
Exit Sub
End If
On Error Resume Next
Worksheets(ListBox5.ListIndex + 1).Activate
Worksheets(ListBox5.ListIndex + 1).Activate
Range("a3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = "" Then
Range("A3").Value = 1
Range("A3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1) = CDate(TextBox1.Text) * 1
ActiveCell.Offset(0, 2) = TextBox2.Text * 1
ActiveCell.Offset(0, 3) = TextBox3.Text * 1
ActiveCell.Offset(0, 4) = CDate(TextBox4.Text) * 1
MsgBox "FATURANIZ KAYDED&#304;LD&#304;"
Call Formu_Temizle
Call CommandButton2_Click
End Sub

 

[Mahmut Bayram]

TextBox1 bulunacak veri
Aranacak alan ise c2:c65000

Dim bak
 For Each bak In Range("c2:c" & WorksheetFunction.CountA(Range("c2:c65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
        bak.Select
        MsgBox TextBox1.Text & " numaralı evrak daha önce girilmiş "
   Exit Sub
End If
Next bak

Yukardıaki kodu kendinize uyarlayınız.

 

[bahones]

teşekkür ederim sayın mahmut çok güzel olmuş sağolun