Hücreye girilecek verileri tanımlama

[denese]

Merhabalar,

Form sayfasında "A1" hücresine, sadece Data sayfasında "A" sütununda yer alan sicil numaralarının girilebilmesini, bunların dışında bir veri girildiğinde msgbox ile "Hatalı sicil numarası" uyarısı vermesini makro ile nasıl yapabiliriz.

 

[Ömer]

Merhaba,

Form sayfası kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Sd As Worksheet, c As Range
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    Set Sd = Sheets("Data")

    Application.ScreenUpdating = False

    Set c = Sd.[A:A].Find(Target, , xlValues, xlWhole)
    If c Is Nothing Then
        MsgBox "Hatalı sicil numarası", vbInformation
        Target.Select
        Target = ""
    End If

End Sub

 

[denese]

Merhaba,

Form sayfası kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Sd As Worksheet, c As Range
   
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
   
    Set Sd = Sheets("Data")

    Application.ScreenUpdating = False

    Set c = Sd.[A:A].Find(Target, , xlValues, xlWhole)
    If c Is Nothing Then
        MsgBox "Hatalı sicil numarası", vbInformation
        Target.Select
        Target = ""
    End If

End Sub

Merhaba Ömer Bey,

Kod sorunsuz çalıştı. Çok teşekkür ederim.

İyi çalışmalar