B2 Hayır ise C2 yi boş geçme

[unur]

Arkadaşlar çok basit belki ama bir türlü mantık yürütemedim.

C2 ile C2500 arasına uygulanmak üzere, Eğer B2 hücresinde Hayır yazıyorsa C2 hücresine veri girişi yapmadan başka bir satıra yada sutuna veri girişi yapamayım, aynı şekilde bu böyle 2500 satıra kadar uyğulamam lazım. B101 de hayır yazıyorsa; C101 hücresine veri girişini zorunlu yapmalıyım.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[muhasebeciyiz]

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address(0, 0) = "Q2" Then Exit Sub
If Range("Q2") = "" And ActiveCell.Address(0, 0) <> "Q2" Then
MsgBox "Q2 hücresini boş geçemezsiniz !", vbCritical
Range("Q2").Select
Exit Sub
End If

If ActiveCell.Address(0, 0) = "R2" Then Exit Sub
If Range("R2") = "" And ActiveCell.Address(0, 0) <> "R2" Then
MsgBox "R2 hücresini boş geçemezsiniz !", vbCritical
Range("R2").Select
Exit Sub
End If
End Sub

hamitcan ustamızın yaptığı hücreyi boş geçmeme kodunu kendinize göre uyarlayarak kullanabilirsiniz

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SAT As Integer
For SAT = 2 To Cells(Target.Row, "b").End(xlUp).Row
    If Cells(SAT, "b") = "HAYIR" And Cells(SAT, "c") = "" Then
    MsgBox Cells(SAT, "c").Address & " Boş geçilmez"
    End If
Next
End Sub

 

[Korhan Ayhan]

Merhaba,

İstediğiniz işlem VERİ DOĞRULAMA ile rahatlıkla yapabilirsiniz.

"D2:K2500" hücrelerini seçin.
Veri-Doğrulama-Ayarlar-İzin Verilen bölümünden "ÖZEL" seçeneğini seçin.
Altındaki boş kutucuğa alttaki formülü uygulayın.

=EĞER(VE($B2="HAYIR";$C2="");0;1)

Aynı ekranda "Boşluğu yoksay" seçeneğini pasif yapın.
"HATA UYARISI" sekmesine geçin.
"STİL" bölümünden "DUR" seçeneğini seçin.
Yandaki kutucuklara hatalı işlemlerde görmek istediğiniz mesajı yazın.
Tamam tuşuna basarak işlemi tamamlayın.

Ekte uygulamalı örnek dosyayı bulabilirsiniz.

 

[unur]

Arkadaşlar çok Teşekkürler.
Ziya bey verdiğiniz kod uyarı veriyor tamam dedikten sonra başka hücreye veri girebiliyoruz.Veri girmeyide kısıtlama şansımız varmı?
O alan doldurulmadan başka bir alana veri girişi yapılmasın istiyorum,olabilir mi acaba?
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SAT As Integer
If Not Intersect(Target, [b:c]) Is Nothing Then Exit Sub
For SAT = 2 To Cells(Rows.Count, "b").End(xlUp).Row
    If Cells(SAT, "b") = "HAYIR" And Cells(SAT, "c") = "" Then GoTo 1
Next
Exit Sub
1
ActiveCell.Offset(-1, 0) = Empty
Cells(SAT, "c") = "BOŞ OLMAZ"
End Sub