Soru Veri girişini Engellemek

[ayna98]

Selamlar,
Elimde hazırlamış olduğum bir makrolu excel tablosu mevcuttur. Bu tabloda bulunan satırda 10 adet veri girişi için kolon mevcuttur. Satırın en başında ise isim yazabileceği kolon bulunmaktadır. Benim istediğim isim alanını doldurmadan diğer kolonlara veri girişi yapılamasın ve uyarı mesajı çıksın.

Cevaplarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz. B2:J1000 aralığında A sütunu boşken hücreyi seçmenize, dolayısıyla veri girmenize izin vermez:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B2:J1000")) Is Nothing Then Exit Sub
If Cells(Target.Row, "A") = "" Then
    MsgBox "İsim hücresini doldurmadan bu hücreyi seçemezsiniz!", vbCritical
    Cells(Target.Row, "A").Select
End If
End Sub

 

[ayna98]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz. B2:J1000 aralığında A sütunu boşken hücreyi seçmenize, dolayısıyla veri girmenize izin vermez:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B2:J1000")) Is Nothing Then Exit Sub
If Cells(Target.Row, "A") = "" Then
    MsgBox "İsim hücresini doldurmadan bu hücreyi seçemezsiniz!", vbCritical
    Cells(Target.Row, "A").Select
End If
End Sub

Yusuf bey,
Cevabınız için çok teşekkür ederim.
Komut sorunsuz ve tam istediğim gibi çalışmaktadır.