Seçime Göre Satırlara Veri Girişini Engelleme

[Polye]

Merhaba,

E1 hücresinde veri doğrulamadan Var veya Yok seçeğinimiz var. Hangi satırda Yok seçimi yapıldıysa o satırdaki F,G,H hücrelerine veri girişi yapılamasın

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa ismine sağ tıklayıp Kod Görüntüle deyince çıkan sayfaya) yapıştırıp deneyiniz. E sütunu boş ya da yok ise f g ve h sütunlarını seçtirmez ve veri girilmez :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [F:H]) Is Nothing Then Exit Sub
If Cells(Target.Row, "E") = "Yok" Then
    MsgBox "E" & Target.Row & " hücresi 'Yok' olduğundan bu hücreye veri giremezsiniz!", vbCritical
    Cells(Target.Row, "E").Select
ElseIf Cells(Target.Row, "E") = "" Then
    MsgBox "E" & Target.Row & " hücresi boş olduğundan bu hücreye veri giremezsiniz!", vbCritical
    Cells(Target.Row, "E").Select
End If
End Sub

 

[Polye]

Yardımınız için teşekkür ederim
İstemiş olduğum şu şekildeydi

E2 hücresi Yok seçildiyse F2,G2,H2 hücresine giriş yapılamasın
E3 hücresi var seçiliyse F3,G3,H3 hücrelerine giriş yapılabilsin

Bu şekilde devam edecek şekilde.
Eksik anlatım için kusura bakmayın

 

[YUSUF44]

Verdiğim çözümü denediniz mi?

Verdiğim çözümü uygularsanız E2'de "Yok" yazıyorsa F2, G2 ve H2'yi seçemez, dolayısıyla veri giremezsiniz.

E3'te "Var" seçiliyse F3, G3 ve H3 hücrelerini seçebilir ve veri girebilirsiniz.