Soru Yinelenmeyen kayıt

[serhatyaman43]

Merhaba arkadaşlar.
Örnek dosyada bir userform var. Buradaki combobox1 de değer değiştikçe a sütununa tarihi B ye ise combobox1 değerini kaydediyorum.
Örneğin aynı tarihte a değeri girilmişse onu kaydetmesin ve uyarı versin istiyorum bunu nasıl yapabiliriz?
Tarih kısmının son 9 kısmını almadan(Sadece gün ay yıl) kısmını alarak) tarih değerlerini sorgulatmayı denedim ama bir yerlerde sıkıntı yaşıyorum.
Yardımcı olabilirseniz sevinirim.

ornek.rar dosyasını indir - download

ornek.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ComboBox1_Change()
    Dim Bul As Range, Adres As String
    
    Set Bul = Range("B:B").Find(ComboBox1.Value, , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If CDate(Format(Bul.Offset(0, -1), "dd.mm.yyyy")) = Date Then
                MsgBox "Bu kayıt daha önce girilmiştir!", vbCritical
                Set Bul = Nothing
                Exit Sub
            End If
            Set Bul = Range("B:B").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    son = Sheets("Sayfa1").Range("A" & Rows.Count).End(xlUp).Row
    
    Cells(son + 1, 1) = Now
    Cells(son + 1, 2) = UserForm1.ComboBox1.Value
End Sub

 

[serhatyaman43]

Korhan bey Allah razı olsun. Dün ne kadar uğraşmıştım.

 

[Korhan Ayhan]

Uğraşmanız iyidir. Farklı bilgiler öğrenmenize sebep olur.