USERFORM BUL KOMUTU VE MÜKERRER KAYIT ENGELLEME

[yasirdiro]

Arkadaşlar Merhaba
Amatörce yazdığım kütüphane programında bul butonu ekledim fakat tam eşleme istiyorum "D" sütunu üzerinde arama yapılıyor öğrenci numarasına göre ben arama butonu ekledim fakat örnek olarak "5" numarasını aratmak istiyorum sadece 5i aramak yerine içinde 5 bulunan herhangi bir satıra atıyor benim istediğim tam eşleşme.
Bir diğer konu Ana sayfa sheetinde kaydı olan öğrenci arşiv sheetine taşınmadan başka kayıt yapılmasını istemiyorum baz aldığım değer "D" sütunundaki öğrenci numarası yani öğrenci eğer kitabı getirdiyse kaydı alınıp taşı butonuyla arşivleniyor
kural gereği bir kitabı getirmeden 2.sini alması yasak bunu anlamının yolu ana sayfada kaydı varsa hala kitabı getirmemiştir ben de bunun için mükerrer kaydı engellemek istiyorum eğersay komutunu denedim olmadı.
dosya ektedir.
https://drive.google.com/open?id=1DDuKfWr6xm03TBbxIr_Geiw4z6QQDCo4

 

[askm]

Kodları aşağıdaki şekilde deneyin.

Private Sub CommandButton4_Click()
On Error GoTo Bitir
aranan = InputBox("ÖĞRENCİ NUMARASINI GİRİNİZ", "ARAMA YAP")
For i = 2 To Range("D" & Rows.Count).End(3).Row
    If Cells(i, 4).Value = CInt(aranan) Then
        Cells(i, 4).Select
        sil_satır = i
        Exit For
    End If
Next i

TextBox_ıd.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 2)
TextBox_ka.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 3)
TextBox_on.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 4)
TextBox_snf.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 5)
TextBox_ad.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 6)
TextBox_os.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 7)
TextBox_at.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 8)
TextBox_vt.Value = Worksheets("Ana Sayfa").Cells(sil_satır, 9)
Exit Sub
Bitir: MsgBox "ARANAN ÖĞRENCİ BULUNAMADI NUMARAYI DOĞRU GİRİNİZ"
End Sub

 

[yasirdiro]

TEŞEKKÜRLER
MÜKERRER KAYIT HAKKINDA BİLGİNİZ VAR MIYDI?